From 94bfc6e444f7390ccba4981de80f0186530de1c8 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@4451c3c6-1034-4891-99ea-21147727ccdf>
Date: Fri, 16 Jan 2004 14:30:05 +0000
Subject: Startup functions should return 0

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

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