53 |
C error. This traps the case in which the input |
C error. This traps the case in which the input |
54 |
C parameter nThreads is different from the actual |
C parameter nThreads is different from the actual |
55 |
C number of concurrent threads the OS gives us. This |
C number of concurrent threads the OS gives us. This |
56 |
C case causes a deadlock if we don't trap it here. |
C case causes a deadlock if we do not trap it here. |
57 |
#include "MAIN_PDIRECTIVES1.h" |
#include "MAIN_PDIRECTIVES1.h" |
58 |
DO I=1,nThreads |
DO I=1,nThreads |
59 |
myThid = I |
myThid = I |