diff options
author | schnetter <schnetter@4451c3c6-1034-4891-99ea-21147727ccdf> | 2004-01-16 11:49:14 +0000 |
---|---|---|
committer | schnetter <schnetter@4451c3c6-1034-4891-99ea-21147727ccdf> | 2004-01-16 11:49:14 +0000 |
commit | ef66ca543174bb3f3c5f547f93544907f930bd05 (patch) | |
tree | 77e51696054a63be3f97629015d8fe57236832ee | |
parent | c923cc60f2871eec451a1b25ec64fabb7ffeac2d (diff) |
Do not return a value from the scheduled startup function
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@107 4451c3c6-1034-4891-99ea-21147727ccdf
-rw-r--r-- | src/Startup.F77 | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Startup.F77 b/src/Startup.F77 index 5ee319c..b5cd03e 100644 --- a/src/Startup.F77 +++ b/src/Startup.F77 @@ -10,13 +10,11 @@ #include "cctk.h" - integer function WaveToyF77_Startup() + subroutine WaveToyF77_Startup implicit none integer ierr call CCTK_RegisterBanner(ierr, "WaveToyF77: Evolutions of a Scalar Field") - WaveToyF77_Startup = 0 - end |