From ef66ca543174bb3f3c5f547f93544907f930bd05 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@4451c3c6-1034-4891-99ea-21147727ccdf>
Date: Fri, 16 Jan 2004 11:49:14 +0000
Subject: Do not return a value from the scheduled startup function

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@107 4451c3c6-1034-4891-99ea-21147727ccdf
---
 src/Startup.F77 | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/Startup.F77 b/src/Startup.F77
index 5ee319c..b5cd03e 100644
--- a/src/Startup.F77
+++ b/src/Startup.F77
@@ -10,13 +10,11 @@
 
 #include "cctk.h"
 
-      integer function WaveToyF77_Startup()
+      subroutine WaveToyF77_Startup
 
       implicit none
    
       integer ierr
       call CCTK_RegisterBanner(ierr, "WaveToyF77: Evolutions of a Scalar Field")
 
-      WaveToyF77_Startup = 0
-
       end 
-- 
cgit v1.2.3