MIME-Version: 1.0 Content-Location: file:///C:/CE966F10/Fixup.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 Fixup

 =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 Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      PROGRAM FIXUP        =             &nb= sp;            =             &nb= sp;        Fixup  

      VERSION 84= -1 (NOVEMBER 1984)        =             &nb= sp;            =       Fixup  

      VERSION 86= -1 (JANUARY 1986) *IMPROVED BASED ON USER COMMENTS       Fixu= p  

        =             &nb= sp;             *FORTRAN-77/H VERSION        =           Fixup  

      VERSION 86= -2 (JUNE 1986)    *ALLOW CREA= TION OF SECTIONS OF CROSS   Fixup  

        =             &nb= sp;            =   SECTIONS WHICH ARE NOT PRESENT IN     Fixup  

        =             &nb= sp;            =   THE ORIGINAL EVALUATION        =        Fixup  

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

        =             &nb= sp;            =   FILE NAMES (SEE, SUBROUTINE FILEIO    Fixup  

        =             &nb= sp;            =   FOR DETAILS).        =             &nb= sp;    Fixup  

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

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

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

        =             &nb= sp;            =   CRAZY.                 =             &nb= sp;  Fixup  

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

        =             &nb= sp;            =   KEYWORDS.        =             &nb= sp;        Fixup  

        =             &nb= sp;             *ADDED LIVERMORE CIVIC COMPILER        Fixup  

        =             &nb= sp;            =   CONVENTIONS.        =             &nb= sp;     Fixup  

      VERSION 89= -2 (MARCH 1989)   *ADDED END= F/B-VI SUMMATION RULES AND   Fix= up  

        =             &nb= sp;            =   DEFINED MF AND MT NUMBERS. PROGRAM    Fixup  

        =             &nb= sp;            =   WILL NOW USE MF=3D1, MT=3D451 TO DEFINE   Fixup  

        =             &nb= sp;            =   THE ENDF/B FORMAT OF THE DATA (E.G.,  Fixup  

        =             &nb= sp;            =   ENDF/B-VI OR EARLIER) AND USE THE     Fixup   

        =             &nb= sp;            =   CORRECT SUMMATION RULES FOR EACH      Fixup  

        =             &nb= sp;            =   VERSION OF THE ENDF/B FORMAT. IF      Fixup  

        =             &nb= sp;            =   MF=3D1, MT=3D451 IS NOT PRESENT PROGRAM   Fixup  

                =             &nb= sp;      WILL USE ENDF/B-VI SUMMATION        =   Fixup  

        =             &nb= sp;            =   CONVENTIONS AS A DEFAULT.        =      Fixup  

      VERSION 90= -1 (JUNE 1990)    *UPDA= TED BASED ON USER COMMENTS        Fixup  

        =                   =         *ADDED PHOTON INTERACTION, MF=3D23       Fixu= p  

      VERSION 91= -1 (JUNE 1991)    *ADDED FORTRAN SAVE OPTION        =      Fixup  

        =             &nb= sp;             *NEW MORE CONSISTENT ENERGY OUTPUT     Fixup  

        =             &nb= sp;              ROUTINE        =             &nb= sp;          Fixup  

      VERSION 92= -1 (JANUARY 1992) *ADDED OPTION TO CALCULATE RATIOS,     Fixup  

        =             &nb= sp;            =   E.G., CAPTURE/FISSION AND PRODUCTS,   Fixup  

        =             &nb= sp;            =   NU-BAR*FISSION - AND OUTPUT THE       Fixu= p  

        =             &nb= sp;            =   RESULTS IN THE ENDF/B FORMAT (SEE,    Fixup  

        =             &nb= sp;            =   BELOW - CREATING RATIOS AND PRODUCTS) Fixup  

        =             &nb= sp;             *ALLOW TOTAL NU-BAR (MF=3D1, MT=3D452) TO  Fixup  

        =             &nb= sp;            =   BE USED IN DEFINING RATIOS OR         Fixup  

        =             &nb= sp;            =   PRODUCTS.        =             &nb= sp;        Fixup  

        =             &nb= sp;             *ALLOW ALL CROSS SECTIONS TO BE PUT    Fixup  

        =             &nb= sp;            =   ON A UNIFORM ENERGY GRID.        =      Fixup  

        =             &nb= sp;             *NOTE, CHANGE IN INPUT FORMAT FOR      Fixup  

        =             &nb= sp;            =   RANGES OF MT NUMBERS        =           Fixup  

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

        =             &nb= sp;            =   TO MINIMIZE COMPUTER DEPENDENCE.      Fixup  

      VERSION 93= -1 (JULY 1993)    *CORR= ECTED ALGORITHM TO CREATE UNIFORM Fixup &nb= sp;

        =             &nb= sp;            =   ENERGY GRID.        =             &nb= sp;     Fixup  

      VERSION 94= -1 (JANUARY 1993) *VARIABLE ENDF/B DATA FILENAMES        Fixup  

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

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

        =             &nb= sp;            =   HAS BEEN CHANGED)        =              Fixup  

        =             &nb= sp;             *INCREASED PAGE SIZE FROM 1002 TO      Fixup  

        =                 =            12= 000 DATA POINTS.        =             Fixup  

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

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

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

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

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

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

        =             &nb= sp;             *UNIFORM TREATMENT OF ENDF/B I/O       Fixu= p  

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

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

        =             &nb= sp;             *INCREASED PAGE SIZE FROM 12000 TO     Fixup  

        =             &nb= sp;            =   36000 DATA POINTS.        =             Fixup  

      VERSION 99= -1 (MARCH 1999)   *CORRECTED CHARACTER TO FLOATING       Fixu= p  

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

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

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

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

        =             &nb= sp;            =   USER FEEDBACK        =             &nb= sp;    Fixup  

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

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

        =             &nb= sp;             *FIXED CREATION OF SECTIONS        =     Fixup  

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

            =             &nb= sp;          USER FEEDBACK        =             &nb= sp;    Fixup  

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

        =             &nb= sp;             *SUMMATION RULES ARE DEFINED BASED     Fixup  

        =               =             &nb= sp;ON CONTENTS OF TABLES.        =         Fixup  

      VERS. 2004= -1 (JAN. 2004)    *GENE= RAL UPDATE BASED ON USER FEEDBACK Fixup &= nbsp;

        =             &nb= sp;             *INCREASED PAGE SIZE FROM 36000 TO     Fixup  

        =             &nb= sp;           =    60000 DATA POINTS.        =             Fixup  

      VERS. 2005= -1 (JAN. 2005)    *UPDA= TED MT CREATION TO ALLOW MAT =3D0   Fixup  

        =             &nb= sp;            =   INDICATING CREATE FOR ALL MATS.       Fixu= p  

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

        =             &nb= sp;             *INCREASED PAGE SIZE FROM 60,000 TO    Fixup  

        =             &nb= sp;            =   600,000 DATA POINTS.        =           Fixup  

        =             &nb= sp;            =                    =             &nb= sp;        Fixup  

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

      ------------------------------------        =             &nb= sp;          Fixup  

      THE NUCLEA= R DATA SECTION        =             &nb= sp;           =            Fi= xup  

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

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

      A-1400, VI= ENNA, AUSTRIA        =             &nb= sp;            =           =  Fixup  

      EUROPE        =             &nb= sp;            =             &nb= sp;            =    Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      ORIGINALLY WRITTEN BY        =             &nb= sp;            =              Fixup  

      ------------------------------------        =             &nb= sp;          Fixup  

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

      UNIVERSITY= OF CALIFORNIA        =             &nb= sp;            =           Fixup  

      LAWRENCE LIVERMORE NATIONAL LABORATORY        =             &nb= sp;        Fixup  

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

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

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

      U.S.A.        =             &nb= sp;            =             &nb= sp;            =    Fixup  

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

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

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

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      PURPOSE        =                    =             &nb= sp;            =         Fixup  

      =3D=3D=3D= =3D=3D=3D=3D        =             &nb= sp;            =             &nb= sp;            =   Fixup  

      THIS PROGR= AM IS DESIGNED TO READ EVALUATED DATA IN THE ENDF/B      Fixup  

      FORMAT, PE= RFORM CORRECTIONS AND OUTPUT THE RESULT IN THE ENDF/B    Fixup  

      FORMAT. TWO TYPES OF CORRECTIONS ARE POSSIBLE (1) AUTOMATIC AND    Fixup  

      (2) OPTION= AL (BASED ON USER INPUT) CORRECTIONS.        =             Fixup  

        =             &nb= sp;            =             &nb= sp;              =             &nb= sp;Fixup  

      ONE OF THE= MOST IMPORTANT FUNCTIONS OF THIS PROGRAM IS TO        =   Fixup  

      RE-DEFINE = ALL REDUNDANT CROSS SECTIONS (E.G. TOTAL) TO BE EXACTLY  Fixup  

      EQUAL TO T= HE SUM OF ITS PARTS. THIS PROCEDURE ELIMINATES THE       Fixu= p  

      PROBLEM WI= TH MANY ENDF/B EVALUATIONS, WHERE DUE TO THE USE OF      Fixup  

      NON-LINEAR INTERPOLATION LAWS THE TOTAL MAY BE EQUAL TO THE SUM    Fixup  

      OF ITS PAR= TS AT ALL TABULATED ENERGIES, BUT BASED ON THE        =    Fixup  

      INTERPOLAT= ION LAWS IT CAN BE QUITE DIFFERENT AT ENERGIES BETWEEN   Fixup  

      TABULATED ENERGIES.        =             &nb= sp;            =             &nb= sp;  Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      AUTOMATIC CHECKS/CORRECTIONS        =             &nb= sp;            =       Fixup  

      =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        =             &nb= sp;            =       Fixup  

      (1) CHECK = THAT MAT/MF/MT DOES NOT CHANGE UNLESS A MEND/FEND/SEND   Fixup  

        =   LINE IS READ. IF MAT/MF/MT CHANGES A WARNING MESSAGE IS        Fixup  

        =   PRINTED BUT NO CORRECTIVE ACTION IS TAKEN.        =              Fixup  

      (2) ALL LI= NES WITHIN A GIVEN MAT WILL BE SEQUENTIALLY NUMBERED     Fixup  

        =   ON OUTPUT.        =             &nb= sp;            =             &nb= sp;       Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      OPTIONAL CHECKS/CORRECTIONS        =             &nb= sp;            =        Fixup  

      =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        =             &nb= sp;            =        Fixup  

      THE FOLLOW= ING NUMBERS CORRESPOND TO THE INPUT DATA OPTION COLUMNS  Fixup  

      (SEE THE DESCRIPTION OF THE INPUT BELOW)        =             &nb= sp;      Fixup  

        =             &nb= sp;            =                =             &nb= sp;            = Fixup  

      (1) CORREC= T ZA AND AWR IN ALL SECTIONS. CHECK TO INSURE THAT THE   Fixup  

        =   C1 AND C2 VALUES (ZA AND AWR) ARE THE SAME IN ALL SECTIONS.    Fixup  

        =   THE C1 AND C2 OF THE FIRST SECTION READ ARE ASSUMED TO BE      Fixup  

        =   CORRECT AND ARE USED FOR COMPARISON. IF THE C1 AND/OR C2 OF    Fixup  

        =   THE FIRST SECTION ARE NOT POSITIVE AN ERROR MESSAGE IS OUTPUT  Fixup  

        =   AND THE MATERIAL IS COPIED WITHOUT CHANGE.                =      Fixup  

        =   NOTE....TO CHANGE THE ZA AND/OR AWR OF ANY MATERIAL IT IS      Fixup  

        =   MERELY NECESSARY TO CHANGE THE ZA AND/OR AWR IN THE FIRST      Fixup  

        =   SECTION OF THE MATERIAL AND USE THIS OPTION TO AUTOMATICALLY   Fixup  

        =   CHANGE ALL OTHER SECTIONS.        =             &nb= sp;            =     Fixup  

      (2) CORRECT CROSS SECTION (MF=3D3) THRESHOLDS. THE Q-VALUE AND AWR   Fixup  

        =   ARE USED TO DERIVE THE REACTION THRESHOLD USING THE RELATION,  Fixup   

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

        =   E-THRESHOLD =3D -(Q-VALUE)*(AWRE+1.0)/AWRE        =             &nb= sp;  Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

          IF THE THRESHOLD IS POSITIVE = THE CROSS SECTION IS CHECKED TO   Fixup  

        =   INSURE THAT THE FIRST TABULATED POINT IS AT THE THRESHOLD AND  Fixup  

        =   HAS A ZERO CROSS SECTION. IF NOT, THE CROSS SECTION WILL BE    Fixup  

        =   CHANGED.        =             &nb= sp;            =             &nb= sp;         Fixup  

        =   (A) IF THE FIRST TABULATED POINT IS ABOVE THE THRESHOLD AND    Fixup  

        =       HAS A ZERO CROSS SECTION, THE POINT IS DELETED AND A POINT Fixup  

        =       IS INSERTED AT THE THRESHOLD.        =             &nb= sp;         Fixup  

        =   (B) IF THE FIRST TABULATED POINT IS ABOVE THE THRESHOLD AND    Fixup  

        =       HAS A NON-ZERO CROSS SECTION, A POINT WITH ZERO CROSS      Fixup  

        =       SECTION IS INSERTED AT THE THRESHOLD.        =             &nb= sp; Fixup  

        =   (C) IF THE FIRST TABULATED POINT IS BELOW THE THRESHOLD AND    Fixup  

        =       HAS A NON-ZERO CROSS SECTION, ALL POINTS BELOW THE         Fixup  

        =       THRESHOLD ARE DELETED AND A POINT WITH ZERO CROSS SECTION  Fixup  

        =       IS INSERTED AT THE THRESHOLD.        =             &nb= sp;         Fixup  

      (3) EXTEND= ALL CROSS SECTIONS (MF=3D3) TO 20 MEV. IF THE TABULATED   Fixup  

        =   CROSS SECTION ENDS BELOW 20 MEV IT WILL BE EXTENDED TO 20 MEV  Fixup  

        =   AS EITHER ZERO (IMOPS(3)=3D1) OR CONSTANT (IMOPS(3)=3D2) EQUAL     Fixup  

        =   TO THE LAST TABULATED VALUE.        =             &nb= sp;            =   Fixup  

      (4) ALLOW REACTION (MF=3D3, ANY MT) DELETION. ALL SPECIFIED          Fixup  

        =   REACTIONS WILL BE DELETED WHEN THE DATA IS READ FROM THE       Fixu= p  

        =   INPUT ENDF/B DATA FILE AND WILL NOT BE IN THE OUTPUT ENDF/B    Fixup  

        =   DATA FILE. WARNING DELETED REACTIONS MAY NOT BE USED TO DEFINE Fixup=   

        =   ANY RECONSTRUCTED REACTIONS (I.E. REACTIONS DEFINED BY SUMMING Fixup  

        =   OTHER REACTIONS). SINCE DELETED REACTIONS ARE DELETED DURING   Fixup  

        =   READING IT IS AS IF THEY NEVER EXISTED AND IF ANY DELETED      Fixup  

          REACTION IS REQUI= RED LATER TO DEFINE ANY SUM AN ERROR WILL     Fixup  

        =   RESULT. THE USER MAY SPECIFY THAT THE DELETION RULES ARE TO BE Fixup  

        =   READ FROM INPUT (IMOPS(4)=3D1) OR THAT THE BUILT IN SUMMATION    Fixup  

        =   RULES ARE TO BE USED (MOPS(4)=3D2). AT THE PRESENT TIME THE      Fixup  

        =   BUILT-IN DELETION RULES ARE THAT NO SECTIONS SHOULD BE DELETED Fixup  

        =   (THE USER MAY OVERRIDE THIS CONVENTION BY INPUT).        =       Fixup  

      (5) ALLOW REACTION (MF=3D3, ANY MT) RECONSTRUCTION BY SUMMING OTHER  Fixup  

        =   REACTIONS. IN ORDER TO OPTIMIZE THE RUNNING TIME OF THIS       Fixu= p  

        =   PROGRAM CARE SHOULD BE EXERCISED TO MINIMIZE THE NUMBER OF     Fixup  

        =   TIMES THAT EACH CONTRIBUTING CROSS SECTION MUST BE USED.       Fixu= p  

        =   THE USED MAY SPECIFY THAT THE SUMMATION RULES ARE TO BE READ   Fixup  

        =   AS INPUT (IMOPS(5)=3D1) OR THAT THE BUILT IN SUMMATION RULES     Fixup  

        =   ARE TO BE USED (IMOPS(5)=3D2). THE BUILT IN SUMMATION RULES ARE  Fixup  

        =   DESIGNED TO USE ENDF/B CONVENTIONS AND TO MINIMIZE THE NUMBER  Fixup  

        =   OF TIMES THAT EACH CROSS SECTION IS USED.        =             &nb= sp; Fixup  

      (6) INSURE= THAT ALL CROSS SECTIONS ARE NON-NEGATIVE (I.E. ARE      Fixup  

        =   ZERO OR POSITIVE). DURING READING ALL NEGATIVE CROSS SECTIONS  Fixup  

        =   WILL BE SET EQUAL TO ZERO AND TREATED AS SUCH DURING ALL       Fixu= p  

        =   SUBSEQUENT SUMMATIONS AND ENDF/B OUTPUT.        =                Fixup  

        =   NOTE...THIS OPTION SHOULD NEVER BE USED WITH DATA CONTAINING   Fixup  

        =   BACKGROUND CROSS SECTIONS WHICH MAY BE NEGATIVE. ONLY AFTER    Fixup  

        =   THE RESONANCE CONTRIBUTION HAS BEEN ADDED TO THE BACKGROUND    Fixup  

        =   TO DEFINE THE ACTUAL CROSS SECTION IS IT VALID TO ELIMINATE    Fixup  

        =   NEGATIVE CROSS SECTIONS.        =             &nb= sp;            =       Fixup  

        =   NOTE...THIS OPTION MAY BE USED TO DELETE NEGATIVE ELASTIC      Fixup  

          CROSS SECTIONS THAT MAY RESULT FROM RECONSTRUCTING CROSS       Fixu= p  

        =   SECTIONS FROM SINGLE LEVEL BREIT-WIGNER PARAMETERS. IF THE     Fixup  

        =   TOTAL CROSS SECTION IS THEN RECONSTRUCTED USING THE CORRECTED  Fixup  

        =   ELASTIC CROSS SECTION THE TOTAL WILL BE POSITIVE DUE TO THE    Fixup  

        =   CONTRIBUTIONS OF CAPTURE AND FISSION (THUS AVOIDING NUMERICAL  Fixup  

        =   INSTABILITY PROBLEMS DURING SELF-SHIELDING CALCULATIONS).      Fixup  

      (7) WITHIN= EACH SECTION OF CROSS SECTIONS DELETE ENERGIES THAT     Fixup  

        =   ARE NOT IN ASCENDING ENERGY ORDER (ENERGY REPETITION IS O.K.)  Fixup  

      (8) WITHIN= EACH SECTION OF CROSS SECTIONS ELIMINATE DUPLICATE      Fixup  

        =   POINTS (SUCCESSIVE POINTS WITH THE SAME ENERGY-CROSS SECTION). Fixup  

      (9) TEST T= HAT ALL SECTIONS ARE IN ASCENDING MAT/MF/MT ORDER.       Fixu= p  

        =   IF NOT, NO CORRECTIVE ACTION WILL BE TAKEN, ONLY AN ERROR      Fixup  

        =   MESSAGE WILL BE OUTPUT.        =            =             &nb= sp;        Fixup  

<= /p>

     (10) CHECK MF/MT= FOR EACH SECTION TO INSURE THAT THEY ARE DEFINED   Fixup  

        =   IN THE ENDF/B FORMAR MANUAL. IF THEY ARE NOT DEFINED AN ERROR  Fixup  

        =   MESSAGE IS PRINTED, BUT NO CORRECTIVE ACTION IS TAKEN.         Fixup  

     (11) ALLOW SECTI= ONS WHICH ARE NOT PRESENT IN THE ORIGINAL (INPUT)   Fixup  

        =   EVALUATION TO BE CREATED. NORMALLY THIS PROGRAM WILL ONLY      Fixup  

        =   RECONSTRUCT AND OUTPUT SECTIONS IF THE SECTION IS PRESENT      Fixup  

        =   IN THE ORIGINAL EVALUATION. THIS PROCEDURE IS FOLLOWED BECAUSE Fixup  

        =   NORMALLY THE PROGRAM DOES NOT KNOW HOW TO DEFINE THE CONTENTS  Fixup  

        =   OF THE FIRST TWO LINES OF THE SECTION (E.G., Q-VALUE,        =   Fixup  

        =   TEMPERATURE, INITIAL AND FINAL STATES). THIS OPTION MAY BE     Fixup  

        =   USED TO ALLOW THE PROGRAM TO READ AND SAVE A TABLE DEFINING    Fixup  

        =   THE CONTENTS OF THE FIRST TWO LINES OF EACH SECTION TO BE      Fixup  

          CREATED.        =             &nb= sp;            =             &nb= sp;         Fixup  

        =   NOTE...IF A SECTION IS PRESENT ANY COMMAND TO CREATE IT WILL   Fixup  

        =   BE IGNORED.        =             &nb= sp;            =             &nb= sp;      Fixup  

      (12)ALLOW = ENERGY POINTS TO BE INSERTED. THE PROGRAM CAN READ UP    Fixup  

        =   TO 50, ENERGIES, MAT, MT AND USE LINEAR INTERPOLATION TO       Fixu= p  

        =   INSERT ENERGY POINTS INTO TABLES AS THEY ARE READ, E.G.,       Fixu= p  

        =   INSERT AN ENERGY POINT AT THERMAL ENERGY (0.0253 EV). IF       Fixu= p  

        =   AN MAT AND/OR MT IS ZERO THIS IMPLIES =3D ALL - INSERT THE       Fixu= p  

        =   ENERGY IN ALL TABLES.        =             &nb= sp;            =          Fixup  

      (13)PUT AL= LOW CROSS SECTIONS ON A UNIFORM ENERGY GRID =3D EACH       Fixu= p  

        =   SECTION (MT) OF CROSS SECTIONS WILL INCLUDE ALL ENERGIES       Fixu= p  

        =   WHICH APPEAR IN AT LEAST ONE SECTION OF DATA. PARAMETERS       Fixu= p  

        =   (MT=3D251 THROUGH 255) ARE NOT INCLUDED IN THE UNIFORM ENERGY    Fixup  

        =   GRID.        =             &nb= sp;            =             &nb= sp;            Fixup  

      (14)DELETE SECTION IF CROSS SECTION =3D 0 AT ALL ENERGIES. THIS      Fixup  

        =   SOUNDS LIKE AN ABSURD OPTION, BUT IS REQUIRED BECAUSE SUCH     Fixup  

        =   SECTIONS EXIST IN ENDF/B-VI.        =             &nb= sp;            =   Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      CREATING R= ATIOS AND PRODUCTS        =             &nb= sp;              =     Fixup  

      =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        =             &nb= sp;            =       Fixup  

      IN ORDER TO CREATE RATIOS AND PRODUCTS =3D NEW MT NUMBERS, YOU MUST  Fixup  

      DO TWO THINGS,        =             &nb= sp;            =             &nb= sp;       Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      1) DEFINE = EACH NEW MT NUMBER AS A RATIO OR PRODUCT OF TWO MT       Fixu= p  

         NUMBERS.        =             &nb= sp;            =             &nb= sp;          Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      2) USE THE CREATE MT NUMBER OPTION AND INPUT THE FIRST TWO LINES   Fixup  

         OF THE SECTION        =             &nb= sp;            =             &nb= sp;    Fixup  

                 =             &nb= sp;            =             &nb= sp;            =       Fixup  

      WARNING - = UNLESS YOU DO BOTH OF THESE YOU WILL NOT OBTAIN OUTPUT   Fixup  

      IN THE END= F/B FORMAT.        =             &nb= sp;            =              Fixup  

        =                    =             &nb= sp;            =             &nb= sp;        Fixup  

      TWO SPECIA= L MT NUMBERS HAVE BEEN DEFINED BY CSEWG INVOLVING        Fixup  

      RATIOS AND PRODUCTS,        =             &nb= sp;            =             &nb= sp; Fixup  

        =             &nb= sp;                =             &nb= sp;            =            Fi= xup  

      ALPHA (MT= =3D254)=3D CAPTURE (MT=3D102)/FISSION (MT=3D18)        =            Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      ETA (MT=3D255)  =3D NU-BAR (MT=3D4= 52)*FISSION (MT=3D18)/ABSORPTION (MT=3D27) Fixup =  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      ABSORPTION (MT=3D27) =3D FISSION (MT=3D18) + SUM (MT=3D102 THROUGH 116)    Fixup  

        =             &nb= sp;            =             &nb= sp;           =             &nb= sp;   Fixup  

      AS YET THE= RE IS NO STANDARD DEFINITION OF MT NUMBERS FOR RATIO     Fixup  

      OR PRODUCT= DATA. YOU ARE FREE TO USE ANY MT NUMBERS NORMALLY NOT   Fixup  

      USED IN THE ENDF/B. HOWEVER, IT WILL THEN BE YOUR RESPONSIBILITY   Fixup  

      TO PROPERLY INTERPRET THE RESULTS, I.E., NOBODY ELSE WILL HAVE     Fixup  

      ANY IDEA H= OW TO INTERPRET A TABLE OF DATA ASSOCIATED WITH THE MT   Fixup  

      NUMBERS YO= U HAVE USED.        =             &nb= sp;            =             Fixu= p  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      THIS PROGR= AM CAN BE ONLY DIRECTLY DEFINE RATIOS AND PRODUCTS       Fixu= p  

      USING TWO = MT NUMBERS =3D BINARY OPERATIONS, E.G., DEFINE THE CAPTURE Fixup   

      TO FISSION RATIO, OR DEFINE THE PRODUCT NU-BAR*FISSION.        =     Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      THIS PROGR= AM CANNOT DIRECTLY DEFINE RATIO OR PRODUCT OF A SUM OF   Fixup  

      SECTIONS T= O THE SUM OF ANOTHER SET OF SECTIONS. HOWEVER, THIS CAN  Fixup  

      BE DONE INDIRECTLY BY FIRST DEFINING A DUMMY MT NUMBER (ANY MT     Fixup  

      NUMBER NOT NORMALLY USED IN ENDF/B) TO BE A SUM OF SECTIONS AND    Fixup  

      A SECOND D= UMMY MT NUMBER TO BE A SECOND SUM OF SECTIONS. YOU CAN   Fixup  

      THEN DEFINE RATIO OR PRODUCT YOU REQUIRE TO BE THE RATIO OF THESE  Fixup  

      TWO DUMMY = MT NUMBERS.        =             &nb= sp;            =              Fixup  

        =             &nb= sp;              =             &nb= sp;            =             &nb= sp;Fixup  

      FOR EXAMPL= E, TO DEFINE ETA,        =             &nb= sp;            =        Fixup  

      1) FIRST D= EFINE (MT=3D27) =3D (MT=3D27) + (SUM OF MT=3D102 THROUGH 116)    Fixup  

      2) NEXT DE= FINE (MT=3D333) =3D (MT=3D452)*(MT=3D18)        =             &nb= sp;    Fixup  

      3) LAST DE= FINE (MT=3D255) =3D (MT=3D333)/(MT=3D27)        =             &nb= sp;    Fixup  

      DO NOT FOR= GET TO TURN ON THE CREATE SECTION OPTION (ON THE FIRST   Fixup  

      INPUT LINE= ) AND INPUT THE FIRST TWO LINES OF SECTION MT=3D255 -      Fixup  

      OTHERWISE = YOU WILL NOT GET ANY ENDF/B FORMATTED OUTPUT.        =     Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      THE ONLY S= PECIAL CONVENTIONS USED BY THIS PROGRAM IN CALCULATING   Fixup  

      RATIOS ARE= WHEN THE DENOMINATOR OF THE RATIO IS ZERO. IN THIS      Fixup  

      CASE IF THE NUMERATOR IS ALSO ZERO THE RATIO IS DEFINED TO BE ONE. Fixup  

      IN THIS CA= SE IF THE NUMERATOR IS NOT ZERO THE RATIO IS DEFINED     Fixup  

      TO BE ZERO= .        =             &nb= sp;            =             &nb= sp;          Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      ENDF/B FORMAT        =             &nb= sp;            =             &nb= sp;        Fixup  

      =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D        =             &nb= sp;            =             &nb= sp;        Fixup  

      THIS PROGR= AM MAY BE USED WITH DATA IN ANY VERSION OF THE ENDF/B    Fixup  

      FORMAT (I.= E. ENDF/B-I, II, III, IV, V OR VI FORMAT). SINCE A       Fixu= p  

      PAGING SYSTEM IS USED STORE CROSS S= ECTION TABLES ON SCRATCH FILES  Fixup=   

      THERE IS NO LIMIT TO THE SIZE OF TABLES (E.G. THE TOTAL CROSS      Fixup  

      SECTION MA= Y BE REPRESENTED BY 200,000 TABULATED POINTS).        =    Fixup  

        =                =             &nb= sp;            =             &nb= sp;            = Fixup  

      WARNING        =             &nb= sp;            =             &nb= sp;            =   Fixup  

      =3D=3D=3D= =3D=3D=3D=3D        =             &nb= sp;            =             &nb= sp;            =   Fixup  

      (1) FOR EA= CH SECTION OF CROSS SECTIONS (I.E. EACH MT, MF=3D3) IN     Fixup  

        =   THE ORIGINAL EVALUATION (I.E. ENDF/B DATA READ) ONE SECTION    Fixup  

        =   OF DATA WILL BE OUTPUT, UNLESS THE SECTION HAS BEEN DELETED.   Fixup  

        =   THIS INCLUDES ANY SECTIONS WHICH ARE NOT PRESENT IN THE        Fixup  

        =   ORIGINAL EVALUATION, BUT THE USER INDICATES (BY INPUT) SHOULD  Fixup  

        =   BE CREATED.        =             &nb= sp;            =             &nb= sp;      Fixup  

        =             &nb= sp;            =                     =             &nb= sp;       Fixup  

        =   THE PROGRAM WILL NOT OUTPUT ANY SECTION RECONSTRUCTED BY       Fixu= p  

        =   SUMMATION UNLESS THE CORRESPONDING SECTION (MT NUMBER) IS      Fixup  

        =   PRESENT IN THE ORIGINAL EVALUATION OR USER INPUT INDICATES     Fixup  

        =   SHOULD BE CREATED AND OUTPUT. THIS IS (A) BECAUSE THE        =   Fixup  

        =   PROGRAM CANNOT DEFINE THE PARAMETERS TO APPEAR ON THE FIRST    Fixup  

        =   TWO LINES OF THE SECTION, (B) TO AVOID OUTPUTTING TOO MUCH     Fixup  

        =   DATA WHICH THE USER MAY NOT BE INTERESTED IN.        =           Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      (2) FOR ANY SECTIONS THAT DO NOT APPEAR IN THE ORIGINAL DATA THE   Fixup  

        =   USER MAY SPECIFY THAT THEY BE DEFINED BY SUMMATION. ANY SUCH   Fixup  

        =   SECTION MAY BE USED BE DEFINE SUBSEQUENT SUMS, BUT THE SECTION Fixup  

        =   ITSELF WILL NOT BE OUTPUT (E.G. GENERALLY MT=3D27 AND 101 ARE    Fixup  

          NOT PRESENT IN EVALUATIONS. HOWEVER, THE BUILT-IN SUMMATION    Fixup  

        =   RULES OF THIS PROGRAM USES THE ENDF/B SUMMATION RULES TO       Fixu= p  

        =   DEFINE MT=3D27 AND 101, WHICH IN TURN ARE USED TO DEFINE THE     Fixup  

        =   NON-ELASTIC CROSS SECTION, MT=3D3. SECTIONS MT=3D27 AND 101 ARE    Fixup  

        =   NOT OUTPUT).        =             &nb= sp;            =             &nb= sp;     Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      (3) ALL DA= TA IN FILE 3 AND 23 MUST BE LINEARLY INTERPOLABLE. IF    Fixup  

        =   THE DATA IS NOT LINEARLY INTERPOLABLE THIS PROGRAM WILL        Fixup  

        =   TERMINATE.        =             &nb= sp;            =             &nb= sp;       Fixup  

        =             &nb= sp;                    =             &nb= sp;            =        Fixup  

      PROGRAM OPERATION        =             &nb= sp;            =             &nb= sp;    Fixup  

      =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D        =             &nb= sp;            =             &nb= sp;    Fixup  

      ALL MAT NU= MBER ON AN ENDF/B TAPE ARE PROCESSED. EACH MAT IS        Fixup  

      TREATED SEPARATELY. WITHIN EACH MAT, EACH SECTION BEFORE MF=3D3      Fixup  

      IS READ, CHECKED/CORRECTED (BASED ON INPUT OPTIONS) AND OUTPUT.    Fixup  

      WHEN MF=3D= 3 IS LOCATED ALL CROSS SECTIONS ARE READ, SECTIONS TO BE   Fixup  

      DELETED ARE DELETED, SECTIONS WHICH ARE NOT PRESENTED AND USER     Fixup  

      INPUT INDI= CATES SHOULD BE CREATED ARE CREATE, SECTIONS TO BE KEPT  Fixup  

      ARE CHECKED/CORRECTED (BASED ON INPUT OPTIONS) AND WRITTEN TO A    Fixup  

      SCRATCH FI= LE. NEXT, IF THE USER SPECIFIES THAT THEY SHOULD,        Fixup  

      SECTIONS A= RE RECONSTRUCTED. FINALLY ALL CROSS SECTIONS (OLD AND    Fixup  

      NEW) ARE O= UTPUT. WITHIN THE SAME MAT, EACH SECTION AFTER MF=3D3 IS   Fixup  

      READ, CHECKED/CORRECTED (BASED ON INPUT OPTIONS) AND OUTPUT.       Fixu= p  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      MF=3D3        =             &nb= sp;            =             &nb= sp;            =      Fixup  

      =3D=3D=3D=3D        =             &nb= sp;            =             &nb= sp;            =      Fixup  

      THE TREATM= ENT OF THE CROSS SECTIONS REQUIRES UP TO 4 PASSES FOR    Fixup  

      CROSS SECT= IONS. IN THE PROGRAM THEY CORRESPOND TO SUBROUTINES      Fixup  

      PASS1, PAS= S2, PASS3 AND PASS4. THE ORIGINAL AND FINAL ENDF/B DATA  Fixup  

      FILES, 5 S= CRATCH FILES AND 3 IN CORE ARRAYS ARE USED. OPERATIONS   Fixup  

      PERFORMED = DURING EACH PASS ARE,        =             &nb= sp;            =    Fixup  

        =                      =             &nb= sp;            =             &nb= sp;      Fixup  

      PASS1        =             &nb= sp;            =             &nb= sp;            =     Fixup  

      =3D=3D=3D= =3D=3D        =             &nb= sp;            =             &nb= sp;            =     Fixup  

      READ ALL C= ROSS SECTIONS FROM ITAPE. DELETED ANY SECTIONS. CREATE   Fixup  

      ANY SECTIO= NS. CHECK/CORRECT THEM AND WRITE THEM TO SCRATCH FILE.   Fixup  

      DATA IS RE= AD INTO ARRAY A, TRANSFERRED TO ARRAY C (AFTER EDITING)  Fixup  

      AND OUTPUT= TO ISCRC FROM ARRAY C.          =             &nb= sp;           Fixup  

      ITAPE  - UNIT ORIGINAL ENDF/B DATA IS READ FROM.        =            Fixup  

      ISCRC  - SCRATCH UNIT THAT EDITED DATA IS WRITTEN ON.        =       Fixup  

      TABA   - ARRAY INTO WHICH ORIGINAL = DATA IS READ.        =            Fixup  

      TABC   - ARRAY INTO WHICH EDITED DA= TA IS TRANSFERRED TO AND        Fixup  

        =        FROM WHICH IT IS WRITTEN TO ISCRC.        =             &nb= sp;   Fixup  

        =             &nb= sp;            =             &nb= sp;            =            =     Fixup  

      PASS2        =             &nb= sp;            =             &nb= sp;            =     Fixup  

      =3D=3D=3D= =3D=3D        =             &nb= sp;            =             &nb= sp;            =     Fixup  

      IF A UNIFO= RM ENERGY GRID IS REQUESTED IT IS CREATED DURING THIS    Fixup  

      PASS. FIRS= T ALL OF THE CROSS SECTIONS FROM PASS1 ARE READ AND A    Fixup  

      UNIFORM EN= ERGY GRID IS CREATED =3D ALL ENERGIES THAT ARE INCLUDED    Fixup  

      IN AT LEAS= T ONE SECTION (MT) OF CROSS SECTIONS.        =             Fixup  

      ISCRA  - SCRATCH UNIT CONTAINING UNIFORM = ENERGY GRID.        =       Fixup  

      ISCRB  - SCRATCH UNIT CONTAINING UNIFORM = ENERGY GRID.        =       Fixup  

      ISCRC  - SCRATCH UNIT THAT EDITED DATA IS= READ FROM.        =        Fixup  

      TABA   - ARRAY CONTAINING UNIFORM E= NERGY GRID.        =              Fixup  

      TABB   - ARRAY CONTAINING UNIFORM E= NERGY GRID.        =              Fixup  

      TABC   - ARRAY CONTAINING EDITED DATA.        =             &nb= sp;        Fixup  

        =                    =             &nb= sp;            =             &nb= sp;        Fixup  

      THE UNIFORM ENERGY GRID ENDS UP ON ISCRB. NEXT EACH SECTION OF     Fixup  

      CROSS SECT= IONS FROM PASS1 IS READ FROM ISCRC, INTERPOLATED TO      Fixup  

      THE UNIFORM ENERGY GRID AND OUTPUT TO ISCRA. FINALLY ISCRA AND     Fixup  

      ISCRC ARE SWITCH, SO THAT AT THE END OF THIS PASS THE DATA WILL    Fixup  

      AGAIN BE ON ISCRC (EXACTLY AS AT THE END OF PASS1), WITH UPDATED   Fixup  

      POINT COUNTS.        =                     =             &nb= sp;            =  Fixup  

      ISCRA  - SCRATCH UNIT THAT UNIFORM ENERGY= GRID DATA IS WRITTEN ON. Fixup  

      ISCRB  - SCRATCH UNIT CONTAINING UNIFORM = ENERGY GRID.        =       Fixup  

      ISCRC  - SCRATCH UNIT THAT EDITED DATA IS= READ FROM.        =        Fixup  

      TABA   - ARRAY CONTAINING UNIFORM E= NERGY GRID DATA.        =         Fixup  

      TABB   - ARRAY CONTAINING UNIFORM E= NERGY GRID.        =              Fixup  

      TABC   - ARRAY CONTAINING EDITED DATA.        =                =       Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      PASS3        =             &nb= sp;            =             &nb= sp;            =     Fixup  

      =3D=3D=3D= =3D=3D        =             &nb= sp;            =             &nb= sp;                Fixu= p  

      SUMMATION = CROSS SECTIONS ARE DEFINED BY READING DATA FROM ISCRC    Fixup  

      AND MERGIN= G THEM ONTO ISCRA. THE FIRST SECTION THAT CONTRIBUTES    Fixup  

      TO A SUM IS MERELY COPIED FROM C TO A. IF MORE SECTIONS WILL       Fixu= p   

      CONTRIBUTE= TO THE SUM THE DATA IN A IS TRANSFERRED TO B, A         Fixup  

      SECTION OF= DATA FROM C IS ADDED TO THE DATA IN B AND STORED IN     Fixup  

      A. THE CYL= E OF ADDED C AND B TO A, FOLLOWED BY MOVING A TO B       Fixu= p  

      IS CONTINU= ED UNTIL ALL CONTRIBUTING SECTIONS HAVE BEEN ADDED.      Fixup  

      THE SUM IS= THEN COPIED FROM A TO D. IF NEWLY CONSTRUCTED SECTION   Fixup  

      IS REQUIRE= D FOR ANY LATER SUMMUATIONS IT IS ALSO COPIED TO E.      Fixup  

      THE CYCLE = OF ADDED SECTIONS FROM C AND B TO A IS REPEATED FOR      Fixup  

      EACH REQUI= RED SUMMATION REACTION. IN ADDITION TO SECTIONS FROM     Fixup  

      C, AFTER T= HE FIRST SUMMATION SECTIONS MAY ALSO BE ADDED TO A       Fixu= p  

      FROM E (THE CONTRIBUTION OF NEW RECONSTRUCTED CROSS SECTIONS).     Fixup  

      WHEN ALL REQUIRED SECTIONS HAVE BEEN RECONSTRUCTED THE NEW         Fixup  

      SECTIONS W= ILL BE ON E AND THE ORIGINAL SECTIONS ON C.        =       Fixup  

      ISCRC  - SCRATCH FILE FROM WHICH ORIGINAL= DATA IS READ.        =     Fixup  

      ISCRA  - SCRATCH FILE ONTO WHICH SUM FOR = ONE SECTION IS WRITTEN.   Fix= up  

      ISCRD  - SCRATCH FILE ONTO WHICH ALL SUM = CROSS SECTIONS ARE        Fixup  

        =        WRITTEN.        =             &nb= sp;           =             &nb= sp;     Fixup  

      ISCRE  - SCRATCH FILE ONTO WHICH ALL SUM = CROSS SECTIONS WHICH    &nbs= p; Fixup  

        =        ARE REQUIRED FOR LATER SUMS ARE WRITTEN.        =           Fixup  

      ISCRB  - UTILITY SCRATCH FILE USED TO CRE= ATE SUM CROSS SECTIONS.   Fixup  

      TABA   - ARRAY INTO WHICH SUMS ARE WRITTEN.        =             &nb= sp;   Fixup  

      TABB   - ARRAY INTO WHICH PARTIAL S= UMS ARE WRITTEN.        =         Fixup  

      TABC   - ARRAY INTO WHICH ORIGINAL = DATA IS READ.        =            Fixup=   

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      PASS4        =             &nb= sp;            =             &nb= sp;            =     Fixup  

      =3D=3D=3D= =3D=3D        =             &nb= sp;            =             &nb= sp;            =     Fixup  

      CROSS SECT= IONS ARE READ FROM ISCRC (ORIGINAL) AND ISCRD (NEW)      Fixup  

      AND ARE WR= ITTEN IN THE ENDF/B FORMAT ON OTAPE. THE BEGINNING OF    Fixup  

      EACH SECTI= ON OF ORIGINAL DATA IS READ FROM ISCRC (TO DEFINE        Fixup  

      SECTION HEADER INFORMATION). IF THI= S MT HAS NOT BEEN RECOSTRUCTED  Fixup  

      ON ISCRD T= HE ORIGINAL SECTION IS OUTPUT. IF THE SECTION HAS BEEN   Fixup  

      RECONSTRUC= TED THE ORIGINAL SECTION IS SKIPPED AND THE NEW SECTION  Fixup  

      IS OUTPUT.=         =             &nb= sp;            =             &nb= sp;           Fixup  

      OTAPE  - OUTPUT DATA IN THE ENDF/B FORMAT= .        =             &nb= sp;    Fixup  

      ISCRC  - SCRATCH FILE FROM WHICH ORIGINAL= DATA IS READ.        =     Fixup  

      ISCRD  - SCRATCH FILE FROM WHICH NEW DATA= IS READ.        =          Fixup  

      TABC   - ARRAY INTO WHICH CROSS SEC= TIONS ARE READ FROM SCRATCH   &nb= sp; Fixup  

        =        AND WRITTEN TO OTAPE        =             &nb= sp;            =      Fixup  

        =             &nb= sp;            =           =             &nb= sp;            =      Fixup  

      I/O FILE DEFINITIONS        =             &nb= sp;            =             &nb= sp; Fixup  

      =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D        =             &nb= sp;            =             &nb= sp; Fixup  

      UNIT   DESCRIPTION        =                      =             &nb= sp;       Fixup  

      =3D=3D=3D= =3D   =3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D        =             &nb= sp;            =             &nb= sp;   Fixup  

        2    INPUT PARAMETERS.        =             &nb= sp;            =           Fixup  

        3    OUTPUT REPORT.        =             &nb= sp;               =           Fixup  

       10    ORIGINAL DATA IN THE E= NDF/B FORMAT.        =             &nb= sp;    Fixup  

       11    FINAL DATA IN THE ENDF= /B FORMAT.        =             &nb= sp;       Fixup  

       12    SCRATCH FILE        =             &nb= sp;            =                = Fixup  

       14    SCRATCH FILE        =             &nb= sp;            =             &nb= sp;  Fixup  

       15    SCRATCH FILE        =             &nb= sp;            =             &nb= sp;  Fixup  

       16    SCRATCH FILE        =             &nb= sp;            =             &nb= sp;  Fixup  

       17    SCRATCH FILE        =             &nb= sp;            =             &nb= sp;  Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      OPTIONAL STANDARD FILE NAMES (SEE SUBROUTINE FILIO1 AND FILIO2)    Fixup  

      =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    Fixup  

      UNIT  FILE NAME   FORMAT        =             &nb= sp;            =           Fixup  

      =3D=3D=3D= =3D  =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D  =3D=3D=3D=3D=3D=3D        =             &nb= sp;            =           Fixup  

        2   FIXUP.INP    BCD        =             &nb= sp;            =             Fixup  

        3   FIXUP.LST    BCD        =             &nb= sp;            =             Fixup  

       10   ENDFB.IN     BCD        =             &nb= sp;            =             Fixup  

       11   ENDFB.OUT    BCD        =             &nb= sp;            =             Fixup  

     12-17  (SCRATCH)   BINARY        =             &nb= sp;            =           Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      INPUT LINE= S        =                 =             &nb= sp;            =        Fixup  

      =3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D        =             &nb= sp;            =             &nb= sp;          Fixup  

      LINE  COLUMNS  FORMAT  DESCRIPTION        =             &nb= sp;            Fixup  

      =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<= span style=3D'mso-spacerun:yes'>           =             &nb= sp;         Fixup  

