diff options
Diffstat (limited to 'CarpetExtra/FOWaveToyF77/src/Startup.F77')
| -rw-r--r-- | CarpetExtra/FOWaveToyF77/src/Startup.F77 | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/CarpetExtra/FOWaveToyF77/src/Startup.F77 b/CarpetExtra/FOWaveToyF77/src/Startup.F77 new file mode 100644 index 000000000..99a2f000e --- /dev/null +++ b/CarpetExtra/FOWaveToyF77/src/Startup.F77 @@ -0,0 +1,22 @@ +c -*-Fortran-*- + + /*@@ + @file Startup.F77 + @date + @author Gabrielle Allen + @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 $ + @@*/ + +#include "cctk.h" + + subroutine FOWaveToyF77_Startup + + implicit none + integer ierr + + call CCTK_RegisterBanner(ierr, "FOWaveToyF77: Evolutions of a Scalar Field") + + end |