]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1996/04/01 15:02:52 mclareni | |
6 | * Mathlib gen | |
7 | * | |
8 | * | |
9 | #include "gen/pilot.h" | |
10 | SUBROUTINE MTLPRT(NAME,ERC,TEXT) | |
11 | CHARACTER*(*) NAME,ERC,TEXT | |
12 | LOGICAL LMF,LRF | |
13 | ||
14 | IF(ERC(5:6).NE.'.0') THEN | |
15 | CALL MTLMTR(ERC,MLG,LMF,LRF) | |
16 | ELSE | |
17 | LMF=.TRUE. | |
18 | LRF=.FALSE. | |
19 | ENDIF | |
20 | IF(LMF) THEN | |
21 | LT=LENOCC(TEXT) | |
22 | IF(MLG .LT. 1) WRITE( *,100) ERC(1:4),NAME,ERC,TEXT(1:LT) | |
23 | IF(MLG .GE. 1) WRITE(MLG,100) ERC(1:4),NAME,ERC,TEXT(1:LT) | |
24 | ENDIF | |
25 | IF(.NOT.LRF) CALL ABEND | |
26 | RETURN | |
27 | 100 FORMAT(7X,'***** CERN ',A,1X,A,' ERROR ',A,': ',A) | |
28 | END |