diff options
author | schnetter <schnetter@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2004-01-16 11:50:47 +0000 |
---|---|---|
committer | schnetter <schnetter@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2004-01-16 11:50:47 +0000 |
commit | 006af6e47bb7e80678b9092dbce133d3308b4a6e (patch) | |
tree | 5d262dafaa98b7a5686370cf4b64c40ee4658f63 | |
parent | ff7164e62b1ec8bb8b690a25dfcb1a80a2577704 (diff) |
Do not return a value from the startup function
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyFreeF90/trunk@61 daab82bb-f315-4ad1-b6d0-9353ff8b6e27
-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 |