MINICERN/mathlib/gen/n/mtlprt.F

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