<= /p>

        1    1-14     14I1   INPUT OPTIONS AS DESCRIBED ABOVE.        =    Fixup  

        =             &nb= sp;        EACH COLUMN OF THE INPUT LINE CONTROLS      Fixup  

        =             &nb= sp;        ONE OF THE TESTS/CORRECTIONS DESCRIBED      Fixup  

        =             &nb= sp;        ABOVE. TESTS/CORRECTION 1-14 (NOT ALL       Fixu= p  

        =             &nb= sp;        IMPLEMENTED YET) CORRESPOND TO COLUMNS      Fixup  

        =             &nb= sp;        1-14 OF THIS INPUT LINE AND ARE TREATED     Fixup  

        =             &nb= sp;        AS FOLLOWS,        =             &nb= sp;            Fixup  

        =             &nb= sp;        =3D 0 - DO NOT PERFORM TEST/CORRECTION.       Fixu= p  

        =             &nb= sp;        =3D 1 - PERFORM TEST/CORRECTION.        =       Fixup  

        =             &nb= sp;        FOR MT EXCLUSION FROM THRESHOLD TESTS       Fixu= p  

        =             &nb= sp;        (COLUMN 2), DELETION (COLUMN 4), OR         Fixup  

        =             &nb= sp;        SUMMATION (COLUMN 5) THE INPUT OPTION       Fixu= p  

        =             &nb= sp;        MAY BE,    &nbs= p;            &= nbsp;           &nbs= p;       Fixup  

        =             &nb= sp;        =3D 1 - READ RULES FROM INPUT        =          Fixup  

        =             &nb= sp;        =3D 2 - USE BUILT-IN RULES        =             Fixup  

        2    1-60      A60   ENDF/B INPUT DATA FILENAME        =           Fixup  

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

        3    1-60      A60   ENDF/B OUTPUT DATA FILENAME<= span style=3D'mso-spacerun:yes'>        =          Fixup  

        =                     =  (STANDARD OPTION =3D ENDFB.OUT)        =        Fixup  

      4-M    1-5      FREE   CHARACTER (S,D,T,R,*) FOLLOW= ED BY BLANK OR  Fixup  

        =             &nb= sp; FORM   MT NUMBER        =             &nb= sp;            =   Fixup  

        =             &nb= sp;        - THE ALLOWED CHARACTERS ARE,        =        Fixup  

        =             &nb= sp;        - S OR BLANK =3D SUM (OR DIFFERENCES)         Fixup  

        =             &nb= sp;        - D =3D DELETE        =             &nb= sp;           Fixup  

        =             &nb= sp;        - T =3D NO THRESHOLD ENERGY CORRECTIONS       Fixu= p  

        =             &nb= sp;        - R =3D RATIO        =             &nb= sp;            Fixup  

        =             &nb= sp;        - * =3D PRODUCT        =             &nb= sp;          Fixup  

        =     6-72      FREE   UP TO 10 LO= WER AND UPPER MT RANGES WHICH    Fixup  

        =             &nb= sp; FORM   WILL BE USE= D TO DEFINE THE RECONSTRUCTED    Fixup  

        =             &nb= sp;        CROSS SECTION OR TO DEFINE MT RANGES WHICH  Fixup  

        =             &nb= sp;        ARE EXCLUDED FROM THRESHOLD TESTS.        =   Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

        =             &nb= sp;        EACH MT NUMBER IS DEFINED BY A CONTINUOUS   Fixup  

        =             &nb= sp;        STRING OF DIGITS, POSSIBILITY PRECEEDED BY  Fixup  

        =             &nb= sp;        A - (MINUS SIGN). EACH MT NUMBER MUST BE    Fixup  

        =             &nb= sp;        BLANK OR OTHERWISE (NOT A DIGIT) DELIMITED. Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup   

        =             &nb= sp;        COLUMNS 6-72 MAY CONTAIN STRINGS OF DIGITS  Fixup  

        =             &nb= sp;        THE FIRST DIGIT STRING OF EACH PAIR MAY BE  Fixup  

        =             &nb= sp;        PRECEEDED BY A - (MINUS SIGN).        =       Fixup  

                =             &nb= sp;            =             &nb= sp;            =        Fixup  

        =             &nb= sp;        EACH LINE WILL BE INTERPRETED AS FOLLOWS,   Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

        =                   =   *SUMMATION (OR DIFFERENCES)        =           Fixup  

        =             &nb= sp;        --------------------------        =           Fixup  

        =             &nb= sp;        COLUMNS 1-5 =3D S OR BLANK FOLLOWED BY THE    Fixup  

        =             &nb= sp;        MT NUMBER TO BE DEFINE= D BY SUMMATION        Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

        =             &nb= sp;        COLUMNS 6-72 =3D UP TO 10 MT RANGE (PAIRS OF  Fixup  

        =             &nb= sp;        MT NUMBERS) TO BE USED TO DEFINED THE SUM.  Fixup  

        =             &nb= sp;        IF THE FIRST MT NUMBER OF A PAIR IS         Fixup  

        =             &nb= sp;        NEGATIVE THE RANGE OF MT NUMBERS IS         Fixup  

        =             &nb= sp;        SUBTRACTED - AT LEAST ONE RANGE MUST BE     Fixup  

        =             &nb= sp;        SPECIFIED.    &= nbsp;           &nbs= p;            &= nbsp;    Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

        =             &nb= sp;       *DELETIONS    &= nbsp;           &nbs= p;           =        Fixup  

        =             &nb= sp;        ---------    &n= bsp;            = ;            &n= bsp;     Fixup  

        =             &nb= sp;        COLUMNS 1-5 =3D D FOLLOWED BY BLANKS        =   Fixup  

        =             &nb= sp;            =             &nb= sp;            =                Fixup  

        =             &nb= sp;        COLUMNS 6-72 CONTAIN UP TO 10 MT RANGE      Fixup  

        =             &nb= sp;        (PAIRS OF MT NUMBERS), EACH RANGE DEFINING  Fixup  

        =             &nb= sp;        A RANGE OF MT NUMBERS TO BE DELETED - AT    Fixup  

        =             &nb= sp;        LEAST ONE RANGE MUST BE SPECIFIED.        =   Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

        =             &nb= sp;       *EXCLUSION FROM THRESHOLD TESTS        =       Fixup  

              =             &nb= sp;  ------------------------------        =       Fixup  

        =             &nb= sp;        COLUMNS 1=3D5 =3D T FOLLOWED BY BLANKS        =   Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

        =                 =      COLUMNS 6-72 CONTAIN UP TO 10 MT RANGE      Fixup  

        =             &nb= sp;        (PAIRS OF MT NUMBERS), EACH RANGE DEFINING  Fixup  

        =             &nb= sp;        A RANGE OF MT NUMBERS WHOSE THRESHOLD       Fixu= p  

        =             &nb= sp;        ENERGY WIL= L NOT BE CHECKED - AT LEAST ONE   Fixup  

        =             &nb= sp;        RANGE MUST BE SPECIFIED.        =             Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

        =             &nb= sp;       *RATIO          =             &nb= sp;            =     Fixup  

        =             &nb= sp;        -----     =             &nb= sp;            =          Fixup  

        =             &nb= sp;        COLUMNS 1-5 =3D R FOLLOWED BY THE MT NUMBER   Fixup  

        =             &nb= sp;        TO BE DEFINED BY A RATIO        =             Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

        =             &nb= sp;        COLUMNS 6-72 CONTAINS 2 MT NUMBERS TO BE    Fixup  

        =             &nb= sp;        USED TO DEFINE THE RATIO.          =          Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

        =             &nb= sp;       *PRODUCT    &nb= sp;            =             &nb= sp;       Fixup  

        =             &nb= sp;        -----     =             &nb= sp;            =          Fixup  

        =             &nb= sp;        COLUMNS 1-5 =3D * FOLLOWED BY THE MT NUMBER   Fixup  

        =             &nb= sp;        TO BE DEFINED BY A PRODUCT        =           Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

        =             &nb= sp;        COLUMNS 6-72 CONTAINS 2 MT NUMBERS TO BE    Fixup  

        =             &nb= sp;        USED TO DEFINE THE PRODUCT.        =          Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

            =             &nb= sp;    CONVENTIONS        =             &nb= sp;            Fixup  

        =             &nb= sp;        -----------        =             &nb= sp;            Fixup  

        =             &nb= sp;       *UP TO 20 DELETIONS AND 20 SUMMATIONS OR     Fixup  

        =               =        RATIOS OR PRODUCTS MAY BE SPECIFIED.        Fixup  

        =             &nb= sp;       *ONLY 1 EXCLUSION FROM THRESHOLD TESTS       Fixu= p  

        =             &nb= sp;        MAY BE SPECIFIED (THE 1 LINE MAY CONTAIN    Fixup  

        =             &nb= sp;        UP TO 10 MT RANGES TO EXCLUDE FROM TESTS).&nb= sp; Fixup  

        =             &nb= sp;       *INPUT IS TERMINATED BY INPUTTNG 0 OR        Fixup  

        =             &nb= sp;        BLANK IN COLUMNS 1-72 (I.E. THE LAST        Fixup  

        =             &nb= sp;        INPUT LINE MUST BE BLANK).        =           Fixup  

        =             &nb= sp;       *THE UPPER LIMIT OF EACH RANGE MUST BE AT    Fixup  

        =             &nb= sp;        LEAST AS BIG AS THE LOWER LIMIT (IN         Fixup  

        =             &nb= sp;        ABSOLUTE VALUE).        =             &nb= sp;       Fixup  

        =             &nb= sp;       *FOR RECONSTRUCTION POSITIVE MT RANGES WILL  Fixup  

        =             &nb= sp;        BE ADDED TO THE SUM AND NEGATIVE MT RANGES  Fixup  

        =             &nb= sp;        WILL BE SUBTRACTED.              =            Fi= xup  

        =             &nb= sp;       *IF INPUT OPTION 2 (FIRST INPUT LINE) IS     Fixup  

        =             &nb= sp;        0 THRESHOLD EXCLUSION IS NOT ALLOWED.       Fixu= p  

        =             &nb= sp;       *IF INPUT OPTION 4 (FIRST INPUT LINE) IS     Fixup  

        =             &nb= sp;        0 DELETIONS ARE NOT ALLOWED.        =         Fixup  

        =             &nb= sp;       *IF INPUT OPTION 5 (FIRST INPUT LINE) IS     Fixup  

        =             &nb= sp;        0 SUMMATIONS AND RATIOS ARE NOT ALLOWED.    Fixup  

      N-K        =             IF THE USER SPECIFIES THAT SECTIONS WHICH   Fixup  

        =             &nb= sp;        ARE NOT PRESENT IN THE ORIGINAL EVALUATION  Fixup  

        =             &nb= sp;        MAY BE CREATED, TWO LINES MUST BE INPUT FOR Fixup  

          =             &nb= sp;      EACH SECTION TO BE CREATED. THE TWO LINES =   Fixup  

        =             &nb= sp;        DEFINE (C1, C2, L1 AND L2) FOR EACH OF THE  Fixup  

        =             &nb= sp;        FIRST TWO LINES OF THE SECTION TO BE        Fixup  

        =             =          CREATED. THE FIRST LINE ALSO DEFINES (MAT &nbs= p; Fixup  

        =             &nb= sp;        AND MT). (N1, N2) ARE ALWAYS ZERO ON THE    Fixup  

        =             &nb= sp;        FIRST LINE AND WILL BE CALCULATED BY THE    Fixup  

        =             &nb= sp;        PROGRAM FOR THE SECOND LINE.        =         Fixup  

    FIRST    1-11     E11.4  ZA OF SECTION TO BE CREATED        =          Fixup  

    LINE    12-22     E11.4  AWRE OF SECTION TO BE CREATED        =        Fixup  

        =     23-33      I11   L1 OF SECTIO= N TO BE CREATED        =          Fixup  

        =     34-44      I11   L2 OF SECTIO= N TO BE CREATED        =          Fixup  

        =     45-48      I4    MAT OF SECTION TO BE CREATED        =         Fixup  

        =     49-51      I3    MT OF S= ECTION TO BE CREATED        =          Fixup  

   SECOND    1-11     E11.4  C1 OF SECTION TO BE CREATED        =          Fixup  

    LINE    12-22     E11.4  C2 OF SECTION TO BE CREATED        =          Fixup  

        =     23-33      I11   L1 OF SECTIO= N TO BE CREATED        =          Fixup  

        =     34-44      I11   L2 OF SECTIO= N TO BE CREATED        =          Fixup  

        =             &nb= sp;       *PAIRS OF LINES MAY BE IN ANY MAT/MT ORDER   Fixup  

        =             &nb= sp;        (E.G., THEY NEED NOT BE IN ASCENDING        Fixup  

        =             &nb= sp;         MAT/MT ORDER).        =             &nb= sp;        Fixup  

        =             &nb= sp;       *UP TO 50 PAIRS OF LINES MAY BE USED TO      Fixup  

        =             &nb= sp;        DEFINE SECTIONS TO BE CREATED. THE LIST     Fixup  

        =             &nb= sp;        IS TERMINATED WHEN THE FIRST LINE OF A      Fixup  

        =             &nb= sp;        PAIR CONTAINS A ZERO (OR BLANK) MAT AND/OR  Fixup  

        =             &nb= sp;        MT.     &n= bsp;            = ;            &n= bsp;          Fixup  

      M-N        =             IF THE USER SPECIFIES THAT ENERGIES WHICH   Fixup  

        =             &nb= sp;        ARE NOT PRESENT IN THE ORIGINAL EVALUATION  Fixup  

        =             &nb= sp;        MAY BE INSERTED, ONE LINE MUST BE INPUT FOR Fixup  

        =           =            EA= CH ENERGY TO BE INSERTED.        =          Fixup  

        =      1-11    E11.4=    ENERGY TO BE INSERTED        =             &nb= sp;  Fixup  

        =     12-15     I4     M= AT IN WHICH TO INSERT ENERGY =3D 0 =3D ALL     Fixup  

        =     16-18     I3     MT IN WHICH TO I= NSERT ENERGY =3D 0 =3D ALL   &nbs= p;  Fixup  

        =             &nb= sp;       *UP TO 50 (ENERGY, MAT, MT) LINES MAY BE     Fixup  

        =             &nb= sp;        USED. THE LIST IS TERMINATED BY A BLANK     Fixup  

        =             &nb= sp;        LINE.        =             &nb= sp;            =       Fixup  

        =             &nb= sp;       *INPUT MAY BE IN ANY (ENERGY, MAT, MT)       Fixu= p  

        =             &nb= sp;        ORDER.     = ;            &n= bsp;            = ;        Fixup  

        =             &nb= sp;       *ENERGY POINTS CAN ONLY BE INSERTED WITHIN   Fixup  

        =             &nb= sp;        THE ORIGINAL ENERGY RANGE OF A SECTION -    Fixup  

        =             &nb= sp;        THIS OPTION CANNOT BE USED TO EXTEND THE    Fixup  

        =             &nb= sp;        CROSS SECTION EITHER BELOW OR ABOVE THE     Fixup  

        =             &nb= sp;        ORIGINAL TABULATED ENERGY RANGE.        =     Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

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

      =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D        =             &nb= sp;            =             &nb= sp;  Fixup  

      (1) USE OP= TIONS 1-11 (ALL OPTIONS, EXCEPT INSERT ENERGY POINTS)    Fixup  

      (2) DELETE MT=3D900 (FOR EXAMPLE PURPOSES ONLY)        =               Fixup  

      (3) DEFINE= THE FOLLOWING MT NUMBERS TO BE RECONSTRUCTED,        =    Fixup  

        =   (MT=3D  4) =3D THE SUM = OF MT=3D 51 THROUGH  91        =             &nb= sp;  Fixup  

        =   (MT=3D103) =3D THE SUM OF MT=3D700 THROUGH 718 (NOT 719)        =      Fixup   

        =   (MT=3D104) =3D THE SUM OF MT=3D720 THROUGH 738 (NOT 739)        =      Fixup  

        =   (MT=3D105) =3D THE SUM OF MT=3D740 THROUGH 758 (NOT 759)        =      Fixup  

        =   (MT=3D106) =3D THE SUM OF MT=3D760 THROUGH 778 (NOT 779)        =      Fixup  

          (MT=3D107) =3D THE SUM OF MT= =3D780 THROUGH 798 (NOT 799)        =      Fixup  

        =   (MT=3D101) =3D THE SUM OF MT=3D102 THROUGH 114        =             &nb= sp;  Fixup  

        =   (MT=3D 18) =3D (MT=3D19) + (MT=3D20 AND 21) + (MT=3D38)        =           Fixup  

        =              (IF TOTAL FISSION, MT=3D18, IS NOT PRESENT, DEFINE    Fixup  

        =              IT BY SUMMING FIRST, SECOND, ETC. CHANCE - NOTE     Fixup  

        =              THAT THIS MUST BE DONE IN THIS ORDER, SINCE THE     Fixup  

        =              NEXT SUM INVOLVES USING MT=3D18.        =             &nb= sp; Fixup  

        =   (MT=3D 27) =3D THE SUM OF MT=3D 18 AND 101        =             &nb= sp;      Fixup  

        =              (MT=3D101 RECONSTRUCTED ABOVE USED IN SUM).        =    Fixup  

        =   (MT=3D  3) =3D THE SUM = OF (MT=3D4)+(MT=3D6-9)+(MT=3D16-17)+(MT=3D22-37)+   Fixup  

        =              (MT=3D41-45)        =             &nb= sp;            =          Fixup  

        =              (MT=3D4 AND 27 RECONSTRUCTED ABOVE USED IN SUM).      Fixup  

        =   (MT=3D 19) =3D (MT=3D18) - (MT=3D20 AND 21) - (MT=3D38)        =           Fixup  

        =              (DEFINE FIRST CHANGE FISSION BY SUBTRACTION TO      Fixup  

        =              ALLOW RESONANCE CONTRIBUTION FROM MT=3D18 TO BE       Fixu= p  

        =              INCLUDED IN MT=3D19).        =                   =        Fixup  

        =   (MT=3D  1) =3D THE SUM = OF MT=3D2 AND 3        =             &nb= sp;          Fixup  

        =              (MT=3D3 RECONSTRUCTED ABOVE USED IN SUM).        =      Fixup  

     (4) THRESHOLD EN= ERGIES OF THE FOLLOWING MT NUMBERS WILL NOT BE      Fixup  

        =   TESTED OR CORRECTED.        =             &nb= sp;            =           Fixup  

        =   MT=3D1, 4, 18, 19, 91, 103 THROUGH 114.        =             &nb= sp;     Fixup  

     (5) DEFINE MT=3D= 254 TO BE THE CAPTURE TO FISSION RATIO (MT=3D102/18)    Fixup  

     (6) CREATE MAT=3D1300/MT=3D254 - NOTE, THIS IS NECESSARY IN ORDER TO    Fixup  

         HAVE THE CAPTURE TO FISSION RATIO OUTPUT IN THE ENDF/B FORMAT   Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      NOTE, ON T= HE FOLLOWING INPUT LINES THE CHARACTERS =3D ( ) + , HAVE   Fixup  

      BEEN USED = ONLY TO MAKE THE INPUT MORE READABLE - THESE CHARACTERS  Fixup  

      WILL BE SK= IPPED BY THE PROGRAM IN READING INPUT - THE RESULTS      Fixup  

      WOULD BE T= HE SAME IF THESE CHARACTERS WERE OMITTED, AS LONG AS     Fixup  

      ALL OF THE= MT NUMBERS ARE DELIMITED, I.E., THERE IS AT LEAST ONE   Fixup  

      NON-DIGITAL CHARACTER BETWEEN MT NUMBERS. NOTE, THAT - (MINUS      Fixup  

      SIGN) IS IMPORTANT AND IS USED DURING INPUT TO DEFINE MT RANGES    Fixup  

      WHICH SHOU= LD BE SUBTRACTED, E.,G., SEE THE DEFINITION OF MT=3D19.    Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      READ FILE /ENDFB6/K300/LEAD.IN AND WRITE /ENDFB6/K300/LEAD.OUT     Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      THE FOLLOW= ING 21 INPUT LINES ARE REQUIRED.        =             &nb= sp;    Fixup  

        =             &nb= sp;            =                      =             &nb= sp;      Fixup  

      1111111111= 1        =             &nb= sp;            =             &nb= sp;          Fixup  

      /ENDFB6/K300/LEAD.IN        =             &nb= sp;            =             &nb= sp; Fixup  

      /ENDFB6/K300/LEAD.OUT        =             &nb= sp;                =          Fixup  

      D900        =             &nb= sp;            =             &nb= sp;            =      Fixup  

         4=3D( 51, 91)        =             &nb= sp;            =             &nb= sp;       Fixup  

       103=3D(700,718)        =             &nb= sp;            =                     Fixup  

       104=3D(720,738)        =             &nb= sp;            =             &nb= sp;       Fixup  

       105=3D(740,758)        =             &nb= sp;            =             &nb= sp;       Fixup  

       106=3D(760,778)        =             &nb= sp;            =             &nb= sp;       Fixup  

       107=3D(780,798)        =             &nb= sp;            =             &nb= sp;       Fixup  

       101=3D(102,114)        =             &nb= sp;            =             &nb= sp;       Fixup  

        18=3D( 19, 19)+( 20, 21)+( 38, 38)        =             &nb= sp;            Fixup  

        27=3D( 18, 18)+(101,101)        =             &nb= sp;            =           Fixup  

         3=3D(  4,  4)+(  6,  9)+( 16, 17)+( 22, 37)+( 41, 45)        =      Fixup  

        19=3D( 18, 18)-( 20, 21)-( 38, 38)        =             &nb= sp;            Fixup  

         1=3D(  2,  3)        =             &nb= sp;            =             &nb= sp;       Fixup  

      T    (  1,  1) (  4,  4) ( 18, 19) ( 91, 91) (103,114)        =      Fixup  

      R254=3D(10= 2/ 18)        =             &nb= sp;            =             &nb= sp;       Fixup  

        =            (BLANK LINE TO TERMINATE SUMMATION/DELETION RULES)    Fixup  

       2.00= 400+ 3 0.00000+ 0        =   0     &nbs= p;    01300254        =         Fixup  

       0.00= 000+ 0 0.00000+ 0        =   0     &nbs= p;    0        =             &nb= sp;  Fixup  

        =            (BLANK LINE TO TERMINATE SECTION CREATION RULES)      Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      NOTE, THE DELETION AND THRESHOLD EXCLUSION LINES MAY APPEAR IN     Fixup  

      IN ANY ORD= ER. HOWEVER, SUMMATION AND RATIO RULES MUST APPEAR IN    Fixup  

      THE ORDER = IN WHICH YOU WANT THEM TO BE EXECUTED - E.G., THE        Fixup  

      ABOVE INPU= T WILL FIRST RECONSTRUCT MT=3D4, WHICH CAN THEN BE USED    Fixup  

      TO CONTRIB= UTE TO THE FOLLOWING SUM TO DEFINE MT=3D3, WHICH IN TURN   Fixup  

      CAN THEN B= E USED TO CONTRIBUTE TO THE FOLLOWING SUM TO DEFINE      Fixup  

      MT=3D1. IF= THE ORDER OF THE INPUT LINES IS CHANGED SUCH THAT MT=3D3    Fixup  

      IS RECONST= RUCTED BEFORE MT=3D4, THE ORIGINAL MT=3D4 WILL BE USED IN    Fixup  

      THE SUMMAT= ION TO DEFINE MT=3D3. THE SAME RULES APPLY TO CALCULATING  Fixup  

      RATIOS, IF EITHER THE NUMERATOR OR DENOMINATOR IS TO BE DEFINED    Fixup  

      BY SUMMATI= ON, THIS SHOULD BE DONE BEFORE DEFINING THE RATIO BY     Fixup  

      INPUT PARAMETERS.        =             &nb= sp;            =             &nb= sp;    Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

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

      =3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D        =             &nb= sp;            =             &nb= sp;  Fixup  

      (1) USE OP= TIONS 1-11 (ALL OPTIONS, EXCEPT INSERT ENERGY POINTS)    Fixup  

      (2) USE BU= ILT-IN TABLES FOR SUMMATION/DELETION/THRESHOLD EXCLUSION Fixup  

        =   (THIS ONLY REQUIRES COLUMNS 2, 4 AND 5 TO BE SET =3D2 ON THE     Fixup  

        =   FIRST INPUT LINE. THE BUILT-IN RULES EXACTLY CORRESPOND TO     Fixup  

        =   THE INPUT ABOVE UNDER EXAMPLE NO. 1, EXCEPT THAT NO MT NUMBERS Fixup  

        =   WILL BE DELETED.        =             &nb= sp;            =             &nb= sp; Fixup  

      (3) IF NOT PRESENT, CREATE MAT=3D1300/MT=3D1        =             &nb= sp;      Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      USE THE ST= ANDARD FILE NAMES ENDFB.IN AND ENDFB.OUT (THIS CAN BE    Fixup  

      DONE BY LE= AVING THE SECOND AND THIRD INPUT LINES BLANK).        =    Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      THE FOLLOW= ING 6 INPUT LINES ARE REQUIRED.        =             &nb= sp;     Fixup  

<= /p>

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      1212211111= 1        =             &nb= sp;            =             &nb= sp;          Fixup  

        =             &nb= sp;            =             &nb= sp;             =             &nb= sp; Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

       2.00= 400+ 3 0.00000+ 0        =   0     &nbs= p;    01300  1        =         Fixup  

       0.00= 000+ 0 0.00000+ 0        =   0     &nbs= p;    0        =            =     Fixup  

        =            (BLANK LINE TO TERMINATE SECTION CREATION RULES)      Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      EXAMPLE IN= PUT NO. 3        =             &nb= sp;            =                Fixup  

      =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D        =             &nb= sp;            =             &nb= sp;  Fixup  

      (1) USE OP= TIONS 1-10 (ALL OPTIONS PRESENTLY IMPLEMENTED, EXCEPT    Fixup  

        =   DO NOT ALLOW SECTION CREATION AND INSERT ENERGY POINTS).       Fixu= p  

      (2) USE BU= ILT-IN TABLES FOR SUMMATION/DELETION/THRESHOLD EXCLUSION Fixup  

        =   (THIS ONLY REQUIRES COLUMNS 2, 4 AND 5 TO BE SET =3D2 ON THE     Fixup  

        =   FIRST INPUT LINE. THE BUILT-IN RULES EXACTLY CORRESPOND TO     Fixup  

          THE INPUT ABOVE UNDER EXAMPLE NO. 1, EXCEPT THAT NO MT NUMBERS Fixup  

        =   WILL BE DELETED.        =             &nb= sp;            =             &nb= sp; Fixup  

      (3) DO NOT CREATE ANY SECTIONS.        =             &nb= sp;            =    Fixup  

        =                    =             &nb= sp;            =             &nb= sp;        Fixup  

      READ FILE /ENDFB6/K300/LEAD.IN AND WRITE /ENDFB6/K300/LEAD.OUT     Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      THE FOLLOW= ING 3 INPUT LINES ARE REQUIRED.        =             &nb= sp;     Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      1212211111=         =             &nb= sp;            =             &nb= sp;           Fixup  

      /ENDFB6/K300/LEAD.IN        =              =             &nb= sp;            =  Fixup  

      /ENDFB6/K300/LEAD.OUT        =             &nb= sp;            =              Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      EXAMPLE IN= PUT NO. 4        =             &nb= sp;           =             &nb= sp;   Fixup  

      =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D        =             &nb= sp;            =             &nb= sp;  Fixup  

      SAME AS EX= AMPLE NO. 3, ABOVE, EXCEPT INSERT AN ENERGY POINT AT     Fixup  

      THERMAL FO= R ALL REACTIONS WHICH SPAN THE THERMAL ENERGY RANGE.     Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      USE THE ST= ANDARD FILE NAMES ENDFB.IN AND ENDFB.OUT (THIS CAN BE    Fixup  

      DONE BY LE= AVING THE SECOND AND THIRD INPUT LINES BLANK).           Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      THE FOLLOW= ING 5 INPUT LINES ARE REQUIRED.        =             &nb= sp;     Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup   

      121221111101        =             &nb= sp;            =             &nb= sp;         Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

       2.53= 000- 2   0  0        =             &nb= sp;            =             &nb= sp;   Fixup  

        =            (BLANK LINE TO TERMINATE ENERGY INSERTS)        =       Fixup  

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

      WARNING            =             &nb= sp;            =             &nb= sp;          Fixup=   

      =3D=3D=3D= =3D=3D=3D=3D        =             &nb= sp;            =             &nb= sp;            =   Fixup  

      ALTHOUGH T= HIS PROGRAM IS DESIGNED TO ALLOW REACTIONS TO BE DEFINED Fixup  

      BY ADDING = OR SUBTRACTING REACTIONS THE USER SHOULD ALWAYS TRY TO   Fixup  

      DEFINE REA= CTIONS BY SUMMING TO AVOID NEGATIVE CROSS SECTIONS. FOR  Fixup  

      EXAMPLE, I= T IS POSSIBLE TO CALCULATE MT=3D3 AND DEFINE MT=3D1 AS THE   Fixup  

      SUM OF MT= =3D2 AND 3 (THE RECOMMENDED APPROACH AS USED IN THE ABOVE   Fixup  

      INPUT). ALTERATIVELY IT IS POSSIBLE TO CALCULATE MT=3D1 AND DEFINE   Fixup  

      MT=3D3 AS = MT=3D1 MINUS MT=3D2 (THIS APPROACH IS NOT RECOMMENDED).        Fixup  

        =             &nb= sp;            =             &nb= sp;         =             &nb= sp;     Fixup  

      THE ONLY BUILT-IN SUMMATION RULE THAT USES SUBTRACTION IS THE      Fixup  

      CALCULATIO= N OF THE FIRST CHANGE FISSION (MT=3D19) AS THE TOTAL       Fixu= p  

      FISSION (M= T=3D18) MINUS THE SECOND, THIRD AND FOURTH CHANGE FISSION  Fixup  

      (MT=3D20, = 21, 38). THIS HAS BEEN DONE TO ALLOW THE RESONANCE         Fixup  

      CONTRIBUTI= ON, CALCULATED BY MANY CODES AND INCLUDED IN MT=3D18,      Fixup  

      TO BE CONSISTENTLY INCLUDED IN THE FIRST CHANCE FISSION.           Fixup=   

        =             &nb= sp;            =             &nb= sp;            =             &nb= sp;  Fixup  

 =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 Fixup