blob: 980a6a777c3038defeaa0329dff84736d8cc7a4d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#include "cctk.h"
module cctk_Termination
implicit none
interface
subroutine CCTK_TerminationReached (ires, cctkGH)
implicit none
integer ires
CCTK_POINTER_TO_CONST cctkGH
end subroutine CCTK_TerminationReached
subroutine CCTK_TerminateNext (cctkGH)
implicit none
CCTK_POINTER_TO_CONST cctkGH
end subroutine CCTK_TerminateNext
end interface
end module cctk_Termination
|