From 297029deadacca652c51229234612733f9e6958d Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@daab82bb-f315-4ad1-b6d0-9353ff8b6e27>
Date: Fri, 16 Jan 2004 14:41:14 +0000
Subject: Startup functions should return 0

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyFreeF90/trunk@62 daab82bb-f315-4ad1-b6d0-9353ff8b6e27
---
 src/Startup.F90 | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/Startup.F90 b/src/Startup.F90
index 5acf4ae..d00270f 100644
--- a/src/Startup.F90
+++ b/src/Startup.F90
@@ -10,7 +10,7 @@
 
 #include "cctk.h"
 
-subroutine WaveToyFreeF90_Startup
+integer function WaveToyFreeF90_Startup ()
 
   implicit none
    
@@ -18,4 +18,6 @@ subroutine WaveToyFreeF90_Startup
   
   call CCTK_RegisterBanner(ierr, "WaveToyFreeF90: Evolutions of a Scalar Field")
 
-end subroutine WaveToyFreeF90_Startup
+  WaveToyFreeF90_Startup = 0
+
+end function WaveToyFreeF90_Startup
-- 
cgit v1.2.3