diff options
author | goodale <goodale@4451c3c6-1034-4891-99ea-21147727ccdf> | 2000-03-07 16:45:57 +0000 |
---|---|---|
committer | goodale <goodale@4451c3c6-1034-4891-99ea-21147727ccdf> | 2000-03-07 16:45:57 +0000 |
commit | 30f6fb8cb75321165da9ebb184ab342e65d1bb43 (patch) | |
tree | 12e69cd14c1276774bc0912652fe7acb7f4d7a94 /src | |
parent | 8ca49dcb9b6f1e2be966461cb24c858146a13fcc (diff) |
Making sure this thorn is purely F77.
Tom
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@46 4451c3c6-1034-4891-99ea-21147727ccdf
Diffstat (limited to 'src')
-rw-r--r-- | src/Startup.F77 | 22 | ||||
-rw-r--r-- | src/Startup.c | 22 | ||||
-rw-r--r-- | src/make.code.defn | 2 |
3 files changed, 23 insertions, 23 deletions
diff --git a/src/Startup.F77 b/src/Startup.F77 new file mode 100644 index 0000000..5ee319c --- /dev/null +++ b/src/Startup.F77 @@ -0,0 +1,22 @@ + /*@@ + @file Startup.F77 + @date + @author Gabrielle Allen + @desc + Register banner + @enddesc + @version $Header$ + @@*/ + +#include "cctk.h" + + integer function WaveToyF77_Startup() + + implicit none + + integer ierr + call CCTK_RegisterBanner(ierr, "WaveToyF77: Evolutions of a Scalar Field") + + WaveToyF77_Startup = 0 + + end diff --git a/src/Startup.c b/src/Startup.c deleted file mode 100644 index ee84edf..0000000 --- a/src/Startup.c +++ /dev/null @@ -1,22 +0,0 @@ - /*@@ - @file Startup.c - @date - @author Gabrielle Allen - @desc - Register banner - @enddesc - @@*/ - -static char *rcsid = "$Header$"; - -#include "cctk.h" - -int WaveToyF77_Startup(void) -{ - - const char *banner = "WaveToyF77: Evolutions of a Scalar Field"; - - CCTK_RegisterBanner(banner); - - return 0; -} diff --git a/src/make.code.defn b/src/make.code.defn index c0dcc01..44c0897 100644 --- a/src/make.code.defn +++ b/src/make.code.defn @@ -2,7 +2,7 @@ # $Header$ # Source files in this directory -SRCS = InitSymBound.F77 WaveToy.F77 Startup.c +SRCS = InitSymBound.F77 WaveToy.F77 Startup.F77 # Subdirectories containing source files SUBDIRS = |