]>
Commit | Line | Data |
---|---|---|
0795afa3 | 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 |