MICROCERN/mtlprt.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   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 *
  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