Making sure this thorn is purely F77.

Tom


git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@46 4451c3c6-1034-4891-99ea-21147727ccdf

4 files changed, 24 insertions, 24 deletions

diff --git a/schedule.ccl b/schedule.ccl
index 1560a7f..f7f4e13 100644
--- a/schedule.ccl
+++ b/schedule.ccl
@@ -5,7 +5,7 @@ STORAGE: scalarevolve
 
 schedule WaveToyF77_Startup at STARTUP
 {
-  LANG: C
+  LANG: Fortran
 } "Register banner"
 
 schedule WaveToyF77_InitSymBound at BASEGRID
diff --git a/src/Startup.F77 b/src/Startup.F77
new file mode 100644
index 0000000..5ee319c
--- /dev/null
+++ b/src/Startup.F77
@@ -0,0 +1,22 @@
+ /*@@
+   @file      Startup.F77
+   @date      
+   @author    Gabrielle Allen
+   @desc 
+              Register banner 
+   @enddesc 
+   @version $Header$
+ @@*/
+
+#include "cctk.h"
+
+      integer function WaveToyF77_Startup()
+
+      implicit none
+   
+      integer ierr
+      call CCTK_RegisterBanner(ierr, "WaveToyF77: Evolutions of a Scalar Field")
+
+      WaveToyF77_Startup = 0
+
+      end 
diff --git a/src/Startup.c b/src/Startup.c
deleted file mode 100644
index ee84edf..0000000
--- a/src/Startup.c
+++ /dev/null
@@ -1,22 +0,0 @@
- /*@@
-   @file      Startup.c
-   @date      
-   @author    Gabrielle Allen
-   @desc 
-              Register banner 
-   @enddesc 
- @@*/
-
-static char *rcsid = "$Header$";
-
-#include "cctk.h"
-
-int WaveToyF77_Startup(void)
-{
-
-   const char *banner = "WaveToyF77: Evolutions of a Scalar Field";
-
-   CCTK_RegisterBanner(banner);
-
-   return 0;
-}
diff --git a/src/make.code.defn b/src/make.code.defn
index c0dcc01..44c0897 100644
--- a/src/make.code.defn
+++ b/src/make.code.defn
@@ -2,7 +2,7 @@
 # $Header$
 
 # Source files in this directory
-SRCS = InitSymBound.F77 WaveToy.F77 Startup.c
+SRCS = InitSymBound.F77 WaveToy.F77 Startup.F77
 
 # Subdirectories containing source files
 SUBDIRS =