C*********************************************************************** C DATE 05/12/83 - C - CF GOXS - CE GROUP-ORDERED CROSS SECTIONS FOR SN - C - CN THIS FILE CONTAINS CROSS SECTION - CN TRANSPORT TABLES AND RESPONSE EDITS - CN IN A GROUP-ORDERED FORM CONVENIENT - CN FOR USE IN SN TRANSPORT CODES. - C - C*********************************************************************** C C C----------------------------------------------------------------------- CS FILE STRUCTURE - CS - CS RECORD TYPE PRESENT IF - CS ============================== =============== - CS FILE IDENTIFICATION ALWAYS - CS FILE CONTROL ALWAYS - CS FILE DATA ALWAYS - CS *************(REPEAT FOR ALL GROUPS) - CS * EDIT CROSS SECTIONS ALWAYS - CS * SCATTERING CONTROL NORD.GT.0 - CS * SCATTERING DATA NORD.GT.0 - CS ****************** - C - C----------------------------------------------------------------------- C C C----------------------------------------------------------------------- CR FILE IDENTIFICATION - C - CL HNAME,(HUSE(I),I=1,2),IVERS - C - CW 1+3*MULT - C - CB FORMAT(4H OV ,A8,1H*,2A8,1H*,I6) - C - CD HNAME HOLLERITH FILE NAME - GOXS - (A8) - CD HUSE HOLLERITH USER IDENTIFIATION (A8) - CD IVERS FILE VERSION NUMBER - CD MULT DOUBLE PRECISION PARAMETER - CD 1- A8 WORD IS SINGLE WORD - CD 2- A8 WORD IS DOUBLE PRECISION WORD - C - C----------------------------------------------------------------------- C C C----------------------------------------------------------------------- CR FILE CONTROL - C - CL NGROUP,NMAT,NORD,NED,IDPF,LNG,MAXUP,MAXDN,NPRIN,I2LP1 - C - CW 10 - C - CD NGROUP NUMBER OF GROUPS - CD NMAT NUMBER OF MATERIALS - CD NORD NUMBER OF LEGENDRE ORDERS - CD NED NUMBER OF EXTRA EDIT CROSS SECTIONS - CD (IN ADDITION TO THE BASIC PRINCIPAL CROSS SECTIONS) - CD IDPF DOUBLE PRECISION FLAG FOR EDIT AND SCATTERING DATA - CD (1/2=SINGLE/DOUBLE) - CD LNG LAST NEUTRON GROUP FOR COUPLED SETS - CD MAXUP MAXIMUM NUMBER OF UPSCATTER GROUPS - CD MAXDN MAXIMUM NUMBER OF DOWNSCATTER GROUPS - CD NPRIN NUMBER OF PRINCIPAL CROSS SECTIONS (0, 4, OR 5) - CD I2LP1 2L+1 TERM INCLUDED IN LIBRARY (0/1=NO/YES) - C - C----------------------------------------------------------------------- C C C----------------------------------------------------------------------- CR FILE DATA - C - CL (HMAT(I),I=1,NMAT),(HED(J),J=1,NEDT),(VEL(K),K=1,NGROUP), - CL 1(EG(K),K=1,NGROUP),EMIN - C - CW (NMAT+NED)*MULT+2*NGROUP+1 - C - CD HMAT(I) HOLLERITH MATERIAL NAMES - CD HED(J) HOLLERITH EDIT CROSS SECTION NAMES - CD VEL(K) AVERAGE VELOCITY FOR GROUP K (CM/SEC) - CD EG(K) MAX ENERGY BOUND FOR GROUP K (EV) - CD EMIN MIN ENERGY BOUND FOR GROUP STRUCTURE (EV) - CD NEDT NED+NPRIN - C - C----------------------------------------------------------------------- C C C----------------------------------------------------------------------- CR EDIT CROSS SECTIONS - C - CL ((EDXS(I,J),I=1,NMAT),J=1,NEDT) - C - CW NMAT*NEDT - C - CD EDXS(I,J) EDIT CROSS SECTIONS. THE FOLLOWING 4 REACTIONS - CD ARE ALWAYS PRESENT IN THIS ORDER WHEN NPRIN=4: - CD TOTAL TOTAL TRANSPORT XSEC - CD ABS BALANCE ABSORPTION XSEC - CD NUSIGF FISSION NEUTRON PRODUCTION XSEC - CD CHI FISSION SPECTRUM - CD ALSO PRESENT WHEN NPRIN=5: - CD TRD TRANSPORT FOR DIFFUSION - CD ANY EXTRA EDITS FOLLOW THESE STANDARD EDITS. - CD WHEN NPRIN=0, ANY NAMES ARE ALLOWED. - C - C----------------------------------------------------------------------- C C C----------------------------------------------------------------------- CR SCATTERING CONTROL - C - CL ((NJJ(L,I),L=1,NORD),I=1,NMAT), - CL 1((IJJ(L,I),L=1,NORD),I=1,NMAT) - C - CW 2*NORD*NMAT - C - CD NJJ(L,I) NUMBER OF GROUPS IN BAND - CD IJJ(L,I) FIRST GROUP IN BAND - C - C----------------------------------------------------------------------- C C C----------------------------------------------------------------------- CR SCATTERING DATA - C - CL SCAT(I),I=1,NTAB) - C - CW NTAB - C - CD SCAT(K) SCATTERING DATA. - CD NTAB SUM OF NJJ(L,I) OVER L FROM 1 TO NORD AND - CD I FROM 1 TO NMAT - C - C-----------------------------------------------------------------------
TRANSX HyperText Manual
TRANSX HyperText Help Package
T-2 Nuclear Information Service