diff options
| author | schnetter <schnetter@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2004-01-16 14:41:04 +0000 |
|---|---|---|
| committer | schnetter <schnetter@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2004-01-16 14:41:04 +0000 |
| commit | 4594ba4678c2904165dc33557dc32f24aba222a1 (patch) | |
| tree | aa4474e58de67615ebff2263a1febe9e1bbac142 | |
| parent | 7ba3da15e727551bd247fcec7933a5e8b6a0a508 (diff) | |
Startup functions should return 0
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@89 f80f6fb6-8356-4fd4-90bc-d84ad503c100
| -rw-r--r-- | src/Startup.F | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Startup.F b/src/Startup.F index c841002..0ea11e4 100644 --- a/src/Startup.F +++ b/src/Startup.F @@ -10,11 +10,12 @@ #include "cctk.h" - subroutine WaveToyF90_Startup + integer function WaveToyF90_Startup () implicit none integer ierr call CCTK_RegisterBanner(ierr, "WaveToyF90: Evolutions of a Scalar Field") + WaveToyF90_Startup = 0 - end subroutine WaveToyF90_Startup + end function WaveToyF90_Startup |