]>
Commit | Line | Data |
---|---|---|
1 | * | |
2 | * $Id$ | |
3 | * | |
4 | #include "gen/pilot.h" | |
5 | SUBROUTINE MTLPRT(NAME,ERC,TEXT) | |
6 | CHARACTER*(*) NAME,ERC,TEXT | |
7 | LOGICAL LMF,LRF | |
8 | ||
9 | IF(ERC(5:6).NE.'.0') THEN | |
10 | CALL MTLMTR(ERC,MLG,LMF,LRF) | |
11 | ELSE | |
12 | LMF=.TRUE. | |
13 | LRF=.FALSE. | |
14 | ENDIF | |
15 | IF(LMF) THEN | |
16 | LT=LNBLNK(TEXT) | |
17 | IF(MLG .LT. 1) WRITE( *,100) ERC(1:4),NAME,ERC,TEXT(1:LT) | |
18 | IF(MLG .GE. 1) WRITE(MLG,100) ERC(1:4),NAME,ERC,TEXT(1:LT) | |
19 | ENDIF | |
20 | IF(.NOT.LRF) STOP 'in MTLPRT' | |
21 | RETURN | |
22 | 100 FORMAT(7X,'***** CERN ',A,1X,A,' ERROR ',A,': ',A) | |
23 | END |