MIME-Version: 1.0 Content-Location: file:///C:/CF066D12/Mixer.htm Content-Transfer-Encoding: quoted-printable Content-Type: text/html; charset="us-ascii" =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Mixer

 =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      PROGRAM MIXER        =             &nb= sp;            =             &nb= sp;        Mixer  

        =           =             &nb= sp;            =             &nb= sp;            =      Mixer  

      VERSION 76= -1 (NOVEMBER 1976)        =             &nb= sp;            =       Mixer  

      VERSION 81= -1 (APRIL 1981)  *IBM VERSION        =             &nb= sp;       Mixer  

      VERSION 82= -1 (AUGUST 1982) *COMPUTER INDEPENDENT VERSION        =    Mixer  

      VERSION 84= -1 (JUNE 1984)   *SPECIAL I/O ROUTINES TO GUARANTEE      Mixer  

        =             &nb= sp;             ACCURACY OF ENERGY.        =             Mixer  

        =             &nb= sp;            *DOUBLE PRECISION TREATMENT OF ENERGY   Mixer  

        =             &nb= sp;             (REQUIRED FOR NARROW RESONANCES).      Mixer  

      VERSION 86= -1 (JANUARY 1986)*FORTRAN-77/H VERSION        =            Mixer  

      VERSION 88= -1 (JULY 1988)   *OPTION...I= NTERNALLY DEFINE ALL I/O     Mixer  

        =             &nb= sp;             FILE NAMES (SEE, SUBROUTINE FILIO1     Mixer  

        =             &nb= sp;             AND FILIO2 FOR DETAILS).        =        Mixer  

        =             &nb= sp;            *IMPROVED BASED ON USER COMMENTS.       Mixe= r  

      VERSION 89= -1 (JANUARY 1989)*PSYCHOANALYZED BY PROGRAM FREUD TO     Mixer  

        =             &nb= sp;             INSURE PROGRAM WILL NOT DO ANYTHING    Mixer  

        =             &nb= sp;             CRAZY.        =                     =      Mixer  

        =             &nb= sp;            *UPDATED TO USE NEW PROGRAM CONVERT     Mixer  

        =             &nb= sp;             KEYWORDS.        =             &nb= sp;         Mixer  

        =             &nb= sp;            *ADDED LIVERMORE CIVIC COMPILER    &nbs= p;    Mixer  

        =             &nb= sp;             CONVENTIONS.        =             &nb= sp;      Mixer  

      VERSION 92= -1 (JANUARY 1992)*UPDATED BASED ON USER COMMENTS         Mixer  

        =             &nb= sp;            *ADDED PHOTON CROSS SECTIONS        =     Mixer   

        =             &nb= sp;            *ADDED FORTRAN SAVE OPTION        =       Mixer  

        =             &nb= sp;            *OUTPUT IN ENDF/B-VI FORMAT        =      Mixer  

        =             &nb= sp;            *COMPLETELY CONSISTENT I/O ROUTINES -   Mixer  

                =             &nb= sp;     TO MINIMIZE COMPUTER DEPENDENCE.       Mixe= r  

        =             &nb= sp;            *NOTE, CHANGE IN INPUT PARAMETER        Mixer  

        =             &nb= sp;             FORMAT.        =             &nb= sp;           Mixer  

      VERSION 94= -1 (JANUARY 1994)*VARIABLE ENDF/B DATA FILENAMES         Mixer  

        =             &nb= sp;             TO ALLOW ACCESS TO FILE STRUCTURES     Mixer  

        =             &nb= sp;             (WARNING - INPUT PARAMETER FORMAT      Mixer  

        =             &nb= sp;             HAS B= EEN CHANGED)        =             &nb= sp; Mixer  

        =             &nb= sp;            *CLOSE ALL FILES BEFORE TERMINATING     Mixer  

        =             &nb= sp;             (SEE, SUBROUTINE ENDIT)        =         Mixer  

        =             &nb= sp;            *INCREASED INCORE PAGE SIZE FROM        Mixer  

        =             &nb= sp;             1002 TO 4008.        =             &nb= sp;     Mixer  

      VERSION 96= -1 (JANUARY 1996) *COMPLETE RE-WRITE        =              Mixer  

        =             &nb= sp;             *IMPROVED COMPUTER INDE= PENDENCE        Mixer  

        =             &nb= sp;             *ALL DOUBLE PRECISION        =           Mixer  

        =             &nb= sp;             *ON SCREEN OUTPUT        =             &nb= sp; Mixer  

        =             &nb= sp;             *UNIFORM TREATMENT OF ENDF/B I/O       Mixe= r  

        =             &nb= sp;             *IMPROVED OUTPUT PRECISION        =      Mixer  

        =             &nb= sp;             *DEFINED SCRATCH FILE NAMES        =     Mixer  

        =             &nb= sp;             *INCREASED INCORE PAGE SIZE FROM&nb= sp;      Mixer  

        =             &nb= sp;            =   4008 TO 12000.        =             &nb= sp;   Mixer  

      VERSION 99= -1 (MARCH 1999)   *CORRECTED CHARACTER TO FLOATING       Mixe= r  

        =             &nb= sp;            =   POINT READ FOR MORE DIGITS        =     Mixer  

        =             &nb= sp;             *UPDATED TEST FOR ENDF/B FORMAT        Mixer  

        =             &nb= sp;            =   VERSION BASED ON RECENT FORMAT CHANGE Mixer  

        =             &nb= sp;             *GENERAL IMPROVEMENTS BASED ON         Mixer  

              =             &nb= sp;        USER FEEDBACK        =             &nb= sp;    Mixer  

      VERSION 99= -2 (JUNE 1999)    *ASSU= ME ENDF/B-VI, NOT V, IF MISSING   Mixer  

        =             &nb= sp;            =   MF=3D1, MT-451.        =             &nb= sp;    Mixer  

      VERS. 2000= -1 (FEBRUARY 2000)*GENERAL IMPROVEMENTS BASED ON         Mixer  

        =             &nb= sp;            =   USER FEEDBACK        =             &nb= sp;    Mixer  

      VERS. 2002= -1 (MAY 2002)     *OPTIONAL INPUT PARAMETERS        =      Mixer  

      VERS. 2004= -1 (MARCH 2004)   *ADDED INC= LUDE FOR COMMON        =       Mixer  

        =             &nb= sp;             *INCREASED INCORE PAGE SIZE FROM       Mixe= r  

        =             &nb= sp;            =   12000 TO 60000.        =             &nb= sp;  Mixer  

      VERS. 2005= -1 (OCT. 2005)    *CORR= ECTED MERGE ERROR        =          Mixer  

      VERS. 2007= -1 (JAN. 2007)    *CHEC= KED AGAINST ALL ENDF/B-VII        Mixer  

        =             &nb= sp;             *INCREASED INCORE PAGE SIZE FROM       Mixe= r  

        =             &nb= sp;            =   60,000 TO 240,000.        =             Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      OWNED, MAINTAINED AND DISTRIBUTED BY        =             &nb= sp;          Mixer  

      ------------------------------------        =               =          Mixer  

      THE NUCLEA= R DATA SECTION        =             &nb= sp;            =           Mixer  

      INTERNATIO= NAL ATOMIC ENERGY AGENCY        =             &nb= sp;            Mixer  

      P.O. BOX 100        =             &nb= sp;            =             &nb= sp;         Mixer  

      A-1400, VIENNA, AUSTRIA        =             &nb= sp;            =            Mixer  

      EUROPE        =             &nb= sp;            =             &nb= sp;            =    Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      ORIGINALLY WRITTEN BY        =             &nb= sp;            =              Mixer  

      ------------------------------------        =             &nb= sp;          Mixer  

      DERMOTT E. CULLEN        =             &nb= sp;            =             &nb= sp;    Mixer  

      UNIVERSITY OF CALIF= ORNIA        =             &nb= sp;            =           Mixer  

      LAWRENCE LIVERMORE NATIONAL LABORATORY        =             &nb= sp;        Mixer  

      L-159        =             &nb= sp;            =             &nb= sp;            =     Mixer  

      P.O. BOX 808        =             &nb= sp;            =             &nb= sp;         Mixer  

      LIVERMORE, CA 94550        =             &nb= sp;            =             &nb= sp;  Mixer  

      U.S.A.<= span style=3D'mso-spacerun:yes'>        =             &nb= sp;            =             &nb= sp;            =    Mixer  

      TELEPHONE<= span style=3D'mso-spacerun:yes'>  925-423-7359        =             &nb= sp;            =            Mixer  

      E. MAIL    CULLEN1@LLNL.GOV        =             &nb= sp;            =        Mixer  

      WEBSITE    HTTP://WWW.LLNL.GOV/CULLEN1        =             &nb= sp;        Mixer  

        =             &nb= sp;                     =             &nb= sp;            =       Mixer  

      PURPOSE        =             &nb= sp;            =             &nb= sp;            =   Mixer  

      -------        =             &nb= sp;            =             &nb= sp;            =   Mixer  

      THIS PROGR= AM IS DESIGNED TO CALCULATE THE ENERGY DEPENDENT CROSS   Mixer  

      SECTION FO= R A COMPOSITE MIXTURE OF UP TO 10 DIFFERENT MATERIALS.   Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      THE PRESENT VERSION WILL ONLY CALCULATE THE CROSS SECTION FOR ONE  Mixer  

      FINAL REAC= TION (ENDF/B SECTION), E.G. TOTAL CROSS SECTION, BUT NOT Mixer  

      ANY OTHER REACTION.        =             &nb= sp;            =             &nb= sp;  Mixer  

        =             &nb= sp;            =             &nb= sp;            =               =  Mixer  

      NOTE, THIS PROGRAM WILL NOT COMBINE ALL REACTIONS FOR A MIXTURE    Mixer  

      OF MATERIA= LS DURING A SINGLE RUN - ONLY ONE REACTION WILL BE       Mixe= r  

      CREATED PER RUN.        =             &nb= sp;            =             &nb= sp;     Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      EVALUATED = DATA FORMAT        =             &nb= sp;            =              Mixer  

      ---------------------        =             &nb= sp;            =              Mixer  

      THE CROSS SECTION= S ARE READ FROM THE ENDF/B FORMAT AND THE         Mixer  

      COMPOSITE = CROSS SECTION IS CONVERTED TO AN EQUIVALENT BARNS/ATOM   Mixer  

      FORM AND O= UTPUT IN THE ENDF/B FORMAT WITH AN EQUIVALENT ATOMIC     Mixer  

      WEIGHT. TH= E USER MUST SPECIFY THE COMPOSITION BY GIVING THE ZA,    Mixer  

      MT AND GRA= MS/CC OF EACH CONSTITUENT. IN ADDITION THE USER MUST     Mixer  

      IDENTIFY T= HE COMPOSITE CROSS SECTION BY SPECIFYING THE ZA, MAT     Mixer  

      AND MT TO = BE USED IN THE ENDF/B FORMATTED OUTPUT.        =           Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      SINCE ONLY= THE CROSS SECTIONS IN FILE 3 AND 23 ARE USED, AND THE   Mixer  

      FORMAT FOR= FILE 3/23 IS THE SAME IN ALL VERSIONS ON ENDF/B, THIS   Mixer  

      PROGRAM MA= Y BE USED WITH ANY VERSION OF ENDF/B DATA (I.E.,         Mixer  

      ENDF/B-I, = II, III, IV, V OR VI). DURING A SINGLE RUN IT MAY EVEN   Mixer  

      BE USED TO= READ AND COMBINE EVALUATIONS WHICH ARE IN DIFFERENT     Mixer  

      VERSIONS O= F THE ENDF/B FORMAT.        =             &nb= sp;            =     Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      ENDF/B FOR= MATTED OUTPUT WILL BE IN THE ENDF/B-VI FORMAT REGARDLESS Mixer  

      OF THE FOR= MAT OF THE INPUT ENDF/B DATA. THIS WILL ONLY EFFECT THE  Mixer  

      HOLLERITH SECTION (MF=3D1, MT=3D451). THE FORMAT OF CROSS SECTIONS     Mixer  

      (MF=3D3) I= S THE SAME IN ALL VERSION OF THE ENDF/B FORMAT.         =    Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      IN ORDER TO GUARANTEE PROPER OPERATION OF THIS PROGRAM THE DATA    Mixer  

      MUST BE PR= OPERLY CODED IN THE ENDF/B FORMAT. NO ERROR CHECKING IS  Mixer  

      PERFORMED.= IT IS PARTICULARLY IMPORTANT THAT THE FOLLOWING DATA    Mixer  

      BE CORRECT=         =             &nb= sp;            =             &nb= sp;           Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      (1) ZA, MF= , MT - MUST BE CORRECT IN ORDER TO ALLOW PROGRAM TO      Mixer  

        =   SELECT THE APPROPRIATE SECTIONS TO BE COMBINED.        =         Mixer  

      (2) AWRE - ATOMIC WEIGHT RATIO MUST BE CORRECT TO ALLOW PROGRAM    Mixer  

        =   TO CONVERT THE USER SPECIFIED GRAMS/CC INTO ATOMS/CC FOR       Mixe= r  

        =   PROPER ATOM RATIO MIXING.        =             &nb= sp;            =      Mixer  

      (3) (ENERG= IES, CROSS SECTIONS) - MUST BE CORRECT, LINEARLY         Mixer  

        =                     =             &nb= sp;            =    =3D=3D=3D=3D=3D=3D=3D=3D         Mixer  

        =   INTERPOLABLE, IN ASCENDING ENERGY ORDER OF (E, BARNS).         Mixer  

        =   =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D        =             &nb= sp;            =             &nb= sp;     Mixer  

        =             &nb= sp;                 =             &nb= sp;            =           Mixer  

        =   TO CONVERT ENDF/B FORMATTED DATA TO THE REQUIRED INPUT FORM    Mixer  

        =   THE FOLLOWING PROGRAMS MAY BE USED,        =             &nb= sp;       Mixer  

        =   LINEAR - CONVERT TABULATED CROSS SECTIONS TO LINEARLY        =   Mixer  

        =            INTERPOLABLE FORM.        =             &nb= sp;            =    Mixer  

        =   RECENT - RECONSTRUCT RESONANCE CONTRIBUTION, ADD TO BACKGROUND Mixer  

        =            CROSS SECTION AND OUTPUT THE COMBINATION IN LINEARLY  Mixer  

        =            INTERPOLABLE FORM.        =             &nb= sp;            =    Mixer  

        =   SIGMA1 - DOPPLER BROADEN CROSS SECTIONS TO ANY TEMPERATURE AND Mixer  

        =            OUTPUT THE RESULT IN LINEARLY INTERPOLABLE FORM.      Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      DOCUMENTATION        =             &nb= sp;            =             &nb= sp;        Mixer  

      -------------        =             &nb= sp;            =             &nb= sp;        Mixer  

      THE FACT T= HAT THIS PROGRAM HAS COMBINED THE DATA IS DOCUMENTED     Mixer  

      IN THE OUT= PUT ENDF/B FORMAT IN THE HOLLERITH SECTION BY FIRST      Mixer  

      IDENTIFYIN= G THE VERSION OF THIS PROGRAM THAT WAS USED, IN THE FORM Mixer   

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      ********************( PROGRAM MIXER 2007-1) ********************** Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      THIS IS FO= LLOWED BY THE TWO LINE IDENTIFICATION INPUT BY THE USER. Mixer  

      THIS IS FO= LLOWED BY COMPOSITION INPUT BY THE USER.        =          Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      NEUTRON OR= PHOTON DATA        =             &nb= sp;            =             Mixer  

      ----------------------        =             &nb= sp;            =             Mixer  

      THIS PROGR= AM WILL ALLOW YOU TO PROCESS EITHER NEUTRON OR PHOTON    Mixer  

      CROSS SECT= IONS - BUT YOU CANNOT MIX THE TWO TYPES TOGETHER. BY     Mixer  

      INPUT YOU = CAN SPECIFY THE OUTPUT MF =3D 3 (NEUTRONS) OR 23 (PHOTONS) Mixer  

      WHATEVER T= YPE YOU SPECIFIED FOR OUTPUT IS THE ONLY TYPE OF DATA    Mixer  

      WHICH WILL= BE PROCESSED BY THIS PROGRAM.        =             &nb= sp;      Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      DEFINING T= HE COMPOSITION        =             &nb= sp;            =           Mixer  

      ------------------------        =                   =             &nb= sp;    Mixer  

      THE USER M= AY SPECIFY UP TO 10 DIFFERENT SECTIONS OF DATA TO BE     Mixer  

      COMBINED, = EACH SECTION IDENTIFIED BY ZA AND MT NUMBER. THE         Mixer  

      AMOUNT OF = EACH MATERIAL IS SPECIFIED BY DEFINING THE NUMBER OF     Mixer  

      GRAMS/CC O= F EACH MATERIAL IN THE COMPOSITE MIXTURE. THIS CAN BE    Mixer  

      DERIVED FR= OM THE VOLUME FRACTION SIMPLY BY MULTIPLYING THE STP     Mixer  

      DENSITY OF= EACH MATERIAL BY ITS VOLUME FRACTION. NOTE, DO NOT      Mixer  

      INPUT ATOM FRACTIONS.        =             &nb= sp;            =              Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      THE LIST OF SECTIONS TO BE COMBINED MAY BE SPECIFIED IN ANY        Mixer  

      ORDER, I.E= . THEY NEED NOT BE IN ZA ORDER OR THE ORDER THAT THE     Mixer  

      EVALUATED = DATA APPEARS ON THE ENDF/B FORMATTED TAPE.        =        Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      IF ANY REQ= UESTED SECTION OF DATA IS NOT FOUND ON THE ORIGINAL      Mixer  

      ENDF/B FOR= MATTED FILE, THE PROGRAM WILL PRINT A LIST OF THE        Mixer  

      MISSING SE= CTIONS AND TERMINATE. IF ALL REQUESTED SECTIONS ARE      Mixer  

      FOUND THE = PROGRAM WILL PRODUCE A COMPOSITE SECTION USING THE       Mixe= r  

      UNION OF ALL ENERGIES FOUND IN ANY SECTION. THE COM= POSITE SECTION  Mixer  

      WILL NOT BE THINNED.        =             &nb= sp;            =             &nb= sp; Mixer  

        =             &nb= sp;             =             &nb= sp;            =             &nb= sp; Mixer  

      PRIOR TO L= ATER USE IN ANY APPLICATION THE NUMBER OF ENERGY POINTS  Mixer  

      IN THE COM= POSITE CROSS SECTION MAY BE MINIMIZED BY USING PROGRAM   Mixer  

      LINEAR, UCRL-50400, VOL. 17, PART B TO THIN THE DATA.        =       Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      ONLY LINEA= RLY INTERPOLABLE DATA        =             &nb= sp;            =    Mixer  

      -------------------------------                 =             &nb= sp;      Mixer  

      THE CROSS SECTIONS TO BE COMBINED MUST BE IN LINEARLY INTERPOLABLE Mixer  

      TABULATED = FORM (I. E., FILE 3 OR 23, INTERPOLATION LAW 2).         Mixer  

        =             &nb= sp;            =             &nb= sp;                  =          Mixer  

      TO CONVERT TABULATED CROSS SECTIONS TO LINEARLY INTERPOLABLE FORM  Mixer  

      SEE, PROGR= AM LINEAR, UCRL-50400, VOL. 17, PART A.        =           Mixer  

        =             &nb= sp;            =             &nb= sp;            =                Mixer  

      TO CONVERT RESONANCE PARAMETERS TO LINEARLY INTERPOLABLE FORM SEE, Mixer  

      PROGRAM RE= CENT, UCRL-50400, VOL. 17, PART C.        =             &nb= sp;  Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      TO DOPPLER BROADEN LINEARLY INTERPOLABLE DATA TO ANY TEMPERATURE   Mixer  

      SEE PROGRAM SIGMA1, UCRL-50400, VOL. 17, PART B.        =            Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      PAGING SYSTEM        =             &nb= sp;            =             &nb= sp;        Mixer  

      -------------        =             &nb= sp;            =             &nb= sp;        Mixer  

      THERE IS NO LIMIT TO THE THE NUMBER OF DATA POINTS IN EACH OF THE  Mixer  

      SECTIONS T= O BE COMBINED, NOR IS THERE A LIMIT TO THE NUMBER OF     Mixer  

      DATA POINT= S IN THE COMPOSITE MIXTURE CROSS SECTION.        =         Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      ALL REQUIR= ED SECTIONS OF DATA ARE READ FROM THE ORIGINAL ENDF/B    Mixer  

      FORMATTED = FILE. ANY SECTION OF 60000 OR FEWER POINTS WILL BE       Mixe= r  

      TOTALLY CO= RE RESIDENT. LARGER SECTIONS ARE LOADED INTO A PAGING    Mixer  

      SYSTEM USI= NG A SCRATCH FILE WITH ONLY 60000 POINTS PER SECTION     Mixer  

      CORE RESID= ENT AT ANY ONE TIME. SIMILARLY THE COMPOSITE SECTION     Mixer  

      WILL BE TO= TALLY CORE RESIDENT IF IT CONTAINS 60000 OR FEWER POINTS Mixer  

      AND LARGER COMPOSITE SECTIONS WILL BE LOADED INTO A PAGING         Mixer  

