[u/mrichter/AliRoot.git] / MICROCERN / kerset.F

*
* $Id$
*
* $Log$
* Revision 1.1.2.1  2002/07/11 17:14:48  alibrary
* Adding MICROCERN
*
* Revision 1.1.1.1  1999/05/18 15:55:33  fca
* AliRoot sources
*
* Revision 1.1.1.1  1996/02/15 17:48:35  mclareni
* Kernlib
*
*
#include "kernnum/pilot.h"
          SUBROUTINE KERSET(ERCODE,LGFILE,LIMITM,LIMITR)
                    PARAMETER(KOUNTE  =  27)
          CHARACTER*6         ERCODE,   CODE(KOUNTE)
          LOGICAL             MFLAG,    RFLAG
          INTEGER             KNTM(KOUNTE),       KNTR(KOUNTE)
          DATA      LOGF      /  0  /
          DATA      CODE(1), KNTM(1), KNTR(1)  / 'C204.1', 255, 255 /
          DATA      CODE(2), KNTM(2), KNTR(2)  / 'C204.2', 255, 255 /
          DATA      CODE(3), KNTM(3), KNTR(3)  / 'C204.3', 255, 255 /
          DATA      CODE(4), KNTM(4), KNTR(4)  / 'C205.1', 255, 255 /
          DATA      CODE(5), KNTM(5), KNTR(5)  / 'C205.2', 255, 255 /
          DATA      CODE(6), KNTM(6), KNTR(6)  / 'C305.1', 255, 255 /
          DATA      CODE(7), KNTM(7), KNTR(7)  / 'C308.1', 255, 255 /
          DATA      CODE(8), KNTM(8), KNTR(8)  / 'C312.1', 255, 255 /
          DATA      CODE(9), KNTM(9), KNTR(9)  / 'C313.1', 255, 255 /
          DATA      CODE(10),KNTM(10),KNTR(10) / 'C336.1', 255, 255 /
          DATA      CODE(11),KNTM(11),KNTR(11) / 'C337.1', 255, 255 /
          DATA      CODE(12),KNTM(12),KNTR(12) / 'C341.1', 255, 255 /
          DATA      CODE(13),KNTM(13),KNTR(13) / 'D103.1', 255, 255 /
          DATA      CODE(14),KNTM(14),KNTR(14) / 'D106.1', 255, 255 /
          DATA      CODE(15),KNTM(15),KNTR(15) / 'D209.1', 255, 255 /
          DATA      CODE(16),KNTM(16),KNTR(16) / 'D509.1', 255, 255 /
          DATA      CODE(17),KNTM(17),KNTR(17) / 'E100.1', 255, 255 /
          DATA      CODE(18),KNTM(18),KNTR(18) / 'E104.1', 255, 255 /
          DATA      CODE(19),KNTM(19),KNTR(19) / 'E105.1', 255, 255 /
          DATA      CODE(20),KNTM(20),KNTR(20) / 'E208.1', 255, 255 /
          DATA      CODE(21),KNTM(21),KNTR(21) / 'E208.2', 255, 255 /
          DATA      CODE(22),KNTM(22),KNTR(22) / 'F010.1', 255,   0 /
          DATA      CODE(23),KNTM(23),KNTR(23) / 'F011.1', 255,   0 /
          DATA      CODE(24),KNTM(24),KNTR(24) / 'F012.1', 255,   0 /
          DATA      CODE(25),KNTM(25),KNTR(25) / 'F406.1', 255,   0 /
          DATA      CODE(26),KNTM(26),KNTR(26) / 'G100.1', 255, 255 /
          DATA      CODE(27),KNTM(27),KNTR(27) / 'G100.2', 255, 255 /
          LOGF  =  LGFILE
             L  =  0
          IF(ERCODE .NE. ' ')  THEN
             DO 10  L = 1, 6
                IF(ERCODE(1:L) .EQ. ERCODE)  GOTO 12
  10            CONTINUE
  12         CONTINUE
          ENDIF
          DO 14     I  =  1, KOUNTE
             IF(L .EQ. 0)  GOTO 13
             IF(CODE(I)(1:L) .NE. ERCODE(1:L))  GOTO 14
  13         IF(LIMITM.GE.0) KNTM(I)  =  LIMITM
             IF(LIMITR.GE.0) KNTR(I)  =  LIMITR
  14         CONTINUE
          RETURN
          ENTRY KERMTR(ERCODE,LOG,MFLAG,RFLAG)
          LOG  =  LOGF
          DO 20     I  =  1, KOUNTE
             IF(ERCODE .EQ. CODE(I))  GOTO 21
  20         CONTINUE
          WRITE(*,1000)  ERCODE
          CALL ABEND
          RETURN
  21      RFLAG  =  KNTR(I) .GE. 1
          IF(RFLAG  .AND.  (KNTR(I) .LT. 255))  KNTR(I)  =  KNTR(I) - 1
          MFLAG  =  KNTM(I) .GE. 1
          IF(MFLAG  .AND.  (KNTM(I) .LT. 255))  KNTM(I)  =  KNTM(I) - 1
          IF(.NOT. RFLAG)  THEN
             IF(LOGF .LT. 1)  THEN
                WRITE(*,1001)  CODE(I)
             ELSE
                WRITE(LOGF,1001)  CODE(I)
             ENDIF
          ENDIF
          IF(MFLAG .AND. RFLAG)  THEN
             IF(LOGF .LT. 1)  THEN
                WRITE(*,1002)  CODE(I)
             ELSE
                WRITE(LOGF,1002)  CODE(I)
             ENDIF
          ENDIF
          RETURN
1000      FORMAT(' KERNLIB LIBRARY ERROR. ' /
     +           ' ERROR CODE ',A6,' NOT RECOGNIZED BY KERMTR',
     +           ' ERROR MONITOR. RUN ABORTED.')
1001      FORMAT(/' ***** RUN TERMINATED BY CERN LIBRARY ERROR ',
     +           'CONDITION ',A6)
1002      FORMAT(/' ***** CERN LIBRARY ERROR CONDITION ',A6)
          END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
b9d0a01d	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:33 fca
	9	* AliRoot sources
	10	*
fe4da5cc	11	* Revision 1.1.1.1 1996/02/15 17:48:35 mclareni
	12	* Kernlib
	13	*
	14	*
	15	#include "kernnum/pilot.h"
	16	SUBROUTINE KERSET(ERCODE,LGFILE,LIMITM,LIMITR)
	17	PARAMETER(KOUNTE = 27)
	18	CHARACTER*6 ERCODE, CODE(KOUNTE)
	19	LOGICAL MFLAG, RFLAG
	20	INTEGER KNTM(KOUNTE), KNTR(KOUNTE)
	21	DATA LOGF / 0 /
	22	DATA CODE(1), KNTM(1), KNTR(1) / 'C204.1', 255, 255 /
	23	DATA CODE(2), KNTM(2), KNTR(2) / 'C204.2', 255, 255 /
	24	DATA CODE(3), KNTM(3), KNTR(3) / 'C204.3', 255, 255 /
	25	DATA CODE(4), KNTM(4), KNTR(4) / 'C205.1', 255, 255 /
	26	DATA CODE(5), KNTM(5), KNTR(5) / 'C205.2', 255, 255 /
	27	DATA CODE(6), KNTM(6), KNTR(6) / 'C305.1', 255, 255 /
	28	DATA CODE(7), KNTM(7), KNTR(7) / 'C308.1', 255, 255 /
	29	DATA CODE(8), KNTM(8), KNTR(8) / 'C312.1', 255, 255 /
	30	DATA CODE(9), KNTM(9), KNTR(9) / 'C313.1', 255, 255 /
	31	DATA CODE(10),KNTM(10),KNTR(10) / 'C336.1', 255, 255 /
	32	DATA CODE(11),KNTM(11),KNTR(11) / 'C337.1', 255, 255 /
	33	DATA CODE(12),KNTM(12),KNTR(12) / 'C341.1', 255, 255 /
	34	DATA CODE(13),KNTM(13),KNTR(13) / 'D103.1', 255, 255 /
	35	DATA CODE(14),KNTM(14),KNTR(14) / 'D106.1', 255, 255 /
	36	DATA CODE(15),KNTM(15),KNTR(15) / 'D209.1', 255, 255 /
	37	DATA CODE(16),KNTM(16),KNTR(16) / 'D509.1', 255, 255 /
	38	DATA CODE(17),KNTM(17),KNTR(17) / 'E100.1', 255, 255 /
	39	DATA CODE(18),KNTM(18),KNTR(18) / 'E104.1', 255, 255 /
	40	DATA CODE(19),KNTM(19),KNTR(19) / 'E105.1', 255, 255 /
	41	DATA CODE(20),KNTM(20),KNTR(20) / 'E208.1', 255, 255 /
	42	DATA CODE(21),KNTM(21),KNTR(21) / 'E208.2', 255, 255 /
	43	DATA CODE(22),KNTM(22),KNTR(22) / 'F010.1', 255, 0 /
	44	DATA CODE(23),KNTM(23),KNTR(23) / 'F011.1', 255, 0 /
	45	DATA CODE(24),KNTM(24),KNTR(24) / 'F012.1', 255, 0 /
	46	DATA CODE(25),KNTM(25),KNTR(25) / 'F406.1', 255, 0 /
	47	DATA CODE(26),KNTM(26),KNTR(26) / 'G100.1', 255, 255 /
	48	DATA CODE(27),KNTM(27),KNTR(27) / 'G100.2', 255, 255 /
	49	LOGF = LGFILE
	50	L = 0
	51	IF(ERCODE .NE. ' ') THEN
	52	DO 10 L = 1, 6
	53	IF(ERCODE(1:L) .EQ. ERCODE) GOTO 12
	54	10 CONTINUE
	55	12 CONTINUE
	56	ENDIF
	57	DO 14 I = 1, KOUNTE
	58	IF(L .EQ. 0) GOTO 13
	59	IF(CODE(I)(1:L) .NE. ERCODE(1:L)) GOTO 14
	60	13 IF(LIMITM.GE.0) KNTM(I) = LIMITM
	61	IF(LIMITR.GE.0) KNTR(I) = LIMITR
	62	14 CONTINUE
	63	RETURN
	64	ENTRY KERMTR(ERCODE,LOG,MFLAG,RFLAG)
	65	LOG = LOGF
	66	DO 20 I = 1, KOUNTE
	67	IF(ERCODE .EQ. CODE(I)) GOTO 21
	68	20 CONTINUE
	69	WRITE(*,1000) ERCODE
	70	CALL ABEND
	71	RETURN
	72	21 RFLAG = KNTR(I) .GE. 1
	73	IF(RFLAG .AND. (KNTR(I) .LT. 255)) KNTR(I) = KNTR(I) - 1
	74	MFLAG = KNTM(I) .GE. 1
75	IF(MFLAG .AND. (KNTM(I) .LT. 255)) KNTM(I) = KNTM(I) - 1
76	IF(.NOT. RFLAG) THEN
77	IF(LOGF .LT. 1) THEN
78	WRITE(*,1001) CODE(I)
79	ELSE
80	WRITE(LOGF,1001) CODE(I)
81	ENDIF
82	ENDIF
83	IF(MFLAG .AND. RFLAG) THEN
84	IF(LOGF .LT. 1) THEN
85	WRITE(*,1002) CODE(I)
86	ELSE
87	WRITE(LOGF,1002) CODE(I)
88	ENDIF
89	ENDIF
90	RETURN
91	1000 FORMAT(' KERNLIB LIBRARY ERROR. ' /
92	+ ' ERROR CODE ',A6,' NOT RECOGNIZED BY KERMTR',
93	+ ' ERROR MONITOR. RUN ABORTED.')
94	1001 FORMAT(/' ***** RUN TERMINATED BY CERN LIBRARY ERROR ',
95	+ 'CONDITION ',A6)
96	1002 FORMAT(/' ***** CERN LIBRARY ERROR CONDITION ',A6)
97	END