diff options
author | goodale <goodale@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2000-02-17 10:09:42 +0000 |
---|---|---|
committer | goodale <goodale@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2000-02-17 10:09:42 +0000 |
commit | 5c59daa5c6829fc28f4e1bce711ef4694b6535be (patch) | |
tree | d739ecf852b128518c7de968992b52aaf6493d73 | |
parent | 180309c930ec6bb4be5c0f03b6807ad970e05726 (diff) |
Changed C startup routines to Fortran so we have a test of
Fortran startup routines, and also the thorns are now
uni-language and provide examples of how to write a
Fortran startup routine.
Tom
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyFreeF90/trunk@11 daab82bb-f315-4ad1-b6d0-9353ff8b6e27
-rw-r--r-- | schedule.ccl | 2 | ||||
-rw-r--r-- | src/Startup.F90 | 23 | ||||
-rw-r--r-- | src/Startup.c | 22 | ||||
-rw-r--r-- | src/make.code.defn | 2 |
4 files changed, 25 insertions, 24 deletions
diff --git a/schedule.ccl b/schedule.ccl index c01096f..318a010 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -5,7 +5,7 @@ STORAGE: scalarevolve schedule WaveToyFreeF90_Startup at STARTUP { - LANG: C + LANG: Fortran } "Register banner" schedule WaveToyFreeF90_InitSymBound at BASEGRID diff --git a/src/Startup.F90 b/src/Startup.F90 new file mode 100644 index 0000000..ad1c59e --- /dev/null +++ b/src/Startup.F90 @@ -0,0 +1,23 @@ + /*@@ + @file Startup.F90 + @date + @author Gabrielle Allen + @desc + Register banner + @enddesc + @version $Header$ + @@*/ + +#include "cctk.h" + +integer function WaveToyFreeF90_Startup() + + implicit none + + integer ierr + + call CCTK_RegisterBanner(ierr, "WaveToyFreeF90: Evolutions of a Scalar Field") + + WaveToyFreeF90_Startup = 0 + +end function WaveToyFreeF90_Startup diff --git a/src/Startup.c b/src/Startup.c deleted file mode 100644 index 81e5df6..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 WaveToyFreeF90_Startup(void) -{ - - const char *banner = "WaveToyFreeF90: Evolutions of a Scalar Field"; - - CCTK_RegisterBanner(banner); - - return 0; -} diff --git a/src/make.code.defn b/src/make.code.defn index 9bc1376..4c14199 100644 --- a/src/make.code.defn +++ b/src/make.code.defn @@ -2,7 +2,7 @@ # $Header$ # Source files in this directory -SRCS = InitSymBound.F90 WaveToy.F90 Startup.c +SRCS = InitSymBound.F90 WaveToy.F90 Startup.F90 # Subdirectories containing source files SUBDIRS = |