From cfbd9e8e303ba6f766309c0f050a7220ea8f0a20 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6>
Date: Tue, 19 Apr 2005 21:56:17 +0000
Subject: Correct interface for CCTK_TerminateNext

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@28 51d2df92-0e4f-0410-a727-bd43d766d6b6
---
 src/cctk_Termination.F90 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/cctk_Termination.F90 b/src/cctk_Termination.F90
index 66d5de5..d4c672d 100644
--- a/src/cctk_Termination.F90
+++ b/src/cctk_Termination.F90
@@ -22,9 +22,8 @@ module cctk_Termination
        CCTK_POINTER_TO_CONST cctkGH
      end subroutine CCTK_TerminationReached
      
-     subroutine CCTK_TerminateNext (ierr, cctkGH)
+     subroutine CCTK_TerminateNext (cctkGH)
        implicit none
-       integer               ierr
        CCTK_POINTER_TO_CONST cctkGH
      end subroutine CCTK_TerminateNext
      
-- 
cgit v1.2.3