diff options
| author | goodale <goodale@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2000-12-15 02:09:13 +0000 |
|---|---|---|
| committer | goodale <goodale@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2000-12-15 02:09:13 +0000 |
| commit | a85df6dd98dc36ede49901ac929b7cd497495932 (patch) | |
| tree | 0e2267e87f2f27dac6a3686f1e7bbb560a0433a0 /src | |
| parent | 56918bd0ff10def10d6063aa9a66955e009f7380 (diff) | |
T3E doesn't like MODULO, MOD works, 'though.
Tom
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@26 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
Diffstat (limited to 'src')
| -rw-r--r-- | src/Extract.F | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Extract.F b/src/Extract.F index b1c0f23..6868a93 100644 --- a/src/Extract.F +++ b/src/Extract.F @@ -106,7 +106,7 @@ c c ------------------------------------------------------------------ IF ((itout) .LE. 0) RETURN - IF (MODULO(int(cctk_iteration),int(itout)) .NE. 0) RETURN + IF(MOD(int(cctk_iteration),int(itout)) .NE. 0) RETURN if (verbose == 1) then write(infoline,'(A24,G12.7)') |