CCCC Interface File Formats Used in NJOY 2012. Search down for MATXS, RESXS, ISOTXS, BRKOXS, or DLAYXS. Standardized CCCC format listing for MATXS file c c********************************************************************** c proposed 09/09/77 c (modified 09/80) c (nomenclature changed 06/88) c (modified for const sub-blocks 06/90) c (ordering changed 10/90) c c (bcd format changed 12/21/91) c cf matxs ce material cross section file c cn this file contains cross section cn vectors and matrices for all cn particles, materials, and reactions; cn delayed neutron spectra by time group; cn and decay heat and photon spectra. c cn formats given are for file exchange only c c********************************************************************** c c c---------------------------------------------------------------------- cs file structure cs cs record type present if cs ============================== =============== cs file identification always cs file control always cs set hollerith identification always cs file data always cs cs *************(repeat for all particles) cs * group structures always cs ************* cs cs *************(repeat for all materials) cs * material control always cs * cs * ***********(repeat for all submaterials) cs * * vector control n1db.gt.0 cs * * cs * * *********(repeat for all vector blocks) cs * * * vector block n1db.gt.0 cs * * ********* cs * * cs * * *********(repeat for all matrix blocks) cs * * * matrix control n2d.gt.0 cs * * * cs * * * *******(repeat for all sub-blocks) cs * * * * matrix sub-block n2d.gt.0 cs * * * ******* cs * * * cs * * * constant sub-block jconst.gt.0 cs * * * 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 0v ,a8,1h*,2a8,1h*,i6) c cd hname hollerith file name - matxs - (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 npart,ntype,nholl,nmat,maxw,length c cw 6 c cb format(6h 1d ,6i6) c cd npart number of particles for which group cd structures are given cd ntype number of data types present in set cd nholl number of words in set hollerith cd identification record cd nmat number of materials on file cd maxw maximum record size for sub-blocking cd length length of file c c---------------------------------------------------------------------- c c c---------------------------------------------------------------------- cr set hollerith identification c cl (hsetid(i),i=1,nholl) c cw nholl*mult c cb format(4h 2d /(9a8)) c cd hsetid hollerith identification of set (a8) cd (to be edited out 72 characters per line) c c---------------------------------------------------------------------- c c c---------------------------------------------------------------------- cr file data c cl (hprt(j),j=1,npart),(htype(k),k=1,ntype),(hmatn(i),i=1,nmat), cl 1(ngrp(j),j=1,npart),(jinp(k),k=1,ntype,(joutp(k),k=1,ntype), cl 2(nsubm(i)i=1,nmat),(locm(i),i=1,nmat) c cw (npart+ntype+nmat)*mult+2*ntype+npart+2*nmat c cb format(4h 3d ,4x,8a8/(9a8)) hprt,htype,hmatn cb format(12i6) ngrp,jinp,joutp,nsubm,locm c cd hprt(j) hollerith identification for particle j cd n neutron cd g gamma cd p proton cd d deuteron cd t triton cd h he-3 nucleus cd a alpha (he-4 nucleus) cd b beta cd r residual or recoil cd (heavier than alpha) cd htype(k) hollerith identification for data type k cd nscat neutron scattering cd ng neutron induced gamma production cd gscat gamma scattering (atomic) cd gg gamma scattering (photonuclear) cd pn proton induced neutron production cd . . cd . . cd . . cd dkn delayed neutron data cd dkhg decay heat and gamma data cd dkb decay beta data cd hmatn(i) hollerith identification for material i cd ngrp(j) number of energy groups for particle j cd jinp(k) type of incident particle associated with cd data type k. for dk data types, jinp is 0. cd joutp(k) type of outgoing particle associated with cd data type k cd nsubm(i) number of submaterials for material i cd locm(i) location of material i c c---------------------------------------------------------------------- c c c---------------------------------------------------------------------- cr group structure c cl (gpb(i),i=1,ngr),emin c cc ngr=ngrp(j) c cw ngrp(j)+1 c cb format(4h 4d ,8x,1p,5e12.5/(6e12.5)) c cd gpb(i) maximum energy bound for group i for particle j cd emin minimum energy bound for particle j c c---------------------------------------------------------------------- c c c---------------------------------------------------------------------- cr material control c cl hmat,amass,(temp(i),sigz(i),itype(i),n1d(i),n2d(i), cl 1locs(i),i=1,nsubm) c cw mult+1+6*nsubm c cb format(4h 5d ,a8,1p,2e12.5/(2e12.5,5i6)) c cd hmat hollerith material identifier cd amass atomic weight ratio cd temp ambient temperature or other parameters for cd submaterial i cd sigz dilution factor or other parameters for cd submaterial i cd itype data type for submaterial i cd n1d number of vectors for submaterial i cd n2d number of matrix blocks for submaterial i cd locs location of submaterial i c c---------------------------------------------------------------------- c c c---------------------------------------------------------------------- cr vector control c cl (hvps(i),i=1,n1d),(nfg(i),i=1,n1d),(nlg(i),i=1,n1d) c cw (mult+2)*n1d c cb format(4h 6d ,4x,8a8/(9a8)) hvps cb format(12i6) iblk,nfg,nlg c cd hvps(i) hollerith identifier of vector cd nelas neutron elastic scattering cd n2n (n,2n) cd nnf second chance fission cd gabs gamma absorption cd p2n protons in, 2 neutrons out cd . . cd . . cd . . cd nfg(i) number of first group in band for vector i cd nlg(i) number of last group in band for vector i c c---------------------------------------------------------------------- c c c---------------------------------------------------------------------- cr vector block c cl (vps(i),i=1,kmax) c cc kmax=sum over group band for each vector in block j c cw kmax c cb format(4h 7d ,8x,1p,5e12.5/(6e12.5)) c cd vps(i) data for group bands for vectors in block j. cd block size is determined by taking all the group cd bands that have a total length less than or equal cd to maxw. c c---------------------------------------------------------------------- c c c---------------------------------------------------------------------- cr scattering matrix control c cl hmtx,lord,jconst, cl 1(jband(l),l=1,noutg(k)),(ijj(l),l=1,noutg(k)) c cw mult+2+2*noutg(k) c cb format(4h 8d ,4x,a8/(12i6)) hmtx,lord,jconst, cb jband,ijj c cd hmtx hollerith identification of block cd lord number of orders present cd jconst number of groups with constant spectrum cd jband(l) bandwidth for group l cd ijj(l) lowest group in band for group l c c---------------------------------------------------------------------- c c c---------------------------------------------------------------------- cr scattering sub-block c cl (scat(k),k=1,kmax) c cc kmax=lord times the sum over all jband in the group range of cc this sub-block c cb format(4h 9d ,8x,1p,5e12.5/(6e12.5)) c cw kmax c cd scat(k) matrix data given as bands of elements for initial cd groups that lead to each final group. the order cd of the elements is as follows: band for p0 of cd group i, band for p1 of group i, ... , band for p0 cd of group i+1, band for p1 of group i+1, etc. the cd groups in each band are given in descending order. cd the size of each sub-block is determined by the cd total length of a group of bands that is less than cd or equal to maxw. cd cd if jconst.gt.0, the contributions from the jconst cd low-energy groups are given separately. c c---------------------------------------------------------------------- c c c---------------------------------------------------------------------- cr constant sub-block c cl (spec(l),l=1,noutg(k)),(prod(l),l=l1,ning(k)) c cc l1=ning(k)-jconst+1 c cw noutg(k)+jconst c cb format(4h10d ,8x,1p,5e12.5/(6e12.5)) c cd spec normalized spectrum of final particles for initial cd particles in groups l1 to ning(k) cd prod production cross section (e.g., nu*sigf) for cd initial groups l1 through ning(k) cd cd this option is normally used for the energy-independent cd neutron and photon spectra from fission and radiative cd capture usually seen at low energies. c c---------------------------------------------------------------------- c Standardized CCCC format listing for RESXS file c*********************************************************************** c proposed 09/24/90 - c - cf resxs - ce resonance cross section file - c - cn this file contains pointwise cross - cn sections for the epithermal resonance - cn range to be used for hyper-fine flux - cn calculations. elastic, fission, and - cn capture cross sections are given vs - cn temperature. linear interpolation is - cn assumed. - c - cn formats given are for file exchange only - c - c*********************************************************************** c c c----------------------------------------------------------------------- cs file structure - cs - cs record type present if - cs ============================== =============== - cs file identification always - cs file control always - cs set hollerith identification always - cs file data always - cs - cs *************(repeat for all materials) - cs * material control always - cs * - cs * ***********(repeat for all cross section blocks) - cs * * cross section block always - cs * *********** - 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 - resxs - (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 efirst,elast,nholl,nmat,nblok c - cw 5 - c - cb format(4h 1d ,2i6) - c - cd efirst lowest energy on file (ev) - cd elast highest enery on file (ev) - cd nholl number of words in set hollerith - cd identification record - cd nmat number of materials on file - cd nblok energy blocking factor - c - c----------------------------------------------------------------------- c c c----------------------------------------------------------------------- cr file control - c - cl efirst,elast,nholl,nmat,nblok c - cw 5 - c - cb format(4h 1d ,2i6) - c - cd efirst lowest energy on file (ev) - cd elast highest enery on file (ev) - cd nholl number of words in set hollerith - cd identification record - cd nmat number of materials on file - cd nblok energy blocking factor - c - c----------------------------------------------------------------------- c c c----------------------------------------------------------------------- cr set hollerith identification - c - cl (hsetid(i),i=1,nholl) - c - cw nholl*mult - c - cb format(4h 2d ,8a8/(9a8)) - c - cd hsetid hollerith identification of set (a8) - cd (to be edited out 72 characters per line) - c - c----------------------------------------------------------------------- c c c----------------------------------------------------------------------- cr file data - c - cl (hmatn(i),i=1,nmat),(ntemp(i),i=1,nmat),(locm(i),i=1,nmat) - c - cw (mult+2)*nmat - c - cb format(4h 3d ,8a8/(9a8)) hmatn - cb format(12i6) ntemp,locm - c - cd hmatn(i) hollerith identification for material i - cd ntemp(i) number of temperatures for material i - cd locm(i) location of material i - c - c----------------------------------------------------------------------- c c c----------------------------------------------------------------------- cr material control - c - cl hmat,amass,(temp(i),i=1,ntemp),nreac,nener - c - cw mult+3+ntemp - c - cb format(4h 6d ,a8,1h*,1p1e12.5/(6e12.5)) hmat,temp - cb format(2i6) nener,blok - c - cd hmat hollerith material identifier - cd amass atomic weight ratio - cd temp temperature values for this material - cd nreac number of reactions for this material - cd (3 for fissionable, 2 for nonfissionable) - cd nener number of energies for this material - c - c----------------------------------------------------------------------- c c c----------------------------------------------------------------------- cr cross section block - c - cl (xsb(i),i=1,imax) - c - cc imax=3*ntemp*(number of energies in the block) - c - cw imax - c - cb format(4h 8d ,1p5e12.5/(6e12.5)) - c - cd xsb(i) data for a block of nblok or fewer point energy - cd values. the data values given for each energy - cd are nelas, nfis, and ng at temp(1), followed by - cd nelas, nfis, and ng at temp(2), and so on. - c - c----------------------------------------------------------------------- Standardized CCCC format listing for ISOTXS file C*********************************************************************** C REVISED 11/30/76 - C - CF ISOTXS-IV - CE MICROSCOPIC GROUP NEUTRON CROSS SECTIONS - C - CN THIS FILE PROVIDES A BASIC BROAD GROUP - CN LIBRARY, ORDERED BY ISOTOPE - CN FORMATS GIVEN ARE FOR FILE EXCHANGE PURPOSES - CN ONLY. - 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 FILE-WIDE CHI DATA ICHIST.GT.1 - CS **************(REPEAT FOR ALL ISOTOPES) - CS * ISOTOPE CONTROL AND GROUP - CS * INDEPENDENT DATA ALWAYS - CS * PRINCIPAL CROSS SECTIONS ALWAYS - CS * ISOTOPE CHI DATA ICHI.GT.1 - CS * **********(REPEAT TO NSCMAX SCATTERING BLOCKS) - CS * * *******(REPEAT FROM 1 TO NSBLOK) - CS * * * SCATTERING SUB-BLOCK LORD(N).GT.0 - CS ************* - C - C----------------------------------------------------------------------- C----------------------------------------------------------------------- CR FILE IDENTIFICATION - C - CL HNAME,(HUSE(I),I=1,2),IVERS - C - CW 1+3*MULT=NUMBER OF WORDS - C - CB FORMAT(11H 0V ISOTXS ,1H*,2A6,1H*,I6) - C - CD HNAME HOLLERITH FILE NAME - ISOTXS - - CD HUSE(I) HOLLERITH USER IDENTIFICATION (A6) - CD IVERS FILE VERSION NUMBER - CD MULT DOUBLE PRECISION PARAMETER - CD 1- A6 WORD IS SINGLE WORD - CD 2- A6 WORD IS DOUBLE PRECISION WORD - C - C----------------------------------------------------------------------- C----------------------------------------------------------------------- CR FILE CONTROL (1D RECORD) - C - CL NGROUP,NISO,MAXUP,MAXDN,MAXORD,ICHIST,NSCMAX,NSBLOK - C - CW 8=NUMBER OF WORDS - C - CB FORMAT(4H 1D ,8I6) - C - CD NGROUP NUMBER OF ENERGY GROUPS IN FILE - CD NISO NUMBER OF ISOTOPES IN FILE - CD MAXUP MAXIMUM NUMBER OF UPSCATTER GROUPS - CD MAXDN MAXIMUM NUMBER OF DOWNSCATTER GROUPS - CD MAXORD MAXIMUM SCATTERING ORDER (MAXIMUM VALUE OF - CD LEGENDRE EXPANSION INDEX USED IN FILE). - CD ICHIST FILE-WIDE FISSION SPECTRUM FLAG - CD ICHIST.EQ.0, NO FILE-WIDE SPECTRUM - CD ICHIST.EQ.1, FILE-WIDE CHI VECTOR - CD ICHIST.GT.1, FILE-WIDE CHI MATRIX - CD NSCMAX MAXIMUM NUMBER OF BLOCKS OF SCATTERING DATA - CD NSBLOK SUBBLOCKING CONTROL FOR SCATTER MATRICES. THE - CD SCATTERING DATA ARE SUBBLOCKED INTO NSBLOK - CD RECORDS (SUBBLOCKS) PER SCATTERING BLOCK. - C - C----------------------------------------------------------------------- C----------------------------------------------------------------------- CR FILE DATA (2D RECORD) - C - CL (HSETID(I),I=1,12),(HISONM(I),I=1,NISO), - CL 1(CHI(J),J=1,NGROUP),(VEL(J),J=1,NGROUP), - CL 2(EMAX(J),J=1,NGROUP),EMIN,(LOCA(I),I=1,NISO) - C - CW (NISO+12)*MULT+1+NISO - CW +NGROUP*(2+ICHIST*(2/ICHIST+1)))=NUMBER OF WORDS - C - CB FORMAT(4H 2D ,1H*,11A6,1H*/ HSETID,HISONM - CB 11H*,A6,1H*,9(1X,A6)/(10(1X,A6))) - CB FORMAT(6E12.5) CHI (PRESENT IF ICHIST.EQ.1) - CD FORMAT(6E12.5) VEL,EMAX,EMIN - CD FORMAT(12I6) LOCA - C - CD HSETID(I) HOLLERITH IDENTIFICATION OF FILE (A6) - CD HISONM(I) HOLLERITH ISOTOPE LABEL FOR ISOTOPE I (A6) - CD CHI(J) FILE-WIDE FISSION SPECTRUM(PRESENT IF ICHIST.EQ.1) - CD VEL(J) MEAN NEUTRON VELOCITY IN GROUP J (CM/SEC) - CD EMAX(J) MAXIMUM ENERGY BOUND OF GROUP J (EV) - CD EMIN MINIMUM ENERGY BOUND OF SET (EV) - CD LOCA(I) NUMBER OF RECORDS TO BE SKIPPED TO READ DATA FOR - CD ISOTOPE I. LOCA(1)=0 - C - C----------------------------------------------------------------------- C----------------------------------------------------------------------- CR FILE-WIDE CHI DATA (3D RECORD) - C - CC PRESENT IF ICHIST.GT.1 - C - CL ((CHI(K,J),K=1,ICHIST),J=1,NGROUP),(ISSPEC(I),I=1,NGROUP) - C - CW NGROUP*(ICHIST+1)=NUMBER OF WORDS - C - CB FORMAT(4H 3D ,5E12.5/(6E12.5)) CHI - CB FORMAT(12I6) ISSPEC - C - CD CHI(K,J) FRACTION OF NEUTRONS EMITTED INTO GROUP J AS A - CD RESULT OF FISSION IN ANY GROUP,USING SPECTRUM K - CD ISSPEC(I) ISSPEC(I)=K IMPLIES THAT SPECTRUM K IS USED - CD TO CALCULATE EMISSION SPECTRUM FROM FISSION - CD IN GROUP I - C - C----------------------------------------------------------------------- C----------------------------------------------------------------------- CR ISOTOPE CONTROL AND GROUP INDEPENDENT DATA (4D RECORD) - C - CL HABSID,HIDENT,HMAT,AMASS,EFISS,ECAPT,TEMP,SIGPOT,ADENS,KBR,ICHI, - CL 1IFIS,IALF,INP,IN2N,IND,INT,LTOT,LTRN,ISTRPD, - CL 2(IDSCT(N),N=1,NSCMAX),(LORD(N),N=1,NSCMAX), - CL 3((JBAND(J,N),J=1,NGROUP),N=1,NSCMAX), - CL 4((IJJ(J,N),J=1,NGROUP),N=1,NSCMAX) - C - CW 3*MULT+17+NSCMAX*(2*NGROUP+2)=NUMBER OF WORDS - C - CB FORMAT(4H 4D ,3(1X,A6)/6E12.5/ - CB 1(12I6)) - C - CD HABSID HOLLERITH ABSOLUTE ISOTOPE LABEL - SAME FOR ALL - CD VERSIONS OF THE SAME ISOTOPE IN FILE (A6)- CD HIDENT IDENTIFIER OF LIBRARY FROM WHICH BASIC DATA - CD CAME (E.G. ENDF/B) (A6) - CD HMAT ISOTOPE IDENTIFICATION (E.G. ENDF/B MAT NO.) (A6) - CD AMASS GRAM ATOMIC WEIGHT - CD EFISS TOTAL THERMAL ENERGY YIELD/FISSION (W.SEC/FISS) - CD ECAPT TOTAL THERMAL ENERGY YIELD/CAPTURE (W.SEC/CAPT) - CD TEMP ISOTOPE TEMPERATURE (DEGREES KELVIN) - CD SIGPOT AVERAGE EFFECTIVE POTENTIAL SCATTERING IN - CD RESONANCE RANGE (BARNS/ATOM) - CD ADENS DENSITY OF ISOTOPE IN MIXTURE IN WHICH ISOTOPE - CD CROSS SECTIONS WERE GENERATED (A/BARN-CM)- CD KBR ISOTOPE CLASSIFICATION - CD 0=UNDEFINED - CD 1=FISSILE - CD 2=FERTILE - CD 3=OTHER ACTINIDE - CD 4=FISSION PRODUCT - CD 5=STRUCTURE - CD 6=COOLANT - CD 7=CONTROL - CD ICHI ISOTOPE FISSION SPECTRUM FLAG - CD ICHI.EQ.0, USE FILE-WIDE CHI - CD ICHI.EQ.1, ISOTOPE CHI VECTOR - CD ICHI.GT.1, ISOTOPE CHI MATRIX - CD IFIS (N,F) CROSS SECTION FLAG - CD IFIS=0, NO FISSION DATA IN PRINCIPAL CROSS - CD SECTION RECORD - CD =1, FISSION DATA PRESENT IN PRINCIPAL - CD CROSS SECTION RECORD - CD IALF (N,ALPHA) CROSS SECTION FLAG - CD SAME OPTIONS AS IFIS - CD INP (N,P) CROSS SECTION FLAG - CD SAME OPTIONS AS IFIS - CD IN2N (N,2N) CROSS SECTION FLAG - CD SAME OPTIONS AS IFIS - CD IND (N,D) CROSS SECTION FLAG - CD SAME OPTIONS AS IFIS - CD INT (N,T) CROSS SECTION FLAG - CD SAME OPTIONS AS IFIS - CD LTOT NUMBER OF MOMENTS OF TOTAL CROSS SECTION PROVIDED - CD IN PRINCIPAL CROSS SECTIONS RECORD - CD LTRN NUMBER OF MOMENTS OF TRANSPORT CROSS SECTION - CD PROVIDED IN PRINCIPAL CROSS SECTION RECORD - CD ISTRPD NUMBER OF COORDINATE DIRECTIONS FOR WHICH - CD COORDINATE DEPENDENT TRANSPORT CROSS SECTIONS - CD ARE GIVEN, IS ISTRPD=0, NO COORDINATE DEPENDENT - CD TRANSPORT CROSS SECTIONS ARE GIVEN. - CD IDSCT(N) SCATTERING MATRIX TYPE IDENTIFICATION FOR - CD SCATTERING BLOCK N, SIGNIFICANT ONLY IF - CD LORD(N).GT.0 - CD IDSCT(N)=000 + NN, TOTAL SCATTERING, (SUM OF - CD ELASTIC, INELASTIC, AND N2N SCATTERING - CD MATRIX TERMS), - CD =100 + NN, ELASTIC SCATTERING - CD =200 + NN, INELASTIC SCATTERING - CD =300 + NN, (N,2N) SCATTERING,----SEE - CD NOTE BELOW---- - CD WHERE NN IS THE LEGENDRE EXPANSION INDEX OF THE - CD FIRST MATRIX IN BLOCK N - CD LORD(N) NUMBER OF SCATTERING ORDERS IN BLOCK N. IF - CD LORD(N)=0, THIS BLOCK IS NOT PRESENT FOR THIS - CD ISOTOPE. IF NN IS THE VALUE TAKEN FROM - CD IDSCT(N), THEN THE MATRICES IN THIS BLOCK - CD HAVE LEGENDRE EXPANSION INDICES OF NN,NN+1, - CD NN+2,...,NN+LORD(N)-1 - CD JBAND(J,N) NUMBER OF GROUPS THAT SCATTER INTO GROUP J, - CD INCLUDING SELF-SCATTER, IN SCATTERING BLOCK N. - CD IF JBAND(J,N)=0, NO SCATTER DATA IS PRESENT IN - CD BLOCK N - CD IJJ(J,N) POSITION OF IN-GROUP SCATTERING CROSS SECTION IN - CD SCATTERING DATA FOR GROUP J, SCATTERING BLOCK - CD N, COUNTED FROM THE FIRST WORD OF GROUP J DATA. - CD IF JBAND(J,N).NE.0 THEN IJJ(J,N) MUST SATISFY - CD THE RELATION 1.LE.IJJ(J,N).LE.JBAND(J,N) - C - CD NOTE- FOR N,2N SCATTER, THE MATRIX CONTAINS TERMS - CD SCAT(J TO G), WHICH ARE EMISSION (PRODUCTION)- - CD BASED, I.E., ARE DEFINED SUCH THAT MACROSCOPIC - CD SCAT(J TO G) TIMES THE FLUX IN GROUP J GIVES - CD THE RATE OF EMISSION (PRODUCTION) OF NEUTRONS - CD INTO GROUP G. - C - C----------------------------------------------------------------------- C----------------------------------------------------------------------- CR PRINCIPAL CROSS SECTIONS (5D RECORD) - C - CL ((STRPL(J,L),J=1,NGROUP),L=1,LTRN), - CL 1((STOTPL(J,L),J=1,NGROUP),L=1,LTOT),(SNGAM(J),J=1,NGROUP). - CL 2(SFIS(J),J=1,NGROUP),(SNUTOT(J),J=1,NGROUP), - CL 3(CHISO(J),J=1,NGROUP),(SNALF(J),J=1,NGROUP), - CL 4(SNP(J),J=1,NGROUP),(SN2N(J),J=1,NGROUP), - CL 5(SND(J),J=1,NGROUP),(SNT(J),J=1,NGROUP), - CL 6((STRPD(J,I),J=1,NGROUP),I=1,ISTRPD) - C - CW (1+LTRN+LTOT+IALF+INP+IN2N+IND+ISTRPD+2*IFIS+ - CW ICHI*(2/(ICHI+1)))*NGROUP=NUMBER OF WORDS - C - CB FORMAT(4H 5D ,5E12.5/(6E12.5)) LENGTH OF LIST AS ABOVE - C - CD STRPL(J,L) PL WEIGHTED TRANSPORT CROSS SECTION - CD THE FIRST ELEMENT OF ARRAY STRPL IS THE - CD CURRENT (P1) WEIGHTED TRANSPORT CROSS SECTION - CD THE LEGENDRE EXPANSION COEFFICIENT FACTOR (2L+1) - CD IS NOT INCLUDED IN STRPL(J,L). - CD STOTPL(J,L) PL WEIGHTED TOTAL CROSS SECTION - CD THE FIRST ELEMENT OF ARRAY STOTPL IS THE - CD FLUX (P0) WEIGHTED TOTAL CROSS SECTION - CD THE LEGENDRE EXPANSION COEFFICIENT FACTOR (2L+1) - CD IS NOT INCLUDED IN STOTPL(J,L). - CD SNGAM(J) (N,GAMMA) - CD SFIS(J) (N,F) (PRESENT IF IFIS.GT.0) - CD SNUTOT(J) TOTAL NEUTRON YIELD/FISSION (PRESENT IF IFIS.GT.0) - CD CHISO(J)I ISOTOPE CHI (PRESENT IF ICHI.EQ.1) - CD SNALF(J) (N,ALPHA) (PRESENT IF IALF.GT.0) - CD SNP(J) (N,P) (PRESENT IF INP.GT.0) - CD SN2N(J) (N,2N) (PRESENT IF IN2N.GT.0) ----SEE - CD NOTE---- - CD SND(J) (N,D) (PRESENT IF IND.GT.0) - CD SNT(J) (N,T) (PRESENT IF INT.GT.0) - CD STRPD(J,I) COORDINATE DIRECTION I TRANSPORT CROSS SECTION - CD (PRESENT IF ISTRPD.GT.0) - C - CN NOTE - THE PRINCIPAL N,2N CROSS SECTION SN2N(J) - CN IS DEFINED AS THE N,2N REACTION CROSS SECTION, - CN I.E., SUCH THAT MACROSCOPIC SN2N(J) TIMES THE - CN FLUX IN GROUP J GIVES THE RATE AT WHICH N,2N - CN REACTIONS OCCUR IN GROUP J. THUS, FOR N,2N - CN SCATTERING, SN2N(J) = 0.5*(SUM OF SCAT(J TO G) - CN SUMMED OVER ALL G). - C - C----------------------------------------------------------------------- C----------------------------------------------------------------------- CR ISOTOPE CHI DATA (6D RECORD) - C - CC PRESENT IF ICHI.GT.1 - C - CL ((CHIISO(K,J),K=1,ICHI),J=1,NGROUP),(ISOPEC(I),I=1,NGROUP) - C - CW NGROUP*(ICHI+1)=NUMBER OF WORDS - C - CB FORMAT(4H 6D ,5E12.5/(6E12.5)) CHIISO - CB FORMAT(12I6) ISOPEC - C - CD CHIISO(K,J) FRACTION OF NEUTRONS EMITTED INTO GROUP J AS - CD RESULT OF FISSION IN ANY GROUP,USING SPECTRUM K - CD ISOPEC(I) ISOPEC(I)=K IMPLIES THAT SPECTRUM K IS USED - CD TO CALCULATE EMISSION SPECTRUM FROM FISSION - CD IN GROUP I - C - C----------------------------------------------------------------------- C----------------------------------------------------------------------- CR SCATTERING SUB-BLOCK (7D RECORD) - C - CC PRESENT IF LORD(N).GT.0 - C - CL ((SCAT(K,L),K=1,KMAX),L=1,LORDN) - C - CC KMAX=SUM OVER J OF JBAND(J,N) WITHIN THE J-GROUP RANGE OF THIS - CC SUB-BLOCK. IF M IS THE INDEX OF THE SUB-BLOCK, THE J-GROUP - CC RANGE CONTAINED WITHIN THIS SUB-BLOCK IS - CC JL=(M-1)*((NGROUP-1)/NSBLOK+1 TO JU=MIN0(NGROUP,JUP), - CC WHERE JUP=M*((NGROUP-1)/NSBLOK+1). - C - CC LORDN=LORD(N) - CC N IS THE INDEX FOR THE LOOP OVER NSCMAX (SEE FILE STRUCTURE) - C - CW KMAX*LORDN=NUMBER OF WORDS - C - CB FORMAT(4H 7D ,5E12.5/(6E12.5)) - C - CD SCAT(K,L) SCATTERING MATRIX OF SCATTERING ORDER L, FOR - CD REACTION TYPE IDENTIFIED BY IDSCT(N) FOR THIS - CD BLOCK, JBAND(J,N) VALUES FOR SCATTERING INTO - CD GROUP J ARE STORED AT LOCATIONS K=SUM FROM 1 - CD TO (J-1) OF JBAND(J,N) PLUS 1 TO K-1+JBAND(J,N).- CD THE SUM IS ZERO WHEN J=1, J-TO-J SCATTER IS - CD THE IJJ(J,N)-TH ENTRY IN THE RANGE JBAND(J,N), - CD VALUES ARE STORED IN THE ORDER (J+JUP), - CD (J+JUP-1),...,(J+1),J,(J-1),...,(J-JDN), - CD WHERE JUP=IJJ(J,N)-1 AND JDN=JBAND(J,N)-IJJ(J,N)- C - C----------------------------------------------------------------------- Standardized CCCC format listing for BRKOXS file C*********************************************************************** C REVISED 11/30/76 - C - CF BRKOXS-IV - CE MICROSCOPIC GROUP DELAYED NEUTRON PRECURSOR DATA - C - CN THIS FILE PROVIDES DATA NECESSARY FOR - CN BONDARENKO TREATMENT IN ADDITION TO - CN THOSE DATA IN FILE ISOTXS - CN FORMATS GIVEN ARE FOR FILE EXCHANGE PURPOSES - CN ONLY. - 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 FROM 1 TO NISOSH) - CS * SELF-SHIELDING FACTORS ALWAYS - CS * CROSS SECTIONS ALWAYS - CS ************** - C - C----------------------------------------------------------------------- C----------------------------------------------------------------------- CR FILE IDENTIFICATION - C - CL HNAME,(HUSE(I),I=1,2),IVERS - C - CW 1+3*MULT=NUMBER OF WORDS - C - CB FORMAT(11H 0V BRKOXS ,1H*,2A6,1H*,I6) - C - CD HNAME HOLLERITH FILE NAME - BRKOXS - - CD HUSE(I) HOLLERITH USER IDENTIFICATION (A6) - CD IVERS FILE VERSION NUMBER - CD MULT DOUBLE PRECISION PARAMETER - CD 1- A6 WORD IS SINGLE WORD - CD 2- A6 WORD IS DOUBLE PRECISION WORD - C - C----------------------------------------------------------------------- C----------------------------------------------------------------------- CR FILE CONTROL (1D RECORD) - C - CL NGROUP,NISOSH,NSIGPT,NTEMPT,NREACT,IBLK - C - CW 6 = NUMBER OF WORDS - C - CB FORMAT(4H 1D ,6I6) - C - CD NGROUP NUMBER OF ENERGY GROUPS IN SET - CD NISOSH NUMBER OF ISOTOPES WITH SELF-SHIELDING FACTORS - CD NSIGPT TOTAL NUMBER OF VALUES OF VARIABLE X (SEE FILE DATA- CD RECORD) WHICH ARE GIVEN. NSIGPT IS EQUAL TO - CD THE SUM FROM 1 TO NISOSH OF NTABP(I) - CD NTEMPT TOTAL NUMBER OF VALUES OF VARIABLE TB (SEE FILE - CD DATA RECORD) WHICH ARE GIVEN. NTEMPT IS EQUAL - CD TO THE SUM FROM 1 TO NISOSH OF NTABT(I) - CD NREACT NUMBER OF REACTION TYPES FOR WHICH SELF-SHIELDING - CD FACTORS ARE GIVEN (IN PREVIOUS VERSIONS OF THIS - CD FILES NREACT HAS BEEN IMPLICITLY SET TO 5). - CD IBLK BLOCKING OPTION FLAG FOR SELF-SHIELDING FACTORS, - CD IBLK=0, FACTORS NOT BLOCKED BY REACTION TYPE, - CD IBLK=1, FACTORS ARE BLOCKED BY REACTION TYPE. - C - C----------------------------------------------------------------------- C----------------------------------------------------------------------- CR FILE DATA (2D RECORD) - C - CL (HISONM(I),I=NISOSH),(X(K),K=1,NSIGPT),(TB(K),K=1,NTEMPT), - CL 1(EMAX(J),J=1,NGROUP),EMIN,(JBFL(I),I=1,NISOSH), - CL 2(JBFH(I),I=NISOSH),(NTABP(I),I=1,NISOSH),(NTABT(I),I=1,NISOSH) - C - CW (4+MULT)*NISOSH+NSIGPT+NTEMPT+NGROUP+1=NUMBER OF WORDS - C - CB FORMAT(4H 2D ,9(1X,A6)/ HISONM - CB 1(10(1X,A6))) - CB FORMAT(6E12.5) X,TB,EMAX,EMIN - CB FORMAT(12I6) JBFL,JBFH,NTABP,NTABT - C - CD HISONM(I) HOLLERITH ISOTOPE LABEL FOR ISOTOPE I (A6). THESE - CD LABELS MUST BE A SUBSET OF THOSE IN FILE ISOTXS - CD OR GRUPXS, IN THE CORRESPONDING ARRAY. - CD X(K) ARRAY OF LN(SIGP0)/LN(10) VALUES FOR ALL ISOTOPES, - CD WHERE SIGP0 IS THE TOTAL CROSS SECTION OF THE - CD OTHER ISOTOPES IN THE MIXTURE IN BARNS PER ATOM - CD OF THIS ISOTOPE. FOR ISOTOPE I, THE NTABP(I) - CD VALUES OF X FOR WHICH SELF-SHIELDING FACTORS - CD ARE GIVEN ARE STORED STARTING AT LOCATION L=1+ - CD SUM FROM 1 TO I-1 OF NTABP(K). - CD TB(K) ARRAY OF TEMPERATURES (DEGREES C) FOR ALL ISOTOPES.- CD FOR ISOTOPE I, THE NTBT(I) VALUES OF TB FOR - CD WHICH SELF-SHIELDING FACTORS ARE GIVEN ARE - CD STORED AT LOCATION L=1+SUM FROM 1 TO I-1 OF - CD NTABT(K). - CD EMAX(J) MAXIMUM ENERGY BOUND OF GROUP J (EV) - CD EMIN MINIMUM ENERGY BOUND OF SET (EV) - CD JBFL(I) LOWEST NUMBERED OF HIGHEST ENERGY GROUP FOR WHICH - CD SELF-SHIELDING FACTORS ARE GIVEN - CD JBFH(I) HIGHEST NUMBERED OR LOWEST ENERGY GROUP FOR WHICH - CD SELF-SHIELDING FACTORS ARE GIVEN - CD NTABP(I) NUMBER OF SIGP0 VALUES FOR WHICH SELF-SHIELDING - CD FACTORS ARE GIVEN FOR ISOTOPE I. - CD NTABT(I) NUMBER OF TEMPERATURE VALUES FOR WHICH SELF- - CD SHIELDING FACTORS ARE GIVEN FOR ISOTOPE I. - C - C----------------------------------------------------------------------- C----------------------------------------------------------------------- CR SELF-SHIELDING FACTORS (3D RECORD) - C - CL ((((FFACT(N,K,J,M),N=1,NBINT),K=1,NBTEM),J=JBFLI,JBFHI),M=ML,MU) - CL ------ SEE DESCRIPTION BELOW ------ - C - CC NBINT=NTABP(I) - CC NBTEM=NTABT(I) - CC JBFLI=JBFL(I) - CC JBFHI=JBFH(I) - CC FOR ML, MU SEE STRUCTURE BELOW - C - CW NBINT*NBTEM*(JBFHI-JBFLI+1)*(MU-ML+1) = NUMBER OF WORDS - C - CB FORMAT(4H 3D ,5E12.5/(6E12.5)) - C - CC DO 1 L=1,NBLOK - CC 1 READ(N) *LIST AS ABOVE* - C - CC IF IBLK=0, NBLOK=1, ML=1, MU=NREACT - CC IF IBLK=1, NBLOK=NREACT, ML=MU=L, WHERE L IS THE BLOCK - C - CD FFACT(N,K,J,M) SELF-SHIELDING FACTOR EVALUATED AT X(N) AND - CD TB(K) FOR ENERGY GROUP J, THE M INDEX IS - CD A DUMMY INDEX TO DENOTE THE REACTION TYPE, - CD THE FIRST FIVE REACTION TYPES ARE, IN - CD ORDER, TOTAL, CAPTURE, FISSION, TRANSPORT, - CD AND ELASTIC. - C - CB NOTE THAT IS IBLK=1, EACH REACTION TYPE WILL CONSTITUTE - CB A SEPARATE DATA BLOCK. - C - C----------------------------------------------------------------------- C----------------------------------------------------------------------- CR CROSS SECTIONS (4D RECORD) - C - CL (XSPO(J),J=1,NGROUP),(XSIN(J),J=1,NGROUP),(XSE(J),J=1,NGROUP), - CL 1(XSMU(J),J=1,NGROUP),(XSED(J),J=1,NGROUP),(XSX(J),J=1,NGROUP) - C - CW 6*NGROUP=NUMBER OF WORDS - C - CB FORMAT(4H 4D ,5E12.5/(6E12.5)) - C - CD XSPO(J) POTENTIAL SCATTERING CROSS SECTION (BARNS) - CD XSIN(J) INELASTIC CROSS SECTION (BARNS) - CD XSE(J) ELASTIC CROSS SECTION (BARNS) - CD XSMU(J) AVERAGE COSINE OF ELASTIC SCATTERING ANGLE - CD XSED(J) ELASTIC DOWN-SCATTERING TO ADJACENT GROUP - CD XSXI(J) AVERAGE ELASTIC SCATTERING LETHARGY INCREMENT - C - C----------------------------------------------------------------------- Standardized CCCC format listing for DLAYXS file C*********************************************************************** C REVISED 11/30/76 - C - CF DLAYXS-IV - CE MICROSCOPIC GROUP DELAYED NEUTRON PRECURSOR DATA - C - CN THIS FILE PROVIDES PRECURSOR YIELDS, - CN EMISSION SPECTRA, AND DECAY CONSTANTS - CN ORDERED BY ISOTOPE. ISOTOPES ARE IDENTIFIED - CN BY ABSOLUTE ISOTOPE LABELS FOR RELATION TO - CN ISOTOPES IN EITHER FILE ISOTXS OR GRUPXS. - CN FORMATS GIVEN ARE FOR FILE EXCHANGE PURPOSES - CN ONLY. - C - C*********************************************************************** C----------------------------------------------------------------------- CS FILE STRUCTURE - CS - CS RECORD TYPE PRESENT IF - CS =============================== =============== - CS FILE IDENTIFICATION ALWAYS - CS FILE CONTROL ALWAYS - CS FILE DATA, DECAY CONSTANTS, AND - CS EMISSION SPECTRA ALWAYS - CS *************(REPEAT TO NISOD) - CS * DELAYED NEUTRON PRECURSOR - CS * YIELD DATA ALWAYS - CS ************* - C - C----------------------------------------------------------------------- C----------------------------------------------------------------------- CR FILE IDENTIFICATION - C - CL HNAME,(HUSE(I),I=1,2),IVERS - C - CW 1+3*MULT=NUMBER OF WORDS - C - CB FORMAT(11H 0V DLAYXS ,1H*,2A6,1H*,I6) - C - CD HNAME HOLLERITH FILE NAME - DLAYXS - - CD HUSE(I) HOLLERITH USER IDENTIFICATION (A6) - CD IVERS FILE VERSION NUMBER - CD MULT DOUBLE PRECISION PARAMETER - CD 1- A6 WORD IS SINGLE WORD - CD 2- A6 WORD IS DOUBLE PRECISION WORD - C - C----------------------------------------------------------------------- C----------------------------------------------------------------------- CR FILE CONTROL (1D RECORD) - C - CL NGROUP,NISOD,NFAM,IDUM - C - CW 4=NUMBER OF WORDS - C - CB FORMAT(4H 1D ,4I6) - C - CD NGROUP NUMBER OF NEUTRON ENERGY GROUPS IN SET - CD NISOD NUMBER OF ISOTOPES IN DELAYED NEUTRON SET - CD NFAM NUMBER OF DELAYED NEUTRON FAMILIES IN SET - CD IDUM DUMMY TO MAKE UP FOUR-WORD RECORD - C - C----------------------------------------------------------------------- C----------------------------------------------------------------------- CR FILE DATA, DECAY CONSTANTS, AND EMISSION SPECTRA - C (2D RECORD) - C - CL (HABSID(I),I=1,NISOD),(FLAM(N),N=1,FAM),((CHID(J,N),J=1,NGROUP), - CL N=1,NFAM),(EMAX(J),J=1,NGROUP),EMIN,(NKFAM(I),I=1,NISOD), - CL (LOCA(I),I=1,NISOD) - C - CW (2+MULT)*NISOD+(NGROUP+1)*(NFAM+1)=NUMBER OF WORDS - C - CB FORMAT(4H 2D ,9(1X,A6)) HABSID - CB 1(10(1X,A6))) - CB FORMAT(6E12.5) FLAM,CHID,EMAX,EMIN - CB FORMAT(12I6) NKFAM,LOCA - C - CD HABSID(I) HOLLERITH ABSOLUTE ISOTOPE LABEL FOR ISOTOPE I (A6)- CD FLAM(N) DELAYED NEUTRON PRECURSOR DECAY CONSTANT - CD FOR FAMILY N - CD CHID(J,N) FRACTION OF DELAYED NEUTRONS EMITTED INTO NEUTRON - CD ENERGY GROUP J FROM PRECURSOR FAMILY N - CD EMAX(J) MAXIMUM ENERGY BOUND OF GROUP J (EV) - CD EMIN MINIMUM ENERGY BOUND OF SET (EV) - CD NKFAM(I) NUMBER OF FAMILIES TO WHICH FISSION IN ISOTOPE I - CD CONTRIBUTES DELAYED NEUTRON PRECURSORS - CD LOCA(I) NUMBER OF RECORDS TO BE SKIPPED TO READ DATA FOR - CD ISOTOPE I, LOCA(1)=0 - C - C----------------------------------------------------------------------- C----------------------------------------------------------------------- CR DELAYED NEUTRON PRECURSOR YIELD DATA (3D RECORD) - C - CL (SNUDEL(J,K),J=1,NGROUP),K=1,NKFAMI),(NUMFAM(K),K=1,NKFAMI) - C - CC NKFAMI=NKFAM(I) - C - CW (NGROUP+1)*NKFAMI=NUMBER OF WORDS - C - CB FORMAT(4H 3D ,5E12.5/(6E12.5)) SNUDEL - CB FORMAT(12I6) NUMFAM - C - CD SNUDEL(J,K) NUMBER OF DELAYED NEUTRON PRECURSORS PRODUCED IN - CD FAMILY NUMBER NUMFAM(K) PER FISSION IN - CD GROUP J - CD NUMFAM(K) FAMILY NUMBER OF THE K-TH YIELD VECTOR IN - CD ARRAY SNUDEL(J,K) - C - C-----------------------------------------------------------------------