From 30f6fb8cb75321165da9ebb184ab342e65d1bb43 Mon Sep 17 00:00:00 2001
From: goodale <goodale@4451c3c6-1034-4891-99ea-21147727ccdf>
Date: Tue, 7 Mar 2000 16:45:57 +0000
Subject: 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
---
 src/Startup.F77    | 22 ++++++++++++++++++++++
 src/Startup.c      | 22 ----------------------
 src/make.code.defn |  2 +-
 3 files changed, 23 insertions(+), 23 deletions(-)
 create mode 100644 src/Startup.F77
 delete mode 100644 src/Startup.c

(limited to 'src')

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 = 
-- 
cgit v1.2.3