diff options
| author | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2005-04-19 21:56:17 +0000 |
|---|---|---|
| committer | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2005-04-19 21:56:17 +0000 |
| commit | cfbd9e8e303ba6f766309c0f050a7220ea8f0a20 (patch) | |
| tree | 9441ffc425da6fb6e8d2f11170458eba14490f27 | |
| parent | 8a3fd1c16ff51bdcb96f8434d1cc2bcfcbf4f770 (diff) | |
Correct interface for CCTK_TerminateNext
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@28 51d2df92-0e4f-0410-a727-bd43d766d6b6
| -rw-r--r-- | src/cctk_Termination.F90 | 3 |
1 files changed, 1 insertions, 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 |