From 4594ba4678c2904165dc33557dc32f24aba222a1 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@f80f6fb6-8356-4fd4-90bc-d84ad503c100>
Date: Fri, 16 Jan 2004 14:41:04 +0000
Subject: Startup functions should return 0

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

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