Parent Directory | Revision Log | Revision Graph | Patch
revision 1.5 by adcroft, Tue Mar 14 20:28:11 2000 UTC | revision 1.8 by cnh, Sun Feb 4 14:38:42 2001 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | C $Header$ | C $Header$ |
2 | C $Name$ | |
3 | ||
4 | #include "CPP_EEOPTIONS.h" | #include "CPP_EEOPTIONS.h" |
5 | ||
# | Line 76 C but this causes KAP to insert a | Line 77 C but this causes KAP to insert a |
77 | GOTO 11 | GOTO 11 |
78 | ENDIF | ENDIF |
79 | IF ( numberThreadsRunning .NE. nThreads ) THEN | IF ( numberThreadsRunning .NE. nThreads ) THEN |
80 | #ifdef HAVE_SYSTEM | |
81 | #ifndef TARGET_T3E | #ifndef TARGET_T3E |
82 | #ifndef TARGET_CRAY_VECTOR | |
83 | CALL SYSTEM('sleep 1') | CALL SYSTEM('sleep 1') |
84 | #endif | #endif |
85 | #endif | |
86 | #endif | |
87 | GOTO 10 | GOTO 10 |
88 | ENDIF | ENDIF |
89 | 11 CONTINUE | 11 CONTINUE |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |