ISAJET/code/sigfil.F

   1 #include "isajet/pilot.h"
   2       SUBROUTINE SIGFIL(SIG,I1,I2,I3,I4)
   3 C          Fill /JETSIG/ arrays if SIG > 0
   4 C          Write error message if SIG < 0
   5 #include "isajet/itapes.inc"
   6 #include "isajet/jetsig.inc"
   7 C
   8       IF(SIG.GT.0) THEN
   9         NSIGS=NSIGS+1
  10         SIGMA=SIGMA+SIG
  11         SIGS(NSIGS)=SIG
  12         INOUT(NSIGS)=I1+IOPAK*(I2+IOPAK*(I3+IOPAK*I4))
  13       ELSEIF(SIG.LT.0.) THEN
  14         WRITE(ITLIS,1010) SIG,I1,I2,I3,I4
  15 1010    FORMAT(' ERROR IN SIGFIL ... SIG = ',E12.5,' FOR ',4I6)
  16       ENDIF
  17       RETURN
  18       END