25 |
#include "DYNVARS.h" |
#include "DYNVARS.h" |
26 |
#include "GRID.h" |
#include "GRID.h" |
27 |
#include "EOS.h" |
#include "EOS.h" |
28 |
LOGICAL DIFF_BASE_MULTIPLE |
LOGICAL DIFFERENT_MULTIPLE |
29 |
EXTERNAL DIFF_BASE_MULTIPLE |
EXTERNAL DIFFERENT_MULTIPLE |
30 |
INTEGER IO_ERRCOUNT |
INTEGER IO_ERRCOUNT |
31 |
EXTERNAL IO_ERRCOUNT |
EXTERNAL IO_ERRCOUNT |
32 |
|
|
44 |
CEOP |
CEOP |
45 |
|
|
46 |
IF ( |
IF ( |
47 |
& DIFF_BASE_MULTIPLE(baseTime,dumpFreq, |
& DIFFERENT_MULTIPLE(dumpFreq,myTime,deltaTClock) .OR. |
|
& myTime,deltaTClock) .OR. |
|
48 |
& myTime.EQ.endTime .OR. |
& myTime.EQ.endTime .OR. |
49 |
& myTime.EQ.startTime |
& myTime.EQ.startTime |
50 |
& ) THEN |
& ) THEN |