You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
c New code words to be input in the preliminary input for collapsing<br />
> c ..........................................................CURR......<br />
> c proton current<br />
> 1175 ICHK=NEWDEC(1)<br />
> CURR=FLDEC(0)<br />
> GO TO 100<br />
> c ..........................................................TARG.....<br />
> c material number<br />
> 1177 ICHK=NEWDEC(1)<br />
> IDTARG=INDEC(0)<br />
> GO TO 100<br />
> c ........................................................ATTARGET...<br />
> c number of atoms of the material number TARG<br />
> 1185 ICHK=NEWDEC(1)<br />
> ATTARG=FLDEC(0)/1E24<br />
> GO TO 100<br />
> c .........................................total collapse...TCOL.....<br />
> c FLAG for collapsing all energies<br />
> 1190 FLAGCP=1<br />
> GO TO 410<br />
> c ..........................................high collapse....HCOL...<br />
> c FLAG for collapsing only interactions >20MeV<br />
> 1195 FLAGCP=2<br />
> GO TO 410<br />
> c<br />
> c end >20MeV C.Petrovich<br />
Since the modifications to the subroutines col*.f are very similar, only the modifications to<br />
the subroutine col175.f are shown.<br />
29,31c29,41<br />
< DIMENSION NUCL(1950),FLUX(176),XSECT(176),ZSECT(24000),<br />
< + ZSEKT(15000),MREAC(114),NP(24000),ND(24000),<br />
< + NP2(15000),ND2(15000),JPAR(1000)<br />
---<br />
> c<br />
> c begin >20MeV C. Petrovich<br />
> c<br />
> c before: DIMENSION NUCL(1950),FLUX(176),XSECT(176),ZSECT(24000),<br />
> c + ZSEKT(15000),MREAC(114),NP(24000),ND(24000),<br />
> c + NP2(15000),ND2(15000),JPAR(1000)<br />
> DIMENSION NUCL(1950),FLUX(176),XSECT(176),ZSECT(24000),<br />
> + MREAC(114),NP(24000),ND(24000),JPAR(1000)<br />
23