<= /p>

      SYSTEM WHE= RE ONLY 60000 POINTS ARE CORE RESIDENT AT ANY TIME. SINC Mixer  

      A PAGING S= YSTEM MAY BE USED BY ANY SECTION OF DATA THERE IS NO     Mixer  

      LIMIT TO T= HE SIZE OF EITHER THE ORIGINAL SECTIONS, NOR TO THE      Mixer  

      COMPOSITE SECTION, E.G. A SECTION MAY CONTAIN 100,000 ENERGIES     Mixer  

      AND CROSS SECTIONS TO DESCRIBE A GIVEN REACTION.        =            Mixer  

        =             &nb= sp;            =             &nb= sp;            =              =   Mixer  

      PAGE SIZE<= span style=3D'mso-spacerun:yes'>        =             &nb= sp;            =             &nb= sp;            Mixer  

      ---------<= span style=3D'mso-spacerun:yes'>        =             &nb= sp;            =             &nb= sp;            Mixer  

      THE PAGE S= IZE USED IN THIS PROGRAM IS DEFINED BY THE PARAMETER     Mixer  

      NPAGE AND = THE DIMENSIONS OF THE ARRAYS XTAB AND YTAB. IN ORDER     Mixer  

      TO ADAPT T= HIS PROGRAM FOR USE ON ANY COMPUTER THE PAGE SIZE MAY    Mixer  

      BE INCREAS= ED OR DECREASED BUT THE FOLLOWING RULES MUST BE FOLLOWED Mixer  

         =             &nb= sp;            =             &nb= sp;         =3D=3D=3D=3D        =      Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      (1) NPAGE = - MUST BE A MULTIPLE OF 3 IN ORDER TO ALLOW THE PROGRAM  Mixer  

        =   TO READ FULL CARDS OF ENDF/B DATA (3 POINTS PER LINE). FAILURE Mixer  

        =   TO FOLLOW THIS RULE CAN LEAD TO LOSS OF DATA AND/OR PROGRAM    Mixer  

        =   ERRORS DURING EXECUTION.        =             &nb= sp;            =       Mixer  

      (3) YTAB  - THE DIMENSION OF YTAB MUST BE (NPAGE,11).        =       Mixer  

      (4) XTAB  - THE DIMENSION OF XTAB MUST BE (NPAGE,11).        =       Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      DOPPLER BROADENING     &n= bsp;         =             &nb= sp;            =          Mixer  

      ------------------        =             &nb= sp;            =             &nb= sp;   Mixer  

      THE COMPOS= ITE CROSS SECTION OUTPUT FROM THIS PROGRAM SHOULD NOT    Mixer  

      BE DOPPLER BROADENED USING PROGRAM SIGMA1, OR THE EQUIVALENT. THE  Mixer  

      ATOMIC WEI= GHT USED TO IDENTIFY THE COMPOSITE MIXTURE IS BASED ON   Mixer  

      THE ATOM FRACTION OF EACH CONSTITUENT AND CANNOT BE USED TO        Mixer  

      CHARACTERI= ZE THE BROADENING OF ANY GIVEN RESONANCE IN THE MIXTURE  Mixer  

      DUE TO THE CONTRIBUTION OF ONE CONSTITUENT. IN ORDER TO CONSIDER   Mixer  

      DOPPLER BROADENING FIRST USE PROGRAM SIGMA1 TO BROADEN THE CROSS   Mixer  

      SECTION FO= R EACH OF THE CONSTITUENTS AND THEN COMBINE THE        =   Mixer  

      BROADENED = DATA USING PROGRAM MIXER.        =             &nb= sp;           Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      EXAMPLE US= E        =             &nb= sp;            =             &nb= sp;          Mixer  

      ----------= -        =             &nb= sp;            =             &nb= sp;          Mixer  

      THE OUTPUT= FROM THIS PROGRAM HAS BEEN FOUND TO BE EXTREMELY        Mixer  

      USEFUL IN = THE FOLLOWING APPLICATIONS...        =             &nb= sp;       Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      (1) CALCUL= ATE A COMPOSITE TOTAL CROSS SECTON FOR LATER USE AS      Mixer  

        =   A WEIGHTING FUNCTION IN SELF-SHIELDING THE CROSS SECTIONS      Mixer  

          OF EACH CONSTITUENT OF= THE MIXTURE SEPARATELY.        =          Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

        =   PROGRAM GROUPIE CAN USE THE CALCULATED COMPOSITE TOTAL CROSS   Mixer  

        =   SECTION AS THE TOTAL CROSS SECTION FOR EACH CONSTITUENT OF     Mixer  

        =   THE MIXTURE IN ORDER TO CALCULATE&n= bsp; SELF-SHIELDED CROSS SECTION Mixer  

        =   FOR EACH CONSTITUENT OF THE MIXTURE.        =             &nb= sp;      Mixer  

        =             &nb= sp;                =             &nb= sp;            =            Mi= xer  

      (2) CALCUL= ATE COMPOSITE TOTAL AND FISSION CROSS SECTIONS IN        Mixer  

        =   ORDER TO CALCULATE THE TRANSMISSION AND SELF-INDICATION        Mixer  

        =   THROUGH COMPOSITE MATERIALS. GENERALLY IN THIS CASE THE        Mixer  

        =   TOTAL CROSS SECTION WILL BE CALCULATED FOR THE COMPOSITION     Mixer  

        =   OF THE SAMPLE AND THE FISSION CROSS SECTION WILL BE        =     Mixer  

        =   CALCULATED FOR THE COMPOSITION OF THE FISSION CHAMBER        =   Mixer  

        =   (WHICH GENERALLY WILL HAVE A DIFFERENT COMPOSITION THAN THE    Mixer  

        =   SAMPLE).        =             &nb= sp;            =             &nb= sp;         Mixer  

        =             &nb= sp;            =             &nb= sp;                     =       Mixer  

        =   PROGRAM VIRGIN CAN USE THE OUTPUT FROM THIS PROGRAM TO         Mixer  

        =   PERFORM TRANSMISSION AND SELF-INDICATION CALCULATIONS.         Mixer  

        =   PROGRAM VIRGIN WILL ANALYTICALLY CALCULATE THE UNCOLLIDED      Mixer  

        =   (I.E. VIRGIN) FLUX TRANSMITTED AND REACTION RATE DUE TO ANY    Mixer  

        =   TABULATED LINEARLY INTERPOLABLE INCIDENT SPECTRUM. RESULTS     Mixer  

        =   WILL BE PRESENTLY FOR UP TO 10 DIFFERENT SAMPLE THICKNESSES    Mixer   

        =   AND BINNED INTO ENERGY GROUPS IN ORDER TO SIMULATE AN        =   Mixer  

        =   EXPERIMENTAL MEASUREMENT.        =             &nb= sp;            =      Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      (3) THE OU= TPUT FROM THIS PROGRAM IS VERY USEFUL TO PLOT IN ORDER   Mixer  

        =   TO SEE THE IMPORTANCE OF SPECIFIC CROSS SECTION FEATURES IN    Mixer  

        =   THE COMPOSITE CROSS SECTION.        =             &nb= sp;            =   Mixer  

        =                  =             &nb= sp;            =             &nb= sp;          Mixer=   

        =   PROGRAM COMPLOT CAN BE USED TO PLOT THE OUTPUT FROM THIS       Mixe= r  

        =   PROGRAM AND IF REQUIRED EXAMINE ANY PARTICULAR ENERGY RANGE    Mixer  

        =   IN DETAIL. IN ORDER TO DO THIS THE (ZA, MT) EQUIVALENCE OPTION Mixer  

        =   OF PROGRAM COMPLOT SHOULD BE USED. TO COMPARE ANY CONSTITUENT  Mixer  

        =   CROSS SECTION TO THE COMPOSITE CROSS SECTION THE INPUT TO      Mixer  

        =   COMPLOT SHOULD EQUATE THE (ZA,MT) OF THE COMPOSITE TO THE      Mixer  

        =   (ZA,MT) OF ONE CONSTITUENT AND THE MULTIPLIER INPUT TO         Mixer  

        =   COMPLOT SHOULD BE THE ATOM FRACTION FOR THE CONSTITUENT (THE   Mixer  

        =   ATOM FRACTIONS ARE DEFINED IN THE OUTPUT LISTING FROM PROGRAM  Mixer  

        =   MIXER).        =             &nb= sp;            =             &nb= sp;          Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      INPUT FILE= S        =             &nb= sp;            =                =         Mixer  

      ----------= -        =             &nb= sp;            =             &nb= sp;          Mixer  

      UNIT  DESCRIPTION        =             &nb= sp;            =             &nb= sp;    Mixer  

      ----  -----------        =             &nb= sp;            =                  Mixer=   

        2   INPUT CARDS (B= CD - 80 CHARACTERS/RECORD)        =              Mixer  

       10   ORIGINAL EVALUATED DATA IN E= NDF/B FORMAT        =              Mixer  

        =             &nb= sp;   (BCD - 80 CHARACTERS/RECORD)        =              Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      OUTPUT FILES        =             &nb= sp;            =             &nb= sp;         Mixer  

      ------------        =             &nb= sp;            =             &nb= sp;         Mixer  

      UNIT  DESCRIPTION        =             &nb= sp;            =             &nb= sp;    Mixer  

      ----  -----------        =             &nb= sp;            =             &nb= sp;    Mixer  

        3   OUTPUT LISTING= (BCD - 120 CHARACTERS/RECORD)        =          Mixer  

       11   COMPOSITE EVALUATED DATA IN = ENDF/B FORMAT        =             Mixer  

        =             &nb= sp; (BCD - 80 CHARACTERS/RECORD)        =             &nb= sp;  Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      SCRATCH FILES              =             &nb= sp;            =             &nb= sp;  Mixer  

      -------------        =             &nb= sp;            =             &nb= sp;        Mixer  

      UNIT  DESCRIPTION        =             &nb= sp;            =             &nb= sp;    Mixer  

      ----  -----------        =             =             &nb= sp;            =      Mixer  

       12   SCRATCH FILE FOR EACH OF THE= 10 SECTIONS WHICH        =        Mixer  

       13   WILL BE ADDED TOGETHER TO DE= FINE THE FINAL        =            Mixer  

        .   SECTION (BINAR= Y - 60000 AND 480000 WORDS/RECORD)        =      Mixer  

        . .        =             &nb= sp;            =             &nb= sp;            =     Mixer  

        . .        =             &nb= sp;            =             &nb= sp;            =     Mixer  

       20 .=         =             &nb= sp;            =                    =           Mixer  

       21 .=         =             &nb= sp;            =             &nb= sp;            =     Mixer  

       22   SCRATCH FILE FOR COMBINED SECTION.        =             &nb= sp;      Mixer  

        =     (BINARY - 2004 WORDS/RECORD)        =             &nb= sp;            = Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      STANDARD F= ILE NAMES (SEE SUBROUTINES FILIO1 AND FILIO2)        =     Mixer  

      ----------------------------------------------------------------   Mixer  

      UNIT  FILE NAME        =             &nb= sp;            =             &nb= sp;      Mixer  

      ----  ----------        =             &nb= sp;            =             &nb= sp;     Mixer  

        2   MIXER.INP        =             &nb= sp;            =             &nb= sp;      Mixer  

        3   MIXER.LST        =             &nb= sp;            =             &nb= sp;      Mixer  

       10   ENDFB.IN        =             &nb= sp;            =             &nb= sp;       Mixer  

       11   ENDFB.OUT        =             &nb= sp;            =             &nb= sp;      Mixer  

     12-22  (SCRATCH)        =             &nb= sp;            =             &nb= sp;      Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      INPUT CARD= S        =             &nb= sp;            =             &nb= sp;          Mixer  

      ----------= -              =             &nb= sp;            =             &nb= sp;    Mixer  

      LINE  COLS.  FORMAT  NAME    DESCRIPTION        =             &nb= sp;      Mixer  

      ----  -----  ------  ------- ----------        =             &nb= sp;       Mixer  

       1-2<= span style=3D'mso-spacerun:yes'>   1-66 16A4,A2  TITLE   TWO LINE TITLE DESCRIBING PROBLEM     Mixer  

        =             &nb= sp;            =   (THIS TITLE IS USED TO IDENTIFY THE   Mixer  

        =             &nb= sp;            =   OUTPUT LISTING AND IS ALSO WRITTEN    Mixer  

        =             &nb= sp;            =   IN MF=3D1, MT=3D451 (HOLLERITH SECTION)   Mixer  

        =             &nb= sp;            =   OF THE ENDF/B FORMATTED OUTPUT TO     Mixer  

        =             &nb= sp;            =   IDENTIFY THE COMPOSITE MIXTURE).      Mixer  

         3   1-60        =           ENDF/B INPUT DATA FILENAME        =     Mixer  

        =             &nb= sp;            =   (STANDARD OPTION =3D ENDFB.IN)        =   Mixer  

         4   1-60        =           ENDF/B OUTPUT DATA FILENAME        =    Mixer  

        =             &nb= sp;            =   (STANDARD OPTION =3D ENDFB.OUT)         Mixer  

         5   1-11    I11   IZAOUT  ZA IDENTIFICATION FOR COMBINATION<= span style=3D'mso-spacerun:yes'>     Mixer  

         5  12-17    I6    MATOUT  MAT IDENTIFICATION FOR COMBINATION=     Mixer  

         5  18-19    I2    MFOUT   MF IDENTIFICATION FOR COMBINATION     Mixer  

         5  20-22    I3    MTOUT   MT IDENTIFICATION FOR COMBINATION     Mixer  

       6-N<= span style=3D'mso-spacerun:yes'>   1-11    I11   IZAGET  ZA (1000*Z+A) OF MATERIAL        =      Mixer  

       6-N<= span style=3D'mso-spacerun:yes'>  12-22    I11   MTGET   MT OF REACTION        =             &nb= sp;   Mixer  

       6-N  23-33  E11.4   DENSE   DENSITY OF MATERIAL (GRAMS/CC)        Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      THE SIXTH = LINE IS REPEATED FOR EACH SECTION (FROM 2 TO 10).        Mixer  

      SINCE THE = ENDF/B FORMATTED OUTPUT IS IN BARNS/ATOM FORM A MINIMUM  Mixer  

      OF TWO SEC= TIONS MUST BE COMBINED (I.E., IF ONLY ONE SECTION IS     Mixer  

      SPECIFIED = THE OUTPUT WOULD BE IDENTICAL TO THE INPUT AND AS SUCH   Mixer  

      THE PROGRA= M WILL CONSIDER THIS TO BE AN ERROR AND NOT PERFORM THE  Mixer  

      CALCULATIO= N). THE LIST OF SECTIONS IS TERMINATED BY A BLANK LINE.  Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      THE LIST OF SECTIONS TO BE COMBINED MAY BE SPECIFIED IN ANY        Mixer  

      ORDER, I.E= . THEY NEED NOT BE IN ZA ORDER OR THE ORDER THAT THE     Mixer  

      EVALUATED = DATA APPEARS ON THE ENDF/B FORMATTED TAPE.        =        Mixer  

        =             &nb= sp;            =                 =             &nb= sp;           Mixer  

      EXAMPLE IN= PUT NO. 1        =             &nb= sp;            =             &nb= sp;  Mixer  

      -------------------        =             &nb= sp;            =             &nb= sp;  Mixer  

      CREATE THE= TOTAL CROSS SECTION (MT=3D1) FOR STAINLESS STEEL AND      Mixer  

      IDENTIFY T= HE COMBINED MATERIAL WITH ZA=3D26800 AND MAT=3D4000,         Mixer  

      THE COMPOS= ITION BY VOLUME OF THE STEEL WILL BE...        =           Mixer  

        =             &nb= sp;            =             &nb= sp;            =            =     Mixer  

      THE DATA F= ROM \ENDFB6\K300\LIBRARY.DAT AND WRITE DATA TO        =    Mixer  

      \MIXER\STEEL.DAT        =             &nb= sp;            =             &nb= sp;     Mixer  

        =             &nb= sp;            =             &nb= sp;            =                Mixer  

      IRON      - 74.8 PER-CENT        =             &nb= sp;            =          Mixer  

      CHROMIUM  - 16.0        =             &nb= sp;            =             &nb= sp;     Mixer  

      NICKEL    -  6.0        =             &nb= sp;            =             &nb= sp;     Mixer  

      MANGANESE = -  2.0        =             &nb= sp;            =             &nb= sp;     Mixer  

      SILICON   -  1.0        =             &nb= sp;            =             &nb= sp;     Mixer  

      CARBON    -  0.2        =             &nb= sp;            =             &nb= sp;     Mixer  

                 =             &nb= sp;            =             &nb= sp;            =       Mixer  

      THE INPUT = MUST SPECIFY THE COMPOSITION BY GRAMS/CC. THIS IS        Mixer  

      DEFINED AS= THE PRODUCT OF THE STANDARD DENSITY (GRAMS/CC)        =   Mixer  

      TIMES THE = VOLUME FRACTION. NOTE, DO NOT USE ATOM FRACTIONS.        Mixer  

      FOR THIS E= XAMPLE THE FOLLOWING 12 INPUT CARDS ARE REQUIRED....     Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

      STAINLESS = STEEL. COMPOSITION BY PER-CENT VOLUME IS 74.8-IRON,      Mixer  

      16-CHROME, 6-NICKEL, 2-MANGANESE, 1-SILICON, 0.2-CARBON        =     Mixer  

      \ENDFB6\K300\LIBRARY.DAT        =             &nb= sp;            =           Mixer  

      \MIXER\STEEL.DAT        =                  =             &nb= sp;            =  Mixer  

        =    26800  4000 3  1        =             &nb= sp;            =              Mixer  

        =    26000        =   1 5.88676    = (NOTE, GRAMS/CC INPUT FOR EACH    Mixer  

        =    24000        =   1 1.150448    CONSTITUENT, E.G. FOR IRON THE   Mixer  

        =    28000        =   1 0.533928    STP DENSITY IS 7.87 GRAMS/CC.    Mixer  

        =    25055        =   1 0.1486    &nb= sp; THE INPUT VALUE OF 5.88676 IS    Mixer  

        =    14000        =   1 0.0233    &nb= sp; 0.748 X 7.87,I.E.  VOLU= ME        Mixer  

        =     6012        =   1 0.0044958   FRAC= TION TIMES STP DENSITY).     Mixer  

        =             &nb= sp;            =      (BLANK LINE TERMINATES INPUT LIST) Mixer  

        =             &nb= sp;            =             &nb= sp;            =                Mixe= r  

      EXAMPLE IN= PUT NO. 2        =             &nb= sp;            =             &nb= sp;  Mixer  

      -------------------        =             &nb= sp;            =             &nb= sp;  Mixer  

      THE SAME E= XAMPLE AS THE ABOVE PROBLEM, ONLY USE THE STANDARD       Mixe= r   

      ENDF/B DATA FILENAMES - ENDFB.IN AND ENDFB.OUT (THIS CAN BE        Mixer  

      DONE BY LE= AVING THE THIRD AND FOURTH INPUT LINES BLANK).        =    Mixer  

      FOR THIS E= XAMPLE THE FOLLOWING 12 INPUT CARDS ARE REQUIRED....     Mixer  

               =             &nb= sp;            =             &nb= sp;            =         Mixer  

      STAINLESS = STEEL. COMPOSITION BY PER-CENT VOLUME IS 74.8-IRON,      Mixer  

      16-CHROME, 6-NICKEL, 2-MANGANESE, 1-SILICON, 0.2-CARBON        =     Mixer  

      (NOTE - TH= IS LINE IS REALLY BLANK)        =             &nb= sp;            Mixer  

      (NOTE - TH= IS LINE IS REALLY BLANK)        =             &nb= sp;            Mixer  

        =    26800  4000 3  1        =             &nb= sp;            =              Mixer  

        =    26000        =   1 5.88676    = (NOTE, GRAMS/CC INPUT FOR EACH    Mixer  

        =    24000        =   1 1.150448    CONSTITUENT, E.G. FOR IRON THE   Mixer  

        =    28000        =   1 0.533928    STP DENSITY IS 7.87 GRAMS/CC.    Mixer  

        =    25055        =   1 0.1486      THE INPUT VALUE OF 5.88= 676 IS    Mixer  

        =    14000        =   1 0.0233    &nb= sp; 0.748 X 7.87,I.E.  VOLUME        Mixer  

        =     6012        =   1 0.0044958   FRAC= TION TIMES STP DENSITY).     Mixer  

        =             &nb= sp;            =      (BLANK LINE TERMINATES INPUT LIST) Mixer  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Mixer  

 =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Mixer