src/Startup.F77


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

 /*@@
   @file      Startup.F77
   @date      
   @author    Gabrielle Allen
   @desc 
              Register banner 
   @enddesc 
   @version $Header$
 @@*/

#include "cctk.h"

      subroutine WaveToyF77_Startup

      implicit none
   
      integer ierr
      call CCTK_RegisterBanner(ierr, "WaveToyF77: Evolutions of a Scalar Field")

      end