From 006af6e47bb7e80678b9092dbce133d3308b4a6e Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@daab82bb-f315-4ad1-b6d0-9353ff8b6e27>
Date: Fri, 16 Jan 2004 11:50:47 +0000
Subject: Do not return a value from the startup function

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

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