=======================================================================FIXUP
FIXUP
PROGRAM FIXUP FIXUP
============= FIXUP
VERSION 84-1 (NOVEMBER 1984) FIXUP
VERSION 86-1 (JANUARY 1986) *IMPROVED BASED ON USER COMMENTS FIXUP
*FORTRAN-77/H VERSION FIXUP
VERSION 86-2 (JUNE 1986) *ALLOW CREATION OF SECTIONS OF CROSS FIXUP
SECTIONS WHICH ARE NOT PRESENT IN FIXUP
THE ORIGINAL EVALUATION FIXUP
VERSION 88-1 (JULY 1988) *OPTION...INTERNALLY DEFINE REA I/O FIXUP
FILE NAMES (SEE, SUBROUTINE FILEIO FIXUP
FOR DETAILS). FIXUP
*IMPROVED BASED ON USER COMMENTS. FIXUP
VERSION 89-1 (JANUARY 1989) *PSYCHOANALYZED BY PROGRAM FREUD TO FIXUP
INSURE PROGRAM WILL NOT DO ANYTHING FIXUP
CRAZY. FIXUP
*UPDATED TO USE NEW PROGRAM CONVERT FIXUP
KEYWORDS. FIXUP
*ADDED LIVERMORE CIVIC COMPILER FIXUP
CONVENTIONS. FIXUP
VERSION 89-2 (MARCH 1989) *ADDED ENDF-6 SUMMATION RULES AND FIXUP
DEFINED MF AND MT NUMBERS. PROGRAM FIXUP
WILL NOW USE MF=1, MT=451 TO DEFINE FIXUP
THE ENDF FORMAT OF THE DATA (E.G., FIXUP
ENDF-6 OR EARLIER) AND USE THE FIXUP
CORRECT SUMMATION RULES FOR EACH FIXUP
VERSION OF THE ENDF FORMAT. IF FIXUP
MF=1, MT=451 IS NOT PRESENT PROGRAM FIXUP
WILL USE ENDF-6 SUMMATION FIXUP
CONVENTIONS AS A DEFAULT. FIXUP
VERSION 90-1 (JUNE 1990) *UPDATED BASED ON USER COMMENTS FIXUP
*ADDED PHOTON INTERACTION, MF=23 FIXUP
VERSION 91-1 (JUNE 1991) *ADDED FORTRAN SAVE OPTION FIXUP
*NEW MORE CONSISTENT ENERGY OUTPUT FIXUP
ROUTINE FIXUP
VERSION 92-1 (JANUARY 1992) *ADDED OPTION TO CALCULATE RATIOS, FIXUP
E.G., CAPTURE/FISSION AND PRODUCTS, FIXUP
NU-BAR*FISSION - AND OUTPUT THE FIXUP
RESULTS IN THE ENDF FORMAT (SEE, FIXUP
BELOW - CREATING RATIOS AND PRODUCTS)FIXUP
*ALLOW TOTAL NU-BAR (MF=1, MT=452) TO FIXUP
BE USED IN DEFINING RATIOS OR FIXUP
PRODUCTS. FIXUP
*ALLOW ALL CROSS SECTIONS TO BE PUT FIXUP
ON A UNIFORM ENERGY GRID. FIXUP
*NOTE, CHANGE IN INPUT FORMAT FOR FIXUP
RANGES OF MT NUMBERS FIXUP
*COMPLETELY CONSISTENT I/O ROUTINES - FIXUP
TO MINIMIZE COMPUTER DEPENDENCE. FIXUP
VERSION 93-1 (JULY 1993) *CORRECTED ALGORITHM TO CREATE UNIFORMFIXUP
ENERGY GRID. FIXUP
VERSION 94-1 (JANUARY 1993) *VARIABLE ENDF/B DATA FILENAMES FIXUP
TO ALLOW ACCESS TO FILE STRUCTURES FIXUP
(WARNING - INPUT PARAMETER FORMAT FIXUP
HAS BEEN CHANGED) FIXUP
*INCREASED PAGE SIZE FROM 1002 TO FIXUP
12000 DATA POINTS. FIXUP
*CLOSE ALL FILES BEFORE TERMINATING FIXUP
(SEE, SUBROUTINE ENDIT) FIXUP
VERSION 96-1 (JANUARY 1996) *COMPLETE RE-WRITE FIXUP
*IMPROVED COMPUTER INDEPENDENCE FIXUP
*ALL DOUBLE PRECISION FIXUP
*ON SCREEN OUTPUT FIXUP
*UNIFORM TREATMENT OF ENDF I/O FIXUP
*IMPROVED OUTPUT PRECISION FIXUP
*DEFINED SCRATCH FILE NAMES FIXUP
*INCREASED PAGE SIZE FROM 12000 TO FIXUP
36000 DATA POINTS. FIXUP
VERSION 99-1 (MARCH 1999) *CORRECTED CHARACTER TO FLOATING FIXUP
POINT READ FOR MORE DIGITS FIXUP
*UPDATED TEST FOR ENDF FORMAT FIXUP
VERSION BASED ON RECENT FORMAT CHANGEFIXUP
*GENERAL IMPROVEMENTS BASED ON FIXUP
USER FEEDBACK FIXUP
VERSION 99-2 (JUNE 1999) *ASSUME ENDF-6, NOT 5, IF MISSING FIXUP
MF=1, MT-451. FIXUP
*FIXED CREATION OF SECTIONS FIXUP
VERS. 2000-1 (FEBRUARY 2000)*GENERAL IMPROVEMENTS BASED ON FIXUP
USER FEEDBACK FIXUP
VERS. 2002-1 (MAY 2002) *OPTIONAL INPUT PARAMETERS FIXUP
*SUMMATION RULES ARE DEFINED BASED FIXUP
ON CONTENTS OF TABLES. FIXUP
VERS. 2004-1 (JAN. 2004) *GENERAL UPDATE BASED ON USER FEEDBACKFIXUP
*INCREASED PAGE SIZE FROM 36000 TO FIXUP
60000 DATA POINTS. FIXUP
VERS. 2005-1 (JAN. 2005) *UPDATED MT CREATION TO ALLOW MAT =0 FIXUP
INDICATING CREATE FOR ALL MATS. FIXUP
VERS. 2007-1 (JAN. 2007) *CHECKED AGAINST ALL ENDF/B-VII DATA FIXUP
*INCREASED PAGE SIZE FROM 60,000 TO FIXUP
600,000 DATA POINTS. FIXUP
VERS. 2007-2 (OCT. 2007) *ADDED MT=16 AS SUM MT=875 THRU 891 FIXUP
*72 CHARACTER FILE NAMES FIXUP
VERS. 2010-1 (Apr. 2010) *Defining cross sections by summation FIXUP
to now mandatory - either build-in FIXUP
rules or by user input. FIXUP
VERS. 2011-1 (March 2011) *Added new MT # to allowed and FIXUP
summation rules. FIXUP
VERS. 2012-1 (Aug. 2012) *Corrected definition of MT=3 to avoidFIXUP
double counting of MT=18. FIXUP
*Extended incident particle list to FIXUP
include photon (ZA = 0). FIXUP
*Added CODENAME FIXUP
*32 and 64 bit Compatible FIXUP
*Added ERROR stops. FIXUP
VERS. 2015-1 (Jan. 2015) *Extended OUT9. FIXUP
*Replaced ALL 3 way IF Statements FIXUP
FIXUP
VERS. 2015-2 (Oct. 2015) *Threshold Correction no longer FIXUP
allowed = TOO DANGEROUS!!! FIXUP
VERS. 2017-1 (May 2017) *Updated based on user feekback FIXUP
*Increased tables to 3,000,000. FIXUP
*All floating input parameters changedFIXUP
to character input + IN9 conversion. FIXUP
*Ignore attempts to "correct" reactionFIXUP
threshold = cannot be done for FIXUP
temperature dependent (MF=3) data. FIXUP
VERS. 2017-2 (Oct. 2017) *Updated to insure sharp edges for FIXUP
photon interaction cross sections FIXUP
MF=23. FIXUP
*Updated for ELECTRONS to create, FIXUP
MF/MT=23/501 = Total FIXUP
MF/MT=23/522 = Total ionization FIXUP
*Updated to define MF=26 and electron FIXUP
Cross Sections MT=526, 527, 528 as FIXUP
LEGAL MF/MT Combinations. FIXUP
VERS. 2018-1 (Jan. 2018) *Decreased PAGE size from 2,700,000 FIXUP
to 1,800,000 - PAGE was too BIG for FIXUP
many computers - forcing the code FIXUP
to run VERY SLOWLY - smaller size FIXUP
improves running time. FIXUP
*Added on-line output for ALL ENDERRORFIXUP
VERS. 2019-1 (June 2019) *Additional Interpolation Law Tests FIXUP
*Print WARNING if ALL MTs in any FIXUP
evaluation DO NOT ALL EXTEND to the FIXUP
same Maximum Tabulated Energy = FIXUP
in this case data above the lowest FIXUP
common energy is identied as being FIXUP
UNRELIABLE. FIXUP
VERS. 2019-2 (Oct. 2019) *Corrected ERROR defining first point FIXUP
of each MT = first point was being FIXUP
ERRONEOUSLY skipped (due to an ERROR FIXUP
in removing the previous THRESHOLD FIXUP
"correction" test - which is no FIXUP
longer allowed). FIXUP
VERS. 2020-1 (Dec. 2020) *ZA & AWRE Correction Required. FIXUP
*Extenstion to 20 MeV NOT ALLOWED. FIXUP
*Threshold correction NOT ALLOWED. FIXUP
*Added Target isomeric state FIXUP
VERS. 2021-1 (Kan. 2021) *Updated for FORTRAN 2018 FIXUP
*DELETED MT=3 = Nonelastic by adding FIXUP
it to the built-in DELETION table - FIXUP
to select set option 3 = 2 (use FIXUP
built-in DELETION table). MT=3 is FIXUP
never used in applications, and yet FIXUP
can add an enormous volume to ENDF FIXUP
format files: (MT=3) = (MT-1)-(MT-2),FIXUP
included ALL of the resonances from FIXUP
capture, fission,..... FIXUP
FIXUP
2019-2 Acknowledgment FIXUP
===================== FIXUP
I thank Jean-Christophe Sublet (NDS, IAEA, Vienna, Austria) for FIXUP
reporting the ERROR in FIXUP (2019-1) that led to the update in FIXUP
FIXUP (2019-2) to correctly define the first point in each MT. FIXUP
FIXUP
OWNED, MAINTAINED AND DISTRIBUTED BY FIXUP
------------------------------------ FIXUP
THE NUCLEAR DATA SECTION FIXUP
INTERNATIONAL ATOMIC ENERGY AGENCY FIXUP
P.O. BOX 100 FIXUP
A-1400, VIENNA, AUSTRIA FIXUP
EUROPE FIXUP
FIXUP
ORIGINALLY WRITTEN BY FIXUP
------------------------------------ FIXUP
Dermott E. Cullen FIXUP
FIXUP
PRESENT CONTACT INFORMATION FIXUP
--------------------------- FIXUP
Dermott E. Cullen FIXUP
1466 Hudson Way FIXUP
Livermore, CA 94550 FIXUP
U.S.A. FIXUP
Telephone 925-443-1911 FIXUP
E. Mail RedCullen1@Comcast.net FIXUP
Website RedCullen1.net/HOMEPAGE.NEW FIXUP
FIXUP
PURPOSE FIXUP
======= FIXUP
THIS PROGRAM IS DESIGNED TO READ EVALUATED DATA IN THE ENDF FIXUP
FORMAT, PERFORM CORRECTIONS AND OUTPUT THE RESULT IN THE ENDF FIXUP
FORMAT. TWO TYPES OF CORRECTIONS ARE POSSIBLE (1) AUTOMATIC AND FIXUP
(2) OPTIONAL (BASED ON USER INPUT) CORRECTIONS. FIXUP
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 THE SUM OF ITS PARTS. THIS PROCEDURE ELIMINATES THE FIXUP
PROBLEM WITH MANY ENDF EVALUATIONS, WHERE DUE TO THE USE OF FIXUP
NON-LINEAR INTERPOLATION LAWS THE TOTAL MAY BE EQUAL TO THE SUM FIXUP
OF ITS PARTS AT ALL TABULATED ENERGIES, BUT BASED ON THE FIXUP
INTERPOLATION LAWS IT CAN BE QUITE DIFFERENT AT ENERGIES BETWEEN FIXUP
TABULATED ENERGIES. FIXUP
FIXUP
AUTOMATIC CHECKS/CORRECTIONS FIXUP
============================ 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 LINES WITHIN A GIVEN MAT WILL BE SEQUENTIALLY NUMBERED FIXUP
ON OUTPUT. FIXUP
FIXUP
OPTIONAL CHECKS/CORRECTIONS FIXUP
=========================== FIXUP
THE FOLLOWING NUMBERS CORRESPOND TO THE INPUT DATA OPTION COLUMNS FIXUP
(SEE THE DESCRIPTION OF THE INPUT BELOW) FIXUP
FIXUP
(1) CORRECT 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. FIXUP
FIXUP
2017/5/20 - This option (2) is no longer allowed FIXUP
FIXUP
WARNING: Threshold Correction is no longer allowed. FIXUP
This option has resulted in far too much FIXUP
misinterpretation and as such it is judged to FIXUP
be too dangerous to be allowed in this code. FIXUP
For example, the Laboratory frame of reference FIXUP
threshold is temperature dependent = it is not FIXUP
uniquely defined by Q value and atomic weight. FIXUP
ThIS OPTION is IGNORED. FIXUP
FIXUP
(2) CORRECT CROSS SECTION (MF=3) THRESHOLDS. THE Q-VALUE AND AWR FIXUP
ARE USED TO DERIVE THE REACTION THRESHOLD USING THE RELATION, FIXUP
FIXUP
E-THRESHOLD = -(Q-VALUE)*(AWRE+1.0)/AWRE FIXUP
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. FIXUP
(A) IF THE FIRST TABULATED POINT IS ABOVE THE THRESHOLD AND FIXUP
HAS A ZERO CROSS SECTION, THE POINT IS DELETED AND A POINTFIXUP
IS INSERTED AT THE THRESHOLD. 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. 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. FIXUP
FIXUP
2017/5/20 - This option (2) is no longer allowed FIXUP
FIXUP
(3) EXTEND ALL CROSS SECTIONS (MF=3) 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)=1) OR CONSTANT (IMOPS(3)=2) EQUAL FIXUP
TO THE LAST TABULATED VALUE. FIXUP
(4) ALLOW REACTION (MF=3, ANY MT) DELETION. ALL SPECIFIED FIXUP
REACTIONS WILL BE DELETED WHEN THE DATA IS READ FROM THE FIXUP
INPUT ENDF DATA FILE AND WILL NOT BE IN THE OUTPUT ENDF FIXUP
DATA FILE. WARNING DELETED REACTIONS MAY NOT BE USED TO DEFINEFIXUP
ANY RECONSTRUCTED REACTIONS (I.E. REACTIONS DEFINED BY SUMMINGFIXUP
OTHER REACTIONS). SINCE DELETED REACTIONS ARE DELETED DURING FIXUP
READING IT IS AS IF THEY NEVER EXISTED AND IF ANY DELETED FIXUP
REACTION IS REQUIRED LATER TO DEFINE ANY SUM AN ERROR WILL FIXUP
RESULT. THE USER MAY SPECIFY THAT THE DELETION RULES ARE TO BEFIXUP
READ FROM INPUT (IMOPS(4)=1) OR THAT THE BUILT IN SUMMATION FIXUP
RULES ARE TO BE USED (MOPS(4)=2). AT THE PRESENT TIME THE FIXUP
BUILT-IN DELETION RULES ARE THAT NO SECTIONS SHOULD BE DELETEDFIXUP
(THE USER MAY OVERRIDE THIS CONVENTION BY INPUT). FIXUP
(5) ALLOW REACTION (MF=3, ANY MT) RECONSTRUCTION BY SUMMING OTHER FIXUP
REACTIONS. IN ORDER TO OPTIMIZE THE RUNNING TIME OF THIS FIXUP
PROGRAM CARE SHOULD BE EXERCISED TO MINIMIZE THE NUMBER OF FIXUP
TIMES THAT EACH CONTRIBUTING CROSS SECTION MUST BE USED. FIXUP
THE USED MAY SPECIFY THAT THE SUMMATION RULES ARE TO BE READ FIXUP
AS INPUT (IMOPS(5)=1) OR THAT THE BUILT IN SUMMATION RULES FIXUP
ARE TO BE USED (IMOPS(5)=2). THE BUILT IN SUMMATION RULES ARE FIXUP
DESIGNED TO USE ENDF CONVENTIONS AND TO MINIMIZE THE NUMBER FIXUP
OF TIMES THAT EACH CROSS SECTION IS USED. 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 FIXUP
SUBSEQUENT SUMMATIONS AND ENDF 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. FIXUP
NOTE...THIS OPTION MAY BE USED TO DELETE NEGATIVE ELASTIC FIXUP
CROSS SECTIONS THAT MAY RESULT FROM RECONSTRUCTING CROSS FIXUP
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 THAT ALL SECTIONS ARE IN ASCENDING MAT/MF/MT ORDER. FIXUP
IF NOT, NO CORRECTIVE ACTION WILL BE TAKEN, ONLY AN ERROR FIXUP
MESSAGE WILL BE OUTPUT. FIXUP
(10) CHECK MF/MT FOR EACH SECTION TO INSURE THAT THEY ARE DEFINED FIXUP
IN THE ENDF FORMAR MANUAL. IF THEY ARE NOT DEFINED AN ERROR FIXUP
MESSAGE IS PRINTED, BUT NO CORRECTIVE ACTION IS TAKEN. FIXUP
(11) ALLOW SECTIONS 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 BECAUSEFIXUP
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. FIXUP
NOTE...IF A SECTION IS PRESENT ANY COMMAND TO CREATE IT WILL FIXUP
BE IGNORED. FIXUP
(12)ALLOW ENERGY POINTS TO BE INSERTED. THE PROGRAM CAN READ UP FIXUP
TO 50, ENERGIES, MAT, MT AND USE LINEAR INTERPOLATION TO FIXUP
INSERT ENERGY POINTS INTO TABLES AS THEY ARE READ, E.G., FIXUP
INSERT AN ENERGY POINT AT THERMAL ENERGY (0.0253 EV). IF FIXUP
AN MAT AND/OR MT IS ZERO THIS IMPLIES = ALL - INSERT THE FIXUP
ENERGY IN ALL TABLES. FIXUP
(13)PUT ALLOW CROSS SECTIONS ON A UNIFORM ENERGY GRID = EACH FIXUP
SECTION (MT) OF CROSS SECTIONS WILL INCLUDE ALL ENERGIES FIXUP
WHICH APPEAR IN AT LEAST ONE SECTION OF DATA. PARAMETERS FIXUP
(MT=251 THROUGH 255) ARE NOT INCLUDED IN THE UNIFORM ENERGY FIXUP
GRID. FIXUP
(14)DELETE SECTION IF CROSS SECTION = 0 AT ALL ENERGIES. THIS FIXUP
SOUNDS LIKE AN ABSURD OPTION, BUT IS REQUIRED BECAUSE SUCH FIXUP
SECTIONS EXIST IN ENDF/B-VI DATA. FIXUP
FIXUP
CREATING RATIOS AND PRODUCTS FIXUP
============================ FIXUP
IN ORDER TO CREATE RATIOS AND PRODUCTS = NEW MT NUMBERS, YOU MUST FIXUP
DO TWO THINGS, FIXUP
FIXUP
1) DEFINE EACH NEW MT NUMBER AS A RATIO OR PRODUCT OF TWO MT FIXUP
NUMBERS. FIXUP
FIXUP
2) USE THE CREATE MT NUMBER OPTION AND INPUT THE FIRST TWO LINES FIXUP
OF THE SECTION FIXUP
FIXUP
WARNING - UNLESS YOU DO BOTH OF THESE YOU WILL NOT OBTAIN OUTPUT FIXUP
IN THE ENDF FORMAT. FIXUP
FIXUP
TWO SPECIAL MT NUMBERS HAVE BEEN DEFINED BY CSEWG INVOLVING FIXUP
RATIOS AND PRODUCTS, FIXUP
FIXUP
ALPHA (MT=254)= CAPTURE (MT=102)/FISSION (MT=18) FIXUP
FIXUP
ETA (MT=255) = NU-BAR (MT=452)*FISSION (MT=18)/ABSORPTION (MT=27)FIXUP
FIXUP
ABSORPTION (MT=27) = FISSION (MT=18) + SUM (MT=102 THROUGH 116) FIXUP
FIXUP
AS YET THERE 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. HOWEVER, IT WILL THEN BE YOUR RESPONSIBILITY FIXUP
TO PROPERLY INTERPRET THE RESULTS, I.E., NOBODY ELSE WILL HAVE FIXUP
ANY IDEA HOW TO INTERPRET A TABLE OF DATA ASSOCIATED WITH THE MT FIXUP
NUMBERS YOU HAVE USED. FIXUP
FIXUP
THIS PROGRAM CAN BE ONLY DIRECTLY DEFINE RATIOS AND PRODUCTS FIXUP
USING TWO MT NUMBERS = BINARY OPERATIONS, E.G., DEFINE THE CAPTUREFIXUP
TO FISSION RATIO, OR DEFINE THE PRODUCT NU-BAR*FISSION. FIXUP
FIXUP
THIS PROGRAM CANNOT DIRECTLY DEFINE RATIO OR PRODUCT OF A SUM OF FIXUP
SECTIONS TO 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) TO BE A SUM OF SECTIONS AND FIXUP
A SECOND DUMMY 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. FIXUP
FIXUP
FOR EXAMPLE, TO DEFINE ETA, FIXUP
1) FIRST DEFINE (MT=27) = (MT=27) + (SUM OF MT=102 THROUGH 116) FIXUP
2) NEXT DEFINE (MT=333) = (MT=452)*(MT=18) FIXUP
3) LAST DEFINE (MT=255) = (MT=333)/(MT=27) FIXUP
DO NOT FORGET TO TURN ON THE CREATE SECTION OPTION (ON THE FIRST FIXUP
INPUT LINE) AND INPUT THE FIRST TWO LINES OF SECTION MT=255 - FIXUP
OTHERWISE YOU WILL NOT GET ANY ENDF FORMATTED OUTPUT. FIXUP
FIXUP
THE ONLY SPECIAL 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 CASE IF THE NUMERATOR IS NOT ZERO THE RATIO IS DEFINED FIXUP
TO BE ZERO. FIXUP
FIXUP
ENDF FORMAT FIXUP
=========== FIXUP
THIS PROGRAM MAY BE USED WITH DATA IN ANY VERSION OF THE ENDF FIXUP
FORMAT (I.E. ENDF-1, 2, 3, 4, 5 OR 6 FORMAT). SINCE A FIXUP
PAGING SYSTEM IS USED STORE CROSS SECTION TABLES ON SCRATCH FILES FIXUP
THERE IS NO LIMIT TO THE SIZE OF TABLES (E.G. THE TOTAL CROSS FIXUP
SECTION MAY BE REPRESENTED BY 200,000 TABULATED POINTS). FIXUP
FIXUP
WARNING FIXUP
======= FIXUP
(1) FOR EACH SECTION OF CROSS SECTIONS (I.E. EACH MT, MF=3) 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. FIXUP
FIXUP
THE PROGRAM WILL NOT OUTPUT ANY SECTION RECONSTRUCTED BY FIXUP
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
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 SECTIONFIXUP
ITSELF WILL NOT BE OUTPUT (E.G. GENERALLY MT=27 AND 101 ARE FIXUP
NOT PRESENT IN EVALUATIONS. HOWEVER, THE BUILT-IN SUMMATION FIXUP
RULES OF THIS PROGRAM USES THE ENDF SUMMATION RULES TO FIXUP
DEFINE MT=27 AND 101, WHICH IN TURN ARE USED TO DEFINE THE FIXUP
NON-ELASTIC CROSS SECTION, MT=3. SECTIONS MT=27 AND 101 ARE FIXUP
NOT OUTPUT). FIXUP
FIXUP
(3) ALL DATA IN FILE 3 AND 23 MUST BE LINEARLY INTERPOLABLE. IF FIXUP
THE DATA IS NOT LINEARLY INTERPOLABLE THIS PROGRAM WILL FIXUP
TERMINATE. FIXUP
FIXUP
PROGRAM OPERATION FIXUP
================= FIXUP
ALL MAT NUMBER ON AN ENDF TAPE ARE PROCESSED. EACH MAT IS FIXUP
TREATED SEPARATELY. WITHIN EACH MAT, EACH SECTION BEFORE MF=3 FIXUP
IS READ, CHECKED/CORRECTED (BASED ON INPUT OPTIONS) AND OUTPUT. FIXUP
WHEN MF=3 IS LOCATED ALL CROSS SECTIONS ARE READ, SECTIONS TO BE FIXUP
DELETED ARE DELETED, SECTIONS WHICH ARE NOT PRESENTED AND USER FIXUP
INPUT INDICATES SHOULD BE CREATED ARE CREATE, SECTIONS TO BE KEPT FIXUP
ARE CHECKED/CORRECTED (BASED ON INPUT OPTIONS) AND WRITTEN TO A FIXUP
SCRATCH FILE. NEXT, IF THE USER SPECIFIES THAT THEY SHOULD, FIXUP
SECTIONS ARE RECONSTRUCTED. FINALLY ALL CROSS SECTIONS (OLD AND FIXUP
NEW) ARE OUTPUT. WITHIN THE SAME MAT, EACH SECTION AFTER MF=3 IS FIXUP
READ, CHECKED/CORRECTED (BASED ON INPUT OPTIONS) AND OUTPUT. FIXUP
FIXUP
MF=3 FIXUP
==== FIXUP
THE TREATMENT OF THE CROSS SECTIONS REQUIRES UP TO 4 PASSES FOR FIXUP
CROSS SECTIONS. IN THE PROGRAM THEY CORRESPOND TO SUBROUTINES FIXUP
PASS1, PASS2, PASS3 AND PASS4. THE ORIGINAL AND FINAL ENDF DATA FIXUP
FILES, 5 SCRATCH FILES AND 3 IN CORE ARRAYS ARE USED. OPERATIONS FIXUP
PERFORMED DURING EACH PASS ARE, FIXUP
FIXUP
PASS1 FIXUP
===== FIXUP
READ ALL CROSS SECTIONS FROM ITAPE. DELETED ANY SECTIONS. CREATE FIXUP
ANY SECTIONS. CHECK/CORRECT THEM AND WRITE THEM TO SCRATCH FILE. FIXUP
DATA IS READ INTO ARRAY A, TRANSFERRED TO ARRAY C (AFTER EDITING) FIXUP
AND OUTPUT TO ISCRC FROM ARRAY C. FIXUP
ITAPE - UNIT ORIGINAL ENDF 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 DATA IS TRANSFERRED TO AND FIXUP
FROM WHICH IT IS WRITTEN TO ISCRC. FIXUP
FIXUP
PASS2 FIXUP
===== FIXUP
IF A UNIFORM ENERGY GRID IS REQUESTED IT IS CREATED DURING THIS FIXUP
PASS. FIRST ALL OF THE CROSS SECTIONS FROM PASS1 ARE READ AND A FIXUP
UNIFORM ENERGY GRID IS CREATED = ALL ENERGIES THAT ARE INCLUDED FIXUP
IN AT LEAST 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 ENERGY GRID. FIXUP
TABB - ARRAY CONTAINING UNIFORM ENERGY GRID. FIXUP
TABC - ARRAY CONTAINING EDITED DATA. FIXUP
FIXUP
THE UNIFORM ENERGY GRID ENDS UP ON ISCRB. NEXT EACH SECTION OF FIXUP
CROSS SECTIONS 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. 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 ENERGY GRID DATA. FIXUP
TABB - ARRAY CONTAINING UNIFORM ENERGY GRID. FIXUP
TABC - ARRAY CONTAINING EDITED DATA. FIXUP
FIXUP
PASS3 FIXUP
===== FIXUP
SUMMATION CROSS SECTIONS ARE DEFINED BY READING DATA FROM ISCRC FIXUP
AND MERGING THEM ONTO ISCRA. THE FIRST SECTION THAT CONTRIBUTES FIXUP
TO A SUM IS MERELY COPIED FROM C TO A. IF MORE SECTIONS WILL FIXUP
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 CYLE OF ADDED C AND B TO A, FOLLOWED BY MOVING A TO B FIXUP
IS CONTINUED UNTIL ALL CONTRIBUTING SECTIONS HAVE BEEN ADDED. FIXUP
THE SUM IS THEN COPIED FROM A TO D. IF NEWLY CONSTRUCTED SECTION FIXUP
IS REQUIRED 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 REQUIRED SUMMATION REACTION. IN ADDITION TO SECTIONS FROM FIXUP
C, AFTER THE FIRST SUMMATION SECTIONS MAY ALSO BE ADDED TO A FIXUP
FROM E (THE CONTRIBUTION OF NEW RECONSTRUCTED CROSS SECTIONS). FIXUP
WHEN ALL REQUIRED SECTIONS HAVE BEEN RECONSTRUCTED THE NEW FIXUP
SECTIONS WILL 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. FIXUP
ISCRD - SCRATCH FILE ONTO WHICH ALL SUM CROSS SECTIONS ARE FIXUP
WRITTEN. FIXUP
ISCRE - SCRATCH FILE ONTO WHICH ALL SUM CROSS SECTIONS WHICH FIXUP
ARE REQUIRED FOR LATER SUMS ARE WRITTEN. FIXUP
ISCRB - UTILITY SCRATCH FILE USED TO CREATE SUM CROSS SECTIONS. FIXUP
TABA - ARRAY INTO WHICH SUMS ARE WRITTEN. FIXUP
TABB - ARRAY INTO WHICH PARTIAL SUMS ARE WRITTEN. FIXUP
TABC - ARRAY INTO WHICH ORIGINAL DATA IS READ. FIXUP
FIXUP
PASS4 FIXUP
===== FIXUP
CROSS SECTIONS ARE READ FROM ISCRC (ORIGINAL) AND ISCRD (NEW) FIXUP
AND ARE WRITTEN IN THE ENDF FORMAT ON OTAPE. THE BEGINNING OF FIXUP
EACH SECTION OF ORIGINAL DATA IS READ FROM ISCRC (TO DEFINE FIXUP
SECTION HEADER INFORMATION). IF THIS MT HAS NOT BEEN RECOSTRUCTED FIXUP
ON ISCRD THE ORIGINAL SECTION IS OUTPUT. IF THE SECTION HAS BEEN FIXUP
RECONSTRUCTED THE ORIGINAL SECTION IS SKIPPED AND THE NEW SECTION FIXUP
IS OUTPUT. FIXUP
OTAPE - OUTPUT DATA IN THE ENDF FORMAT. 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 SECTIONS ARE READ FROM SCRATCH FIXUP
AND WRITTEN TO OTAPE FIXUP
FIXUP
I/O FILE DEFINITIONS FIXUP
==================== FIXUP
UNIT DESCRIPTION FIXUP
==== =========== FIXUP
2 INPUT PARAMETERS. FIXUP
3 OUTPUT REPORT. FIXUP
10 ORIGINAL DATA IN THE ENDF FORMAT. FIXUP
11 FINAL DATA IN THE ENDF FORMAT. FIXUP
12 SCRATCH FILE FIXUP
14 SCRATCH FILE FIXUP
15 SCRATCH FILE FIXUP
16 SCRATCH FILE FIXUP
17 SCRATCH FILE FIXUP
FIXUP
OPTIONAL STANDARD FILE NAMES (SEE SUBROUTINE FILIO1 AND FILIO2) FIXUP
=============================================================== FIXUP
UNIT FILE NAME FORMAT FIXUP
==== ========== ====== FIXUP
2 FIXUP.INP BCD FIXUP
3 FIXUP.LST BCD FIXUP
10 ENDFB.IN BCD FIXUP
11 ENDFB.OUT BCD FIXUP
12-17 (SCRATCH) BINARY FIXUP
FIXUP
INPUT LINES FIXUP
=========== FIXUP
LINE COLUMNS FORMAT DESCRIPTION FIXUP
==== ======= ====== =========== FIXUP
1 1-14 14I1 INPUT OPTIONS AS DESCRIBED ABOVE. FIXUP
EACH COLUMN OF THE INPUT LINE CONTROLS FIXUP
ONE OF THE TESTS/CORRECTIONS DESCRIBED FIXUP
ABOVE. TESTS/CORRECTION 1-14 (NOT ALL FIXUP
IMPLEMENTED YET) CORRESPOND TO COLUMNS FIXUP
1-14 OF THIS INPUT LINE AND ARE TREATED FIXUP
AS FOLLOWS, FIXUP
= 0 - DO NOT PERFORM TEST/CORRECTION. FIXUP
= 1 - PERFORM TEST/CORRECTION. FIXUP
FOR MT EXCLUSION FROM THRESHOLD TESTS FIXUP
(COLUMN 2), DELETION (COLUMN 4), OR FIXUP
SUMMATION (COLUMN 5) THE INPUT OPTION FIXUP
MAY BE, FIXUP
= 1 - READ RULES FROM INPUT FIXUP
= 2 - USE BUILT-IN RULES FIXUP
2 1-72 A72 ENDF INPUT DATA FILENAME FIXUP
(STANDARD OPTION = ENDFB.IN) FIXUP
3 1-72 A72 ENDF OUTPUT DATA FILENAME FIXUP
(STANDARD OPTION = ENDFB.OUT) FIXUP
4-M 1-5 FREE CHARACTER (S,D,T,R,*) FOLLOWED BY BLANK OR FIXUP
FORM MT NUMBER FIXUP
- THE ALLOWED CHARACTERS ARE, FIXUP
- S OR BLANK = SUM (OR DIFFERENCES) FIXUP
- D = DELETE FIXUP
- T = NO THRESHOLD ENERGY CORRECTIONS FIXUP
- R = RATIO FIXUP
- * = PRODUCT FIXUP
6-72 FREE UP TO 10 LOWER AND UPPER MT RANGES WHICH FIXUP
FORM WILL BE USED TO DEFINE THE RECONSTRUCTED FIXUP
CROSS SECTION OR TO DEFINE MT RANGES WHICH FIXUP
ARE EXCLUDED FROM THRESHOLD TESTS. FIXUP
FIXUP
EACH MT NUMBER IS DEFINED BY A CONTINUOUS FIXUP
STRING OF DIGITS, POSSIBILITY PRECEEDED BY FIXUP
A - (MINUS SIGN). EACH MT NUMBER MUST BE FIXUP
BLANK OR OTHERWISE (NOT A DIGIT) DELIMITED.FIXUP
FIXUP
COLUMNS 6-72 MAY CONTAIN STRINGS OF DIGITS FIXUP
THE FIRST DIGIT STRING OF EACH PAIR MAY BE FIXUP
PRECEEDED BY A - (MINUS SIGN). FIXUP
FIXUP
EACH LINE WILL BE INTERPRETED AS FOLLOWS, FIXUP
FIXUP
*SUMMATION (OR DIFFERENCES) FIXUP
-------------------------- FIXUP
COLUMNS 1-5 = S OR BLANK FOLLOWED BY THE FIXUP
MT NUMBER TO BE DEFINED BY SUMMATION FIXUP
FIXUP
COLUMNS 6-72 = UP TO 10 MT RANGE (PAIRS OF FIXUP
MT NUMBERS) TO BE USED TO DEFINED THE SUM. FIXUP
IF THE FIRST MT NUMBER OF A PAIR IS FIXUP
NEGATIVE THE RANGE OF MT NUMBERS IS FIXUP
SUBTRACTED - AT LEAST ONE RANGE MUST BE FIXUP
SPECIFIED. FIXUP
FIXUP
*DELETIONS FIXUP
--------- FIXUP
COLUMNS 1-5 = D FOLLOWED BY BLANKS FIXUP
FIXUP
COLUMNS 6-72 CONTAIN UP TO 10 MT RANGE FIXUP
(PAIRS OF MT NUMBERS), EACH RANGE DEFINING FIXUP
A RANGE OF MT NUMBERS TO BE DELETED - AT FIXUP
LEAST ONE RANGE MUST BE SPECIFIED. FIXUP
FIXUP
*EXCLUSION FROM THRESHOLD TESTS FIXUP
------------------------------ FIXUP
COLUMNS 1=5 = T FOLLOWED BY BLANKS FIXUP
FIXUP
COLUMNS 6-72 CONTAIN UP TO 10 MT RANGE FIXUP
(PAIRS OF MT NUMBERS), EACH RANGE DEFINING FIXUP
A RANGE OF MT NUMBERS WHOSE THRESHOLD FIXUP
ENERGY WILL NOT BE CHECKED - AT LEAST ONE FIXUP
RANGE MUST BE SPECIFIED. FIXUP
FIXUP
*RATIO FIXUP
----- FIXUP
COLUMNS 1-5 = R FOLLOWED BY THE MT NUMBER FIXUP
TO BE DEFINED BY A RATIO FIXUP
FIXUP
COLUMNS 6-72 CONTAINS 2 MT NUMBERS TO BE FIXUP
USED TO DEFINE THE RATIO. FIXUP
FIXUP
*PRODUCT FIXUP
----- FIXUP
COLUMNS 1-5 = * FOLLOWED BY THE MT NUMBER FIXUP
TO BE DEFINED BY A PRODUCT FIXUP
FIXUP
COLUMNS 6-72 CONTAINS 2 MT NUMBERS TO BE FIXUP
USED TO DEFINE THE PRODUCT. FIXUP
FIXUP
CONVENTIONS FIXUP
----------- FIXUP
*UP TO 20 DELETIONS AND 20 SUMMATIONS OR FIXUP
RATIOS OR PRODUCTS MAY BE SPECIFIED. FIXUP
*ONLY 1 EXCLUSION FROM THRESHOLD TESTS FIXUP
MAY BE SPECIFIED (THE 1 LINE MAY CONTAIN FIXUP
UP TO 10 MT RANGES TO EXCLUDE FROM TESTS). FIXUP
*INPUT IS TERMINATED BY INPUTTNG 0 OR FIXUP
BLANK IN COLUMNS 1-72 (I.E. THE LAST FIXUP
INPUT LINE MUST BE BLANK). FIXUP
*THE UPPER LIMIT OF EACH RANGE MUST BE AT FIXUP
LEAST AS BIG AS THE LOWER LIMIT (IN FIXUP
ABSOLUTE VALUE). FIXUP
*FOR RECONSTRUCTION POSITIVE MT RANGES WILL FIXUP
BE ADDED TO THE SUM AND NEGATIVE MT RANGES FIXUP
WILL BE SUBTRACTED. FIXUP
*IF INPUT OPTION 2 (FIRST INPUT LINE) IS FIXUP
0 THRESHOLD EXCLUSION IS NOT ALLOWED. FIXUP
*IF INPUT OPTION 4 (FIRST INPUT LINE) IS FIXUP
0 DELETIONS ARE NOT ALLOWED. FIXUP
*IF INPUT OPTION 5 (FIRST INPUT LINE) IS FIXUP
0 SUMMATIONS AND RATIOS ARE NOT ALLOWED. FIXUP
N-K IF THE USER SPECIFIES THAT SECTIONS WHICH FIXUP
ARE NOT PRESENT IN THE ORIGINAL EVALUATION FIXUP
MAY BE CREATED, TWO LINES MUST BE INPUT FORFIXUP
EACH SECTION TO BE CREATED. THE TWO LINES FIXUP
DEFINE (C1, C2, L1 AND L2) FOR EACH OF THE FIXUP
FIRST TWO LINES OF THE SECTION TO BE FIXUP
CREATED. THE FIRST LINE ALSO DEFINES (MAT FIXUP
AND MT). (N1, N2) ARE ALWAYS ZERO ON THE FIXUP
FIRST LINE AND WILL BE CALCULATED BY THE FIXUP
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 SECTION TO BE CREATED FIXUP
34-44 I11 L2 OF SECTION TO BE CREATED FIXUP
45-48 I4 MAT OF SECTION TO BE CREATED FIXUP
49-51 I3 MT OF SECTION 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 SECTION TO BE CREATED FIXUP
34-44 I11 L2 OF SECTION TO BE CREATED FIXUP
*PAIRS OF LINES MAY BE IN ANY MAT/MT ORDER FIXUP
(E.G., THEY NEED NOT BE IN ASCENDING FIXUP
MAT/MT ORDER). FIXUP
*UP TO 50 PAIRS OF LINES MAY BE USED TO FIXUP
DEFINE SECTIONS TO BE CREATED. THE LIST FIXUP
IS TERMINATED WHEN THE FIRST LINE OF A FIXUP
PAIR CONTAINS A ZERO (OR BLANK) MAT AND/OR FIXUP
MT. FIXUP
M-N IF THE USER SPECIFIES THAT ENERGIES WHICH FIXUP
ARE NOT PRESENT IN THE ORIGINAL EVALUATION FIXUP
MAY BE INSERTED, ONE LINE MUST BE INPUT FORFIXUP
EACH ENERGY TO BE INSERTED. FIXUP
1-11 E11.4 ENERGY TO BE INSERTED FIXUP
12-15 I4 MAT IN WHICH TO INSERT ENERGY = 0 = ALL FIXUP
16-18 I3 MT IN WHICH TO INSERT ENERGY = 0 = ALL FIXUP
*UP TO 50 (ENERGY, MAT, MT) LINES MAY BE FIXUP
USED. THE LIST IS TERMINATED BY A BLANK FIXUP
LINE. FIXUP
*INPUT MAY BE IN ANY (ENERGY, MAT, MT) FIXUP
ORDER. FIXUP
*ENERGY POINTS CAN ONLY BE INSERTED WITHIN FIXUP
THE ORIGINAL ENERGY RANGE OF A SECTION - FIXUP
THIS OPTION CANNOT BE USED TO EXTEND THE FIXUP
CROSS SECTION EITHER BELOW OR ABOVE THE FIXUP
ORIGINAL TABULATED ENERGY RANGE. FIXUP
FIXUP
EXAMPLE INPUT NO. 1 FIXUP
=================== FIXUP
(1) USE OPTIONS 1-11 (ALL OPTIONS, EXCEPT INSERT ENERGY POINTS) FIXUP
(2) DELETE MT=900 (FOR EXAMPLE PURPOSES ONLY) FIXUP
(3) DEFINE THE FOLLOWING MT NUMBERS TO BE RECONSTRUCTED, FIXUP
(MT= 4) = THE SUM OF MT= 51 THROUGH 91 FIXUP
(MT=103) = THE SUM OF MT=700 THROUGH 718 (NOT 719) FIXUP
(MT=104) = THE SUM OF MT=720 THROUGH 738 (NOT 739) FIXUP
(MT=105) = THE SUM OF MT=740 THROUGH 758 (NOT 759) FIXUP
(MT=106) = THE SUM OF MT=760 THROUGH 778 (NOT 779) FIXUP
(MT=107) = THE SUM OF MT=780 THROUGH 798 (NOT 799) FIXUP
NEW (MT= 16) = THE SUM OF MT=875 THROUGH 891 FIXUP
(MT=101) = THE SUM OF MT=102 THROUGH 114 FIXUP
(MT= 18) = (MT=19) + (MT=20 AND 21) + (MT=38) FIXUP
(IF TOTAL FISSION, MT=18, 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=18. FIXUP
(MT= 27) = THE SUM OF MT= 18 AND 101 FIXUP
(MT=101 RECONSTRUCTED ABOVE USED IN SUM). FIXUP
(MT= 3) = THE SUM OF (MT=4)+(MT=6-9)+(MT=16-17)+(MT=22-37)+ FIXUP
(MT=41-45) FIXUP
(MT=4 AND 27 RECONSTRUCTED ABOVE USED IN SUM). FIXUP
(MT= 19) = (MT=18) - (MT=20 AND 21) - (MT=38) FIXUP
(DEFINE FIRST CHANGE FISSION BY SUBTRACTION TO FIXUP
ALLOW RESONANCE CONTRIBUTION FROM MT=18 TO BE FIXUP
INCLUDED IN MT=19). FIXUP
(MT= 1) = THE SUM OF MT=2 AND 3 FIXUP
(MT=3 RECONSTRUCTED ABOVE USED IN SUM). FIXUP
(4) THRESHOLD ENERGIES OF THE FOLLOWING MT NUMBERS WILL NOT BE FIXUP
TESTED OR CORRECTED. FIXUP
MT=1, 4, 18, 19, 91, 103 THROUGH 114. FIXUP
(5) DEFINE MT=254 TO BE THE CAPTURE TO FISSION RATIO (MT=102/18) FIXUP
(6) CREATE MAT=1300/MT=254 - NOTE, THIS IS NECESSARY IN ORDER TO FIXUP
HAVE THE CAPTURE TO FISSION RATIO OUTPUT IN THE ENDF FORMAT FIXUP
FIXUP
NOTE, ON THE FOLLOWING INPUT LINES THE CHARACTERS = ( ) + , HAVE FIXUP
BEEN USED ONLY TO MAKE THE INPUT MORE READABLE - THESE CHARACTERS FIXUP
WILL BE SKIPPED BY THE PROGRAM IN READING INPUT - THE RESULTS FIXUP
WOULD BE THE 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 SHOULD BE SUBTRACTED, E.,G., SEE THE DEFINITION OF MT=19. FIXUP
FIXUP
READ FILE /ENDFB6/K300/LEAD.IN AND WRITE /ENDFB6/K300/LEAD.OUT FIXUP
FIXUP
THE FOLLOWING 21 INPUT LINES ARE REQUIRED. FIXUP
FIXUP
11111111111 FIXUP
/ENDFB6/K300/LEAD.IN FIXUP
/ENDFB6/K300/LEAD.OUT FIXUP
D900 FIXUP
4=( 51, 91) FIXUP
103=(700,718) FIXUP
104=(720,738) FIXUP
105=(740,758) FIXUP
106=(760,778) FIXUP
107=(780,798) FIXUP
16=(875,891) FIXUP
101=(102,114) FIXUP
18=( 19, 19)+( 20, 21)+( 38, 38) FIXUP
27=( 18, 18)+(101,101) FIXUP
3=( 4, 4)+( 6, 9)+( 16, 17)+( 22, 37)+( 41, 45) FIXUP
19=( 18, 18)-( 20, 21)-( 38, 38) FIXUP
1=( 2, 3) FIXUP
T ( 1, 1)+( 4, 4)+( 18, 18)+( 91, 91)+(103,114) FIXUP
R254=(102/ 18) FIXUP
(BLANK LINE TO TERMINATE SUMMATION/DELETION RULES) FIXUP
2.00400+ 3 0.00000+ 0 0 01300254 FIXUP
0.00000+ 0 0.00000+ 0 0 0 FIXUP
(BLANK LINE TO TERMINATE SECTION CREATION RULES) FIXUP
FIXUP
NOTE, THE DELETION AND THRESHOLD EXCLUSION LINES MAY APPEAR IN FIXUP
IN ANY ORDER. HOWEVER, SUMMATION AND RATIO RULES MUST APPEAR IN FIXUP
THE ORDER IN WHICH YOU WANT THEM TO BE EXECUTED - E.G., THE FIXUP
ABOVE INPUT WILL FIRST RECONSTRUCT MT=4, WHICH CAN THEN BE USED FIXUP
TO CONTRIBUTE TO THE FOLLOWING SUM TO DEFINE MT=3, WHICH IN TURN FIXUP
CAN THEN BE USED TO CONTRIBUTE TO THE FOLLOWING SUM TO DEFINE FIXUP
MT=1. IF THE ORDER OF THE INPUT LINES IS CHANGED SUCH THAT MT=3 FIXUP
IS RECONSTRUCTED BEFORE MT=4, THE ORIGINAL MT=4 WILL BE USED IN FIXUP
THE SUMMATION TO DEFINE MT=3. THE SAME RULES APPLY TO CALCULATING FIXUP
RATIOS, IF EITHER THE NUMERATOR OR DENOMINATOR IS TO BE DEFINED FIXUP
BY SUMMATION, THIS SHOULD BE DONE BEFORE DEFINING THE RATIO BY FIXUP
INPUT PARAMETERS. FIXUP
FIXUP
EXAMPLE INPUT NO. 2 FIXUP
=================== FIXUP
(1) USE OPTIONS 1-11 (ALL OPTIONS, EXCEPT INSERT ENERGY POINTS) FIXUP
(2) USE BUILT-IN TABLES FOR SUMMATION/DELETION/THRESHOLD EXCLUSIONFIXUP
(THIS ONLY REQUIRES COLUMNS 2, 4 AND 5 TO BE SET =2 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 NUMBERSFIXUP
WILL BE DELETED. FIXUP
(3) IF NOT PRESENT, CREATE MAT=1300/MT=1 FIXUP
FIXUP
USE THE STANDARD FILE NAMES ENDFB.IN AND ENDFB.OUT (THIS CAN BE FIXUP
DONE BY LEAVING THE SECOND AND THIRD INPUT LINES BLANK). FIXUP
FIXUP
THE FOLLOWING 6 INPUT LINES ARE REQUIRED. FIXUP
FIXUP
12122111111 FIXUP
FIXUP
FIXUP
2.00400+ 3 0.00000+ 0 0 01300 1 FIXUP
0.00000+ 0 0.00000+ 0 0 0 FIXUP
(BLANK LINE TO TERMINATE SECTION CREATION RULES) FIXUP
FIXUP
EXAMPLE INPUT NO. 3 FIXUP
=================== FIXUP
(1) USE OPTIONS 1-10 (ALL OPTIONS PRESENTLY IMPLEMENTED, EXCEPT FIXUP
DO NOT ALLOW SECTION CREATION AND INSERT ENERGY POINTS). FIXUP
(2) USE BUILT-IN TABLES FOR SUMMATION/DELETION/THRESHOLD EXCLUSIONFIXUP
(THIS ONLY REQUIRES COLUMNS 2, 4 AND 5 TO BE SET =2 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 NUMBERSFIXUP
WILL BE DELETED. FIXUP
(3) DO NOT CREATE ANY SECTIONS. FIXUP
FIXUP
READ FILE /ENDFB6/K300/LEAD.IN AND WRITE /ENDFB6/K300/LEAD.OUT FIXUP
FIXUP
THE FOLLOWING 3 INPUT LINES ARE REQUIRED. FIXUP
FIXUP
1212211111 FIXUP
/ENDFB6/K300/LEAD.IN FIXUP
/ENDFB6/K300/LEAD.OUT FIXUP
FIXUP
EXAMPLE INPUT NO. 4 FIXUP
=================== FIXUP
SAME AS EXAMPLE NO. 3, ABOVE, EXCEPT INSERT AN ENERGY POINT AT FIXUP
THERMAL FOR ALL REACTIONS WHICH SPAN THE THERMAL ENERGY RANGE. FIXUP
FIXUP
USE THE STANDARD FILE NAMES ENDFB.IN AND ENDFB.OUT (THIS CAN BE FIXUP
DONE BY LEAVING THE SECOND AND THIRD INPUT LINES BLANK). FIXUP
FIXUP
THE FOLLOWING 5 INPUT LINES ARE REQUIRED. FIXUP
FIXUP
121221111101 FIXUP
FIXUP
FIXUP
2.53000- 2 0 0 FIXUP
(BLANK LINE TO TERMINATE ENERGY INSERTS) FIXUP
FIXUP
WARNING FIXUP
======= FIXUP
ALTHOUGH THIS PROGRAM IS DESIGNED TO ALLOW REACTIONS TO BE DEFINEDFIXUP
BY ADDING OR SUBTRACTING REACTIONS THE USER SHOULD ALWAYS TRY TO FIXUP
DEFINE REACTIONS BY SUMMING TO AVOID NEGATIVE CROSS SECTIONS. FOR FIXUP
EXAMPLE, IT IS POSSIBLE TO CALCULATE MT=3 AND DEFINE MT=1 AS THE FIXUP
SUM OF MT=2 AND 3 (THE RECOMMENDED APPROACH AS USED IN THE ABOVE FIXUP
INPUT). ALTERATIVELY IT IS POSSIBLE TO CALCULATE MT=1 AND DEFINE FIXUP
MT=3 AS MT=1 MINUS MT=2 (THIS APPROACH IS NOT RECOMMENDED). FIXUP
FIXUP
THE ONLY BUILT-IN SUMMATION RULE THAT USES SUBTRACTION IS THE FIXUP
CALCULATION OF THE FIRST CHANGE FISSION (MT=19) AS THE TOTAL FIXUP
FISSION (MT=18) MINUS THE SECOND, THIRD AND FOURTH CHANGE FISSION FIXUP
(MT=20, 21, 38). THIS HAS BEEN DONE TO ALLOW THE RESONANCE FIXUP
CONTRIBUTION, CALCULATED BY MANY CODES AND INCLUDED IN MT=18, FIXUP
TO BE CONSISTENTLY INCLUDED IN THE FIRST CHANCE FISSION. FIXUP
FIXUP
=======================================================================FIXUP