diff options
| author | schnetter <schnetter@4451c3c6-1034-4891-99ea-21147727ccdf> | 2004-01-16 14:30:05 +0000 |
|---|---|---|
| committer | schnetter <schnetter@4451c3c6-1034-4891-99ea-21147727ccdf> | 2004-01-16 14:30:05 +0000 |
| commit | 94bfc6e444f7390ccba4981de80f0186530de1c8 (patch) | |
| tree | 696968f9afc9bb9043ffd82b23e82d28ed7d1f65 | |
| parent | ef66ca543174bb3f3c5f547f93544907f930bd05 (diff) | |
Startup functions should return 0
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@108 4451c3c6-1034-4891-99ea-21147727ccdf
| -rw-r--r-- | src/Startup.F77 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Startup.F77 b/src/Startup.F77 index b5cd03e..a7686e9 100644 --- a/src/Startup.F77 +++ b/src/Startup.F77 @@ -10,11 +10,12 @@ #include "cctk.h" - subroutine WaveToyF77_Startup + integer function WaveToyF77_Startup () implicit none integer ierr call CCTK_RegisterBanner(ierr, "WaveToyF77: Evolutions of a Scalar Field") + WaveToyF77_Startup = 0 end |