diff options
| author | schnetter <schnetter@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2004-01-16 14:41:14 +0000 |
|---|---|---|
| committer | schnetter <schnetter@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2004-01-16 14:41:14 +0000 |
| commit | 297029deadacca652c51229234612733f9e6958d (patch) | |
| tree | 92c41e49ce377c561ac297b6289a96bf082bbafb | |
| parent | 006af6e47bb7e80678b9092dbce133d3308b4a6e (diff) | |
Startup functions should return 0
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyFreeF90/trunk@62 daab82bb-f315-4ad1-b6d0-9353ff8b6e27
| -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 |