added verbosity to QA histograms (Yves)
[u/mrichter/AliRoot.git] / MICROCERN / mtlprt.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
fe4da5cc 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
22100 FORMAT(7X,'***** CERN ',A,1X,A,' ERROR ',A,': ',A)
23 END