]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
b9d0a01d | 5 | * Revision 1.1.2.1 2002/07/11 17:14:48 alibrary |
6 | * Adding MICROCERN | |
7 | * | |
8 | * Revision 1.1.1.1 1999/05/18 15:55:36 fca | |
9 | * AliRoot sources | |
10 | * | |
fe4da5cc | 11 | * Revision 1.1.1.1 1996/04/01 15:02:52 mclareni |
12 | * Mathlib gen | |
13 | * | |
14 | * | |
15 | *FCA : Fri Mar 26 17:27:50 CET 1999 by Federico Carminati | |
16 | * Changed abend into stop and LENOCC into LNBLNK | |
17 | * to reduce dependance on kernlib | |
18 | #include "gen/pilot.h" | |
19 | SUBROUTINE MTLPRT(NAME,ERC,TEXT) | |
20 | CHARACTER*(*) NAME,ERC,TEXT | |
21 | LOGICAL LMF,LRF | |
22 | ||
23 | IF(ERC(5:6).NE.'.0') THEN | |
24 | CALL MTLMTR(ERC,MLG,LMF,LRF) | |
25 | ELSE | |
26 | LMF=.TRUE. | |
27 | LRF=.FALSE. | |
28 | ENDIF | |
29 | IF(LMF) THEN | |
30 | LT=LNBLNK(TEXT) | |
31 | IF(MLG .LT. 1) WRITE( *,100) ERC(1:4),NAME,ERC,TEXT(1:LT) | |
32 | IF(MLG .GE. 1) WRITE(MLG,100) ERC(1:4),NAME,ERC,TEXT(1:LT) | |
33 | ENDIF | |
34 | IF(.NOT.LRF) STOP 'in MTLPRT' | |
35 | RETURN | |
36 | 100 FORMAT(7X,'***** CERN ',A,1X,A,' ERROR ',A,': ',A) | |
37 | END |