sp-fispact2001 - ENEA AFS Cell

APPENDIX A – Fortran Modifications to FISPACT2001
Only one subroutine has been added to FISPACT2001. The subroutine is called spall.f. The
other modifications to the original code only concern the following subroutines:
fmain.f
col069.f
col100.f
col172.f
col175.f
col315.f
The subroutine fmain.f has been modified in order to add five new code words: CURRENT,
TARGET, ATTARGET, HCOLLAPSE, TCOLLAPSE. All of them concern the
preliminary input.
In FISPACT2001 the subroutines col*.f are called by fmain.f (code word COLLAPSE) in
order to create the file COLLAPX according to the desired energy group structure. The
subroutine spall.f is called by the subroutines col*.f (code words TCOLLAPSE and
HCOLLAPSE) for calculations of the pseudo cross-sections for interactions over 20MeV.
Subroutine spall.f
SUBROUTINE SPALL
C C.Petrovich - ENEA
C***************************************************************
C SUBROUTINE FOR CALCULATIONS >20MeV.
C IT USES OUTPUTS PRODUCED BY MCNPX 2.1.5 AND HTAPE3X
C***************************************************************
C
CHARACTER*80 FILES
COMMON /FILES1/ FILES(40)
COMMON /SPAL1/ CPFLUX,CURR,IDTARG,ATTARG
COMMON /SPAL3/ NP2(15000),ND2(15000),ZSEKT(15000),MCP2
DOUBLE PRECISION HISOT(0:300,0:300),ELAS(0:300,0:300),EL,HIS,
* HISOTM(0:300,0:300)
PARAMETER (IS=3000)
INTEGER IZ(IS),IN(IS),IA(IS),IZE(IS),INE(IS),
* IZF(IS),INF(IS),IAF(IS),IZM(IS),INM(IS),IAM(IS),
* ID(IS),IDF(0:300,0:300),IDFM(0:300,0:300)
CHARACTER B*6,C*5,D*3
c Protons per second in 1mA
PROTSC=6.24146E15
17