& .AND. westCommMode .NE. COMM_GET ) THEN
& .AND. eastCommMode .NE. COMM_GET ) THEN
IF ( westCommMode .EQ. COMM_GET ) eastRecvAck(1,biW,bjW) = 1.
IF ( eastCommMode .EQ. COMM_GET ) westRecvAck(1,biE,bjE) = 1.
& .AND. southCommMode .NE. COMM_GET ) THEN
& .AND. northCommMode .NE. COMM_GET ) THEN
IF ( southCommMode .EQ. COMM_GET ) northRecvAck(1,biS,bjS) = 1.
IF ( northCommMode .EQ. COMM_GET ) southRecvAck(1,biN,bjN) = 1.
IF ( eastCommMode .EQ. COMM_GET ) THEN
IF ( westCommMode .EQ. COMM_GET ) THEN
IF ( southCommMode .EQ. COMM_GET ) THEN
INTEGER COMM_GET
PARAMETER ( COMM_GET = 4 )
commName(COMM_GET ) = 'get'