Parent Directory | Revision Log | Revision Graph | Patch
revision 1.6 by heimbach, Wed Jun 21 20:44:06 2000 UTC | revision 1.7 by heimbach, Mon Jan 29 20:00:14 2001 UTC | |
---|---|---|
# | Line 76 C but this causes KAP to insert a | Line 76 C but this causes KAP to insert a |
76 | GOTO 11 | GOTO 11 |
77 | ENDIF | ENDIF |
78 | IF ( numberThreadsRunning .NE. nThreads ) THEN | IF ( numberThreadsRunning .NE. nThreads ) THEN |
79 | #ifdef HAVE_SYSTEM | |
80 | #ifndef TARGET_T3E | #ifndef TARGET_T3E |
81 | #ifndef TARGET_CRAY_VECTOR | #ifndef TARGET_CRAY_VECTOR |
82 | CALL SYSTEM('sleep 1') | CALL SYSTEM('sleep 1') |
83 | #endif | #endif |
84 | #endif | #endif |
85 | #endif | |
86 | GOTO 10 | GOTO 10 |
87 | ENDIF | ENDIF |
88 | 11 CONTINUE | 11 CONTINUE |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |