From 5cd040d3fda1635075dd2850f6d2141712560e52 Mon Sep 17 00:00:00 2001
From: goodale <goodale@f80f6fb6-8356-4fd4-90bc-d84ad503c100>
Date: Thu, 17 Feb 2000 10:09:40 +0000
Subject: Changed C startup routines to Fortran so we have a test of Fortran
 startup routines, and also the thorns are now uni-language and provide
 examples of how to write a Fortran startup routine.

Tom


git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@37 f80f6fb6-8356-4fd4-90bc-d84ad503c100
---
 schedule.ccl       |  2 +-
 src/Startup.F      | 22 ++++++++++++++++++++++
 src/Startup.c      | 22 ----------------------
 src/make.code.defn |  2 +-
 4 files changed, 24 insertions(+), 24 deletions(-)
 create mode 100644 src/Startup.F
 delete mode 100644 src/Startup.c

diff --git a/schedule.ccl b/schedule.ccl
index b6aa8b8..d7b49d0 100644
--- a/schedule.ccl
+++ b/schedule.ccl
@@ -5,7 +5,7 @@ STORAGE: scalarevolve
 
 schedule WaveToyF90_Startup at STARTUP
 {
-  LANG: C
+  LANG: Fortran
 } "Register banner"
 
 schedule WaveToyF90_InitSymBound at BASEGRID
diff --git a/src/Startup.F b/src/Startup.F
new file mode 100644
index 0000000..44c7084
--- /dev/null
+++ b/src/Startup.F
@@ -0,0 +1,22 @@
+ /*@@
+   @file      Startup.F90
+   @date      
+   @author    Gabrielle Allen
+   @desc 
+              Register banner 
+   @enddesc 
+   @version $Header$
+ @@*/
+
+#include "cctk.h"
+
+      integer function WaveToyF90_Startup()
+
+      implicit none
+   
+      integer ierr
+      call CCTK_RegisterBanner(ierr, "WaveToyF90: Evolutions of a Scalar Field")
+
+      WaveToyF90_Startup = 0
+
+      end function WaveToyF90_Startup
diff --git a/src/Startup.c b/src/Startup.c
deleted file mode 100644
index 386f9dd..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 WaveToyF90_Startup(void)
-{
-
-   const char *banner = "WaveToyF90: Evolutions of a Scalar Field";
-
-   CCTK_RegisterBanner(banner);
-
-   return 0;
-}
diff --git a/src/make.code.defn b/src/make.code.defn
index 94b12c3..ca7db3c 100644
--- a/src/make.code.defn
+++ b/src/make.code.defn
@@ -2,7 +2,7 @@
 # $Header$
 
 # Source files in this directory
-SRCS = InitSymBound.F WaveToy.F Startup.c
+SRCS = InitSymBound.F WaveToy.F Startup.F
 
 # Subdirectories containing source files
 SUBDIRS = 
-- 
cgit v1.2.3