diff options
| author | schnetter <schnetter@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2004-01-16 11:50:20 +0000 |
|---|---|---|
| committer | schnetter <schnetter@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2004-01-16 11:50:20 +0000 |
| commit | 7ba3da15e727551bd247fcec7933a5e8b6a0a508 (patch) | |
| tree | 99ae97d400300338099fcfe3cd618d94e08ee2fd | |
| parent | b01f17d0f2fecaf4623964bc331e182b673ce325 (diff) | |
Do not return a value from the scheduled startup function
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@88 f80f6fb6-8356-4fd4-90bc-d84ad503c100
| -rw-r--r-- | src/Startup.F | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Startup.F b/src/Startup.F index 44c7084..c841002 100644 --- a/src/Startup.F +++ b/src/Startup.F @@ -10,13 +10,11 @@ #include "cctk.h" - integer function WaveToyF90_Startup() + subroutine WaveToyF90_Startup implicit none integer ierr call CCTK_RegisterBanner(ierr, "WaveToyF90: Evolutions of a Scalar Field") - WaveToyF90_Startup = 0 - - end function WaveToyF90_Startup + end subroutine WaveToyF90_Startup |