MICROCERN/mtlprt.F

   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