23 |
C | are good, sometimes they are lousy. |
C | are good, sometimes they are lousy. |
24 |
C | The barrier mechanism is used as follows |
C | The barrier mechanism is used as follows |
25 |
C | 1. In the single-threaded part of the code |
C | 1. In the single-threaded part of the code |
26 |
C | CALL BAR2_INIT |
C | CALL BAR2\_INIT |
27 |
C | on CRAY, NEC this routine does nothing |
C | on CRAY, NEC this routine does nothing |
28 |
C | on T3E there is no single-threaded code |
C | on T3E there is no single-threaded code |
29 |
C | but there may be barrier initialisation - |
C | but there may be barrier initialisation - |
31 |
C | 2. When we need to synchronize everybody just |
C | 2. When we need to synchronize everybody just |
32 |
C | CALL BAR2( myThid ) |
C | CALL BAR2( myThid ) |
33 |
C | where myThid is myThreadId |
C | where myThid is myThreadId |
34 |
C | on CRAY, NEC FBAR will just do C$DIR BARRIER |
C | on CRAY, NEC FBAR will just do C\$DIR BARRIER |
35 |
C | or CALL BARRIER or the like. |
C | or CALL BARRIER or the like. |
36 |
C | on T3E FBAR does CALL BARRIER(...) or something |
C | on T3E FBAR does CALL BARRIER(...) or something |
37 |
C | need to check this. |
C | need to check this. |