117 |
#endif |
#endif |
118 |
ENDIF |
ENDIF |
119 |
ENDIF |
ENDIF |
120 |
C |
|
121 |
|
#ifndef DISABLE_WRITE_TO_UNIT_ZERO |
122 |
|
C-- also write directly to unit 0 : |
123 |
|
IF ( numberOfProcs .EQ. 1 .AND. nThreads .EQ. 1 ) THEN |
124 |
|
IF (iEnd.NE.0) WRITE(0,'(A)') message(1:iEnd) |
125 |
|
ENDIF |
126 |
|
#endif |
127 |
|
|
128 |
1000 CONTINUE |
1000 CONTINUE |
129 |
RETURN |
RETURN |
130 |
|
|
1431 |
#endif |
#endif |
1432 |
ENDIF |
ENDIF |
1433 |
ENDIF |
ENDIF |
1434 |
|
|
1435 |
|
#ifndef DISABLE_WRITE_TO_UNIT_ZERO |
1436 |
|
C-- if error message, also write directly to unit 0 : |
1437 |
|
IF ( numberOfProcs .EQ. 1 .AND. nThreads .EQ. 1 |
1438 |
|
& .AND. unit.EQ.errorMessageUnit ) THEN |
1439 |
|
iEnd = ILNBLNK( message ) |
1440 |
|
IF (iEnd.NE.0) WRITE(0,'(A)') message(1:iEnd) |
1441 |
|
ENDIF |
1442 |
|
#endif |
1443 |
C |
C |
1444 |
1000 CONTINUE |
1000 CONTINUE |
1445 |
RETURN |
RETURN |