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