diff options
| author | rideout <rideout@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-02-05 14:46:43 +0000 |
|---|---|---|
| committer | rideout <rideout@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-02-05 14:46:43 +0000 |
| commit | 0e83ff4d6ff0de00741666ed1f51344b97bf311f (patch) | |
| tree | bd33c1529aa2a87c4a074b9c7e3f6a3677fd5f98 /src/main/Termination.c | |
| parent | 8bb1a1167165003b645f076272b61cd6a0840b4d (diff) | |
Added fortran wrapper for CCTK_TerminateNext().
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2609 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/main/Termination.c')
| -rw-r--r-- | src/main/Termination.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/main/Termination.c b/src/main/Termination.c index 785a4ab8..44bd5b5b 100644 --- a/src/main/Termination.c +++ b/src/main/Termination.c @@ -70,3 +70,8 @@ void CCTK_TerminateNext (const cGH *GH) termination_reached = 1; } + +void CCTK_FCALL CCTK_FNAME (CCTK_TerminateNext) () +{ + termination_reached = 1; +} |