diff options
Diffstat (limited to 'CarpetExtra/FOWaveToyF77/src/Startup.F77')
-rw-r--r-- | CarpetExtra/FOWaveToyF77/src/Startup.F77 | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/CarpetExtra/FOWaveToyF77/src/Startup.F77 b/CarpetExtra/FOWaveToyF77/src/Startup.F77 index 99a2f000e..598a1e93d 100644 --- a/CarpetExtra/FOWaveToyF77/src/Startup.F77 +++ b/CarpetExtra/FOWaveToyF77/src/Startup.F77 @@ -7,16 +7,18 @@ c -*-Fortran-*- @desc Register banner @enddesc - @version $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/FOWaveToyF77/src/Startup.F77,v 1.2 2003/06/27 15:54:58 schnetter Exp $ + @version $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/FOWaveToyF77/src/Startup.F77,v 1.1 2002/02/18 11:25:34 shawley Exp $ @@*/ #include "cctk.h" - subroutine FOWaveToyF77_Startup + integer function FOWaveToyF77_Startup() implicit none - integer ierr + integer ierr call CCTK_RegisterBanner(ierr, "FOWaveToyF77: Evolutions of a Scalar Field") + FOWaveToyF77_Startup = 0 + end |