HERWIG/src/hwwarn.f

   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