Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / HIJING / hipyset1_35 / luerrm_hijing.F
CommitLineData
e74335a4 1* $Id$
2
3C*********************************************************************
4
5 SUBROUTINE LUERRM_HIJING(MERR,CHMESS)
6
7C...Purpose: to inform user of errors in program execution.
8#include "lujets_hijing.inc"
9#include "ludat1_hijing.inc"
10 CHARACTER CHMESS*(*)
11
12C...Write first few warnings, then be silent.
13 IF(MERR.LE.10) THEN
14 MSTU(27)=MSTU(27)+1
15 MSTU(28)=MERR
16 IF(MSTU(25).EQ.1.AND.MSTU(27).LE.MSTU(26)) WRITE(MSTU(11),1000)
17 & MERR,MSTU(31),CHMESS
18
19C...Write first few errors, then be silent or stop program.
20 ELSEIF(MERR.LE.20) THEN
21 MSTU(23)=MSTU(23)+1
22 MSTU(24)=MERR-10
23 IF(MSTU(21).GE.1.AND.MSTU(23).LE.MSTU(22)) WRITE(MSTU(11),1100)
24 & MERR-10,MSTU(31),CHMESS
25 IF(MSTU(21).GE.2.AND.MSTU(23).GT.MSTU(22)) THEN
26 WRITE(MSTU(11),1100) MERR-10,MSTU(31),CHMESS
27 WRITE(MSTU(11),1200)
28 IF(MERR.NE.17) CALL LULIST_HIJING(2)
29 STOP
30 ENDIF
31
32C...Stop program in case of irreparable error.
33 ELSE
34 WRITE(MSTU(11),1300) MERR-20,MSTU(31),CHMESS
35 STOP
36 ENDIF
37
38C...Formats for output.
39 1000 FORMAT(/5X,'Advisory warning type',I2,' given after',I6,
40 &' LUEXEC_HIJING calls:'/5X,A)
41 1100 FORMAT(/5X,'Error type',I2,' has occured after',I6,
42 &' LUEXEC_HIJING calls:'/5X,A)
43 1200 FORMAT(5X,'Execution will be stopped after listing of last ',
44 &'event!')
45 1300 FORMAT(/5X,'Fatal error type',I2,' has occured after',I6,
46 &' LUEXEC_HIJING calls:'/5X,A/5X,'Execution will now be stopped!')
47
48 RETURN
49 END