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