More volume overlaps corrected
[u/mrichter/AliRoot.git] / 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