| 3820ca8e |
1 | |
| 2 | CDECK ID>, HWWARN. |
| 3 | |
| 4 | *CMZ :- -26/04/91 10.18.58 by Bryan Webber |
| 5 | |
| 6 | *-- Author : Bryan Webber |
| 7 | |
| 8 | C----------------------------------------------------------------------- |
| 9 | |
| 10 | SUBROUTINE HWWARN(SUBRTN,ICODE,*) |
| 11 | |
| 12 | C----------------------------------------------------------------------- |
| 13 | |
| 14 | C DEALS WITH ERRORS DURING EXECUTION |
| 15 | |
| 16 | C SUBRTN = NAME OF CALLING SUBROUTINE |
| 17 | |
| 18 | C ICODE = ERROR CODE: - -1 NONFATAL, KILL EVENT & PRINT NOTHING |
| 19 | |
| 20 | C 0- 49 NONFATAL, PRINT WARNING & CONTINUE |
| 21 | |
| 22 | C 50- 99 NONFATAL, PRINT WARNING & JUMP |
| 23 | |
| 24 | C 100-199 NONFATAL, DUMP & KILL EVENT |
| 25 | |
| 26 | C 200-299 FATAL, TERMINATE RUN |
| 27 | |
| 28 | C 300-399 FATAL, DUMP EVENT & TERMINATE RUN |
| 29 | |
| 30 | C 400-499 FATAL, DUMP EVENT & STOP DEAD |
| 31 | |
| 32 | C 500- FATAL, STOP DEAD WITH NO DUMP |
| 33 | |
| 34 | C----------------------------------------------------------------------- |
| 35 | |
| 36 | INCLUDE 'HERWIG61.INC' |
| 37 | |
| 38 | INTEGER ICODE |
| 39 | |
| 40 | CHARACTER*6 SUBRTN |
| 41 | |
| 42 | IF (ICODE.GE.0) WRITE (6,10) SUBRTN,ICODE |
| 43 | |
| 44 | 10 FORMAT(/' HWWARN CALLED FROM SUBPROGRAM ',A6,': CODE =',I4) |
| 45 | |
| 46 | IF (ICODE.LT.0) THEN |
| 47 | |
| 48 | IERROR=ICODE |
| 49 | |
| 50 | RETURN 1 |
| 51 | |
| 52 | ELSEIF (ICODE.LT.100) THEN |
| 53 | |
| 54 | WRITE (6,20) NEVHEP,NRN,EVWGT |
| 55 | |
| 56 | 20 FORMAT(' EVENT',I8,': SEEDS =',I11,' &',I11, |
| 57 | |
| 58 | &' WEIGHT =',E11.4/' EVENT SURVIVES. EXECUTION CONTINUES') |
| 59 | |
| 60 | IF (ICODE.GT.49) RETURN 1 |
| 61 | |
| 62 | ELSEIF (ICODE.LT.200) THEN |
| 63 | |
| 64 | WRITE (6,30) NEVHEP,NRN,EVWGT |
| 65 | |
| 66 | 30 FORMAT(' EVENT',I8,': SEEDS =',I11,' &',I11, |
| 67 | |
| 68 | &' WEIGHT =',E11.4/' EVENT KILLED. EXECUTION CONTINUES') |
| 69 | |
| 70 | IERROR=ICODE |
| 71 | |
| 72 | RETURN 1 |
| 73 | |
| 74 | ELSEIF (ICODE.LT.300) THEN |
| 75 | |
| 76 | WRITE (6,40) |
| 77 | |
| 78 | 40 FORMAT(' EVENT SURVIVES. RUN ENDS GRACEFULLY') |
| 79 | |
| 80 | CALL HWEFIN |
| 81 | |
| 82 | c-jgc CALL HWAEND |
| 83 | |
| 84 | STOP |
| 85 | |
| 86 | ELSEIF (ICODE.LT.400) THEN |
| 87 | |
| 88 | WRITE (6,50) |
| 89 | |
| 90 | 50 FORMAT(' EVENT KILLED: DUMP FOLLOWS. RUN ENDS GRACEFULLY') |
| 91 | |
| 92 | IERROR=ICODE |
| 93 | |
| 94 | CALL HWUEPR |
| 95 | |
| 96 | CALL HWUBPR |
| 97 | |
| 98 | CALL HWEFIN |
| 99 | |
| 100 | c-jgc CALL HWAEND |
| 101 | |
| 102 | STOP |
| 103 | |
| 104 | ELSEIF (ICODE.LT.500) THEN |
| 105 | |
| 106 | WRITE (6,60) |
| 107 | |
| 108 | 60 FORMAT(' EVENT KILLED: DUMP FOLLOWS. RUN STOPS DEAD') |
| 109 | |
| 110 | IERROR=ICODE |
| 111 | |
| 112 | CALL HWUEPR |
| 113 | |
| 114 | CALL HWUBPR |
| 115 | |
| 116 | STOP |
| 117 | |
| 118 | ELSE |
| 119 | |
| 120 | WRITE (6,70) |
| 121 | |
| 122 | 70 FORMAT(' RUN CANNOT CONTINUE') |
| 123 | |
| 124 | STOP |
| 125 | |
| 126 | ENDIF |
| 127 | |
| 128 | END |
git://git.uio.no / u / mrichter / AliRoot.git / blame