diff options
| author | goodale <goodale@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2000-02-17 10:09:40 +0000 |
|---|---|---|
| committer | goodale <goodale@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2000-02-17 10:09:40 +0000 |
| commit | 5cd040d3fda1635075dd2850f6d2141712560e52 (patch) | |
| tree | 86f944e60ac20a9c4592ec3cb5eab043ee676ea8 /src/Startup.F | |
| parent | a7ea67d0cce38235288f3a66ead73130864c0d39 (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/WaveToyF90/trunk@37 f80f6fb6-8356-4fd4-90bc-d84ad503c100
Diffstat (limited to 'src/Startup.F')
| -rw-r--r-- | src/Startup.F | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/src/Startup.F b/src/Startup.F new file mode 100644 index 0000000..44c7084 --- /dev/null +++ b/src/Startup.F @@ -0,0 +1,22 @@ + /*@@ + @file Startup.F90 + @date + @author Gabrielle Allen + @desc + Register banner + @enddesc + @version $Header$ + @@*/ + +#include "cctk.h" + + integer function WaveToyF90_Startup() + + implicit none + + integer ierr + call CCTK_RegisterBanner(ierr, "WaveToyF90: Evolutions of a Scalar Field") + + WaveToyF90_Startup = 0 + + end function WaveToyF90_Startup |