From 7ba3da15e727551bd247fcec7933a5e8b6a0a508 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@f80f6fb6-8356-4fd4-90bc-d84ad503c100>
Date: Fri, 16 Jan 2004 11:50:20 +0000
Subject: Do not return a value from the scheduled startup function

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@88 f80f6fb6-8356-4fd4-90bc-d84ad503c100
---
 src/Startup.F | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/Startup.F b/src/Startup.F
index 44c7084..c841002 100644
--- a/src/Startup.F
+++ b/src/Startup.F
@@ -10,13 +10,11 @@
 
 #include "cctk.h"
 
-      integer function WaveToyF90_Startup()
+      subroutine WaveToyF90_Startup
 
       implicit none
    
       integer ierr
       call CCTK_RegisterBanner(ierr, "WaveToyF90: Evolutions of a Scalar Field")
 
-      WaveToyF90_Startup = 0
-
-      end function WaveToyF90_Startup
+      end subroutine WaveToyF90_Startup
-- 
cgit v1.2.3