diff options
Diffstat (limited to 'src/Startup.F90')
-rw-r--r-- | src/Startup.F90 | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Startup.F90 b/src/Startup.F90 index ad1c59e..5acf4ae 100644 --- a/src/Startup.F90 +++ b/src/Startup.F90 @@ -10,7 +10,7 @@ #include "cctk.h" -integer function WaveToyFreeF90_Startup() +subroutine WaveToyFreeF90_Startup implicit none @@ -18,6 +18,4 @@ integer function WaveToyFreeF90_Startup() call CCTK_RegisterBanner(ierr, "WaveToyFreeF90: Evolutions of a Scalar Field") - WaveToyFreeF90_Startup = 0 - -end function WaveToyFreeF90_Startup +end subroutine WaveToyFreeF90_Startup |