diff options
-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 |