MICROCERN/mtlprt.F

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