More volume overlaps corrected
[u/mrichter/AliRoot.git] / ISAJET / code / sigfil.F
CommitLineData
0795afa3 1#include "isajet/pilot.h"
2 SUBROUTINE SIGFIL(SIG,I1,I2,I3,I4)
3C Fill /JETSIG/ arrays if SIG > 0
4C Write error message if SIG < 0
5#include "isajet/itapes.inc"
6#include "isajet/jetsig.inc"
7C
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
151010 FORMAT(' ERROR IN SIGFIL ... SIG = ',E12.5,' FOR ',4I6)
16 ENDIF
17 RETURN
18 END