| Symbol | Description | Uses |
| myTwoProcRank | Temp. for holding ranking within processor pairs. | 6 |
| File | Line number | Procedure | Code |
| ./eesupp/src/ini_jam.F | 46 | INI_JAM |
INTEGER myTwoProcRank |
| ./eesupp/src/ini_jam.F | 61 | INI_JAM |
myTwoProcRank = MOD(myProcId,2) |
| ./eesupp/src/ini_jam.F | 62 | INI_JAM |
IF ( myTwoProcRank .EQ. 0 ) THEN |
| ./eesupp/src/ini_jam.F | 63 | INI_JAM |
myTwoProcRank = 1 |
| ./eesupp/src/ini_jam.F | 65 | INI_JAM |
myTwoProcRank = 0 |
| ./eesupp/src/ini_jam.F | 67 | INI_JAM |
CALL JAM_COLLECTIVE_INIT( myTwoProcRank ) |