=======================================================================LEGEND LEGEND PROGRAM LEGEND LEGEND ============== LEGEND VERSION 80-1 (SEPTEMBER 1980) LEGEND VERSION 84-1 (NOVEMBER 1984) LEGEND VERSION 86-1 (JANUARY 1986) *CORRECTED BASED ON USER COMMENTS LEGEND *FORTRAN-77/H VERSION LEGEND VERSION 87-1 (JANUARY 1987) *CORRECTED BASED ON USER COMMENTS LEGEND VERSION 88-1 (JULY 1988) *OPTION...INTERNALLY DEFINE ALL I/O LEGEND FILE NAMES (SEE, SUBROUTINE FILEIO LEGEND FOR DETAILS). LEGEND *IMPROVED BASED ON USER COMMENTS. LEGEND VERSION 89-1 (JANUARY 1989) *PSYCHOANALYZED BY PROGRAM FREUD TO LEGEND INSURE PROGRAM WILL NOT DO ANYTHING LEGEND CRAZY. LEGEND *UPDATED TO USE NEW PROGRAM CONVERT LEGEND KEYWORDS. LEGEND *ADDED LIVERMORE CIVIC COMPILER LEGEND CONVENTIONS. LEGEND VERSION 92-1 (JANUARY 1992) *FOR ANGULAR DISTRIBUTIONS CALCULATED LEGEND FROM LEGENDRE COEFFICIENTS, INTERVAL LEGEND HALF TO CONVERGENCE. LEGEND *UPDATED BASED ON USER COMMENTS LEGEND *ADDED FORTRAN SAVE OPTION LEGEND *ADDED SELECTED OF DATA TO PROCESS LEGEND BY MAT/MF/MT/ENERGY RANGES. LEGEND *WARNING...THE INPUT PARAMETER FORMAT LEGEND HAS BEEN CHANGED - FOR DETAILS SEE LEGEND BELOW. LEGEND VERSION 92-2 (SEPT. 1992) *CORRECTED PROCESSING OF ISOTROPIC LEGEND ANGULAR DISTRIBUTIONS LEGEND VERSION 94-1 (JANUARY 1994) *VARIABLE ENDF/B DATA FILENAMES LEGEND TO ALLOW ACCESS TO FILE STRUCTURES LEGEND (WARNING - INPUT PARAMETER FORMAT LEGEND HAS BEEN CHANGED) LEGEND *CLOSE ALL FILES BEFORE TERMINATING LEGEND (SEE, SUBROUTINE ENDIT) LEGEND VERSION 96-1 (JANUARY 1996) *COMPLETE RE-WRITE LEGEND *IMPROVED COMPUTER INDEPENDENCE LEGEND *ALL DOUBLE PRECISION LEGEND *ON SCREEN OUTPUT LEGEND *UNIFORM TREATMENT OF ENDF/B I/O LEGEND *IMPROVED OUTPUT PRECISION LEGEND *INCREASED MAX. POINTS FROM 5,000 LEGEND TO 20,000. LEGEND VERSION 99-1 (MARCH 1999) *CORRECTED CHARACTER TO FLOATING LEGEND POINT READ FOR MORE DIGITS LEGEND *UPDATED TEST FOR ENDF/B FORMAT LEGEND VERSION BASED ON RECENT FORMAT CHANGELEGEND *GENERAL IMPROVEMENTS BASED ON LEGEND USER FEEDBACK LEGEND VERS. 2000-1 (FEBRUARY 2000)*GENERAL IMPROVEMENTS BASED ON LEGEND USER FEEDBACK LEGEND VERS. 2001-1 (MARCH 2001) *UPDATED TO HANDLE COMBINATIONS OF LEGEND LEGENDRE COEFFICIENTS AT LOW ENERGY LEGEND AND TABULATED DATA AT HIGH ENERGY. LEGEND VERS. 2002-1 (MAY 2002) *OPTIONAL INPUT PARAMETERS LEGEND VERS. 2004-1 (MARCH 2004) *ADDED INCLUDE FOR COMMON LEGEND *ZERO ANGULAR DISTRIBUTIONS ARE O.K. LEGEND (PREVIOUSLY ZERO OR NEGATIVE WAS LEGEND TREATED AS AN ERROR - ZERO IS O.K. LEGEND FOR SOME REACTIONS OVER SOME COSINE LEGEND RANGES) LEGEND VERS. 2006-1 (MARCH 2006) *INCREASED MAXIMUM NUMBER OF LEGENDRE LEGEND COEFFICIENTS FROM 50 TO 500. LEGEND WARNING - THE RECURSION RELATIONSHIP LEGEND FOR LEGENDRE POLYNOMIALS BECOMES LEGEND UNSTABLE IN HIGHER ORDER POLYTNOMIALSLEGEND EVEN USING DOUBLE PRECISION. LEGEND VERS. 2007-1 (JAN. 2007) *CHECKED AGAINST ALL ENDF/B=VII. LEGEND *INCREASED MAX. POINTS FROM 60,000 LEGEND TO 240,000. LEGEND VERS. 2007-2 (MAY 2007) *CORRECTED SIZE OF XMUBASE IN ANGLEN LEGEND FOR INCREASED NUMBER OF COEFFICIENTS.LEGEND VERS. 2010-1 (Apr. 2010) *General update based on user feedbackLEGEND VERS. 2012-1 (Aug. 2012) *added CODENAME LEGEND *32 and 64 bit Compatible LEGEND *Added ERROR stop LEGEND VERS. 2015-1 (Jan. 2015) *Extended OUT9 LEGEND *Replaced ALL 3 way IF Statements. LEGEND VERS. 2015-2 (Oct. 2015) *OPEN optional LEGEND.INP after LEGEND OPENING LEGEND.LST. LEGEND *Coefficient checks are turned OFF LEGEND if LEGEND.INP is missing = this LEGEND agrees with BEST INPUT. LEGEND *Switched from LISTO to LISTO9 LEGEND (no 10 digit output) LEGEND VERS. 2016-1 (May 2016) *Changed multiple IF statement to LEGEND accommodate compiler optimizer LEGEND *Increased Maximum allowed points per LEGEND angular distribution from 900 to LEGEND MAXPOINT (currently 240,000) LEGEND VERS. 2017-1 (May 2017) *More tests. Expanded to handle new LEGEND R-M (LRF=7) detailed angular LEGEND distributions. LEGEND *Max. points increased to 3,000,000. LEGEND *All floating input parameters changedLEGEND to characte input + IN9 conversion. LEGEND *If near COS=0 - set = 0 LEGEND *Default changed to negative fixes. LEGEND *At end print tallies for, LEGEND 1-Number of negative distributions. LEGEND 2-Number of duplicate or out-of-orderLEGEND Ehnergies LEGEND VERS. 2018-1 (Jan. 2018) *Added on-line output for ALL ENDERRORLEGEND VERS. 2019-1 (June 2019) *Additional Interpolation Law Tests LEGEND *Checked Maximum Tabulated Energy to LEGEND insure it is the same for all MTs - LEGEND if not, print WARNING messages. LEGEND *Corrected END Histogram linearized - LEGEND Previously assumed Y = 0 and deleted LEGEND Now output whatever the Y value. LEGEND VERS. 2020-1 (Feb. 2020) *Identical to 2019-1. LEGEND VERS. 2021-1 (Jan. 2021) *Updated for FORTRAN 2018 LEGEND VERS. 2023-1 (Feb. 2023) *Decreased page size from 3,000,000 LEGEND to 120,000 LEGEND LEGEND OWNED, MAINTAINED AND DISTRIBUTED BY LEGEND ------------------------------------ LEGEND THE NUCLEAR DATA SECTION LEGEND INTERNATIONAL ATOMIC ENERGY AGENCY LEGEND P.O. BOX 100 LEGEND A-1400, VIENNA, AUSTRIA LEGEND EUROPE LEGEND LEGEND ORIGINALLY WRITTEN BY LEGEND ------------------------------------ LEGEND Dermott E. Cullen LEGEND LEGEND PRESENT CONTACT INFORMATION LEGEND --------------------------- LEGEND Dermott E. Cullen LEGEND 1466 Hudson Way LEGEND Livermore, CA 94550 LEGEND U.S.A. LEGEND Telephone 925-443-1911 LEGEND E. Mail RedCullen1@Comcast.net LEGEND Website RedCullen1.net/HOMEPAGE.NEW LEGEND LEGEND PURPOSE LEGEND ------- LEGEND CALCULATE LINEARLY INTERPOLABLE TABULATED ANGULAR DISTRIBUTIONS LEGEND STARTING FROM DATA IN THE ENDF/B FORMAT. ANGULAR DISTRIBUTIONS LEGEND MAY BE DESCRIBED IN THE ENDF/B FORMAT IN ONE OF THREE WAYS. LEGEND FOR EACH OF THESE THREE FORMS THE USER MAY CHOOSE (SEE, INPUT LEGEND OPTIONS) TO EITHER COPY EACH TYPE OF DATA OR TO PROCESS IT AT LEGEND AS FOLLOWS, LEGEND LEGEND (1) ANGULAR DISTRIBUTION IS ISOTROPIC AT ALL ENERGIES (LTT=0) LEGEND ------------------------------------------------------------- LEGEND IN THIS CASE THE INPUT DATA DOES NOT INCLUDE ANY ANGULAR LEGEND DISTRIBUTIONS. A SECTION MERELY CONTAINS A FLAG TO INDICATE LEGEND THE ANGULAR DISTRIBUTION IS ISOTROPIC AT ALL ENERGIES. IN THIS LEGEND CASE THE SECTION IS OUTPUT IN EXACTLY THE SAME FORM IN WHICH IT LEGEND WAS READ FROM THE INPUT. LEGEND LEGEND (2) ANGULAR DISTRIBUTIONS GIVEN BY LEGENDRE COEFFICIENTS (LTT=1) LEGEND ---------------------------------------------------------------- LEGEND LEGENDRE COEFFICIENTS ARE GIVEN AT A SERIES OF ENERGIES. AN LEGEND INTERPOLATION LAW IS GIVEN BETWEEN ENERGIES. THE INTERPOLATION LEGEND LAW BETWEEN ENERGIES IS COPIED AS INPUT (I.E., NO ATTEMPT IS LEGEND MADE TO LINEARIZE THE VARIATION WITH ENERGY). FOR EACH ENERGY AT LEGEND WHICH LEGENDRE COEFFICIENTS ARE GIVEN A LINEARLY INTERPOLABLE LEGEND ANGULAR DISITRIBUTION IS RECONSTRUCTED IN THE SYSTEM IN WHICH THE LEGEND THE COEFFICIENTS ARE GIVEN (I.E., CM OR LAB - NO ATTEMPT IS MADE LEGEND TO CONVERT FROM ONE SYSTEM TO THE OTHER). A MAXIMUM OF 50 LEGENDRELEGEND COEFFICIENTS IS ALLOWED. REGARDLESS OF THE NUMBER OF COEFFICIENTS LEGEND INPUT THE PROGRAM WILL ONLY USE COEFFICIENTS UP TO THE LAST ORDER LEGEND AT WHICH THE COEFFICIENTS ARE NON-ZERO (E.G. IF COEFFICIENTS P1 LEGEND THROUGH P12 ARE READ, BUT P9=P10=P11=P12=0.0, THE PROGRAM WILL LEGEND ONLY USE COEFFICIENTS UP TO P8). IF OVER 50 NON-ZERO COEFFICIENTS LEGEND ARE READ ONLY THE FIRST 50 WILL BE USED. LEGEND LEGEND (2) ANGULAR DISTRIBUTIONS IS TABULATED (LTT=2) LEGEND ---------------------------------------------------------------- LEGEND ANGULAR DISTRIBUTIONS ARE GIVEN AT A SERIES OF ENERGIES. AN LEGEND INTERPOLATION LAW IS GIVEN BETWEEN ENERGIES AND A SECOND LEGEND INTERPOLATION LAW IS GIVEN AT EACH ENERGY TO INTERPOLATE BETWEEN LEGEND THE POINTS IN EACH TABULATED DISTRIBUTION. AT EACH ENERGY THE LEGEND ANGULAR DISTRIBUTION WILL BE CONVERTED TO LINEARLY INTERPOLABLE LEGEND FORM. THE INTERPOLATION BETWEEN ENERGIES IS OUTPUT EXACTLY AS LEGEND INPUT. THE INTERPOLATION LAW AT EACH ENERGY IS OUTPUT TO INDICATE LEGEND THE NOW LINEARLY INTERPOLABLE ANGULAR DISTRIBUTION. LEGEND LEGEND (3) LEGENDRE COEFFICIENTS AND TABULATED (LTT=3) LEGEND ---------------------------------------------------------------- LEGEND ENDF-102 SAYS THIS SHOULD BE LTT=4, BUT ALL OF THE EVALUATIONS LEGEND IN ENDF/B-VI, RELEASE 7, USE LTT=3? THIS CODE WILL TREAT THESE LEGEND AS LTT=4 - SEE BELOW. LEGEND LEGEND (4) LEGENDRE COEFFICIENTS AND TABULATED (LTT=4) LEGEND ---------------------------------------------------------------- LEGEND THIS IS A COMBINATION OF (1) AND (2) DESCRIBED ABOVE. THE LEGEND LEGENDRE DATA IS ALWAYS GIVEN FIRST, FOR LOWER ENERGIES, LEGEND FOLLOWED BY TABULATED ANGULAR DISTRIBUTIONS, FOR HIGHER ENERGIES. LEGEND LEGEND THIS TYPE OF DATA CAN ONLY BE COPIED OR ALL CONVERTED TO LEGEND TABULATED (LTT=2). LEGEND LEGEND POINT VALUES - NORMALIZED VS. UNNORMALIZED LEGEND ------------------------------------------------------------------LEGEND THE VALUE OF AN ANGULAR DISTRIBUTION AT ANY COSINE WILL BE LEGEND CORRECTLY CALCULATED BY THIS CODE, BASED EITHER DIRECTLY ON THE LEGEND ANGULAR DISTRIBUTION, OR ON THE SUM OF THE CONTRIBUTING LEGENDRE LEGEND MOMENTS. LEGEND LEGEND ENDF/B ANGULAR DISTRIBUTIONS ARE BY DEFINITION NORMALIZED WHEN LEGEND INTEGRATED OVER COSINE. THEREFORE THIS CODE WILL NORMALIZE EACH LEGEND ANGULAR DISTRIBUTION BEFORE IT IS OUTPUT. THE OUTPUT REPORT FROM LEGEND THIS CODE WILL INDICATE THE NORMALIZATION FACTOR USED. LEGEND LEGEND THE REASON THAT AN ANGULAR DISTRIBUTION MAY NOT BE NORMALIZED IS LEGEND DUE TO THE APPROXIMATION OF CREATING LINEARLY INTERPOLABLE LEGEND TABULATED ANGULAR DISTRIBUTIONS - THE MORE ACCURATELY THIS IS LEGEND DONE THE CLOSER THE NORMALIZATION FACTOR WILL BE TO UNITY. AS YOU LEGEND DECREASE THE ALLOWABLE ERROR THE NORMALIZED VALUES WILL APPROACH LEGEND THE CORRECT POINT VALUES CALCULATED BY THE CODE. LEGEND LEGEND SINCE THE DATA IS NORMALIZED PRIOR TO OUTPUT THE RESULTS IN THE LEGEND ENDF/B FORMAT MAY DIFFER SLIGHTLY FROM VALUES REFERRED TO BE ERRORLEGEND MESSAGES, ETC. PRINTED BY THE CODE DURING EXECUTION. IN ALL CASES LEGEND THE VALUES PRINTED BY THE CODE IN ERROR MESSAGES, ETC. SHOULD BE LEGEND CONSIDERED TO BE THE CORRECT VALUES AND THE OUTPUT TABULATED LEGEND ANGULAR DISTRIBUTIONS APPROXIMATE DUE TO THE RE-NORMALIZATION - LEGEND TO RE-ITERATE, THE OUTPUT TABULATED VALUES ARE APPROXIMATE DUE LEGEND TO THE APPROXIMATIONS USED IN CONSTRUCTING LINEAR INTERPOLABLE LEGEND ANGULAR DISTRIBUTIONS TO WITHIN SOME ALLOWABLE TOLERANCE. LEGEND LEGEND ELIMINATION OF NEGATIVE VALUES LEGEND ------------------------------ LEGEND THE RECONSTRUCTED ANGULAR DISTRIBUTION WILL BE TESTED AND IF IT LEGEND IS NEGATIVE AT ONE OR MORE COSINES AN ERROR MESSAGE WILL BE OUTPUTLEGEND AND BASED ON THE INPUT OPTION SELECTED ONE OF THE FOLLOWING LEGEND CORRECTIVE ACTIONS WILL BE TAKEN (SEE, INPUT OPTIONS), LEGEND (1) NO CORRECTION LEGEND (2) CHANGE INDIVIDUAL LEGENDRE COEFFICIENTS (EACH BY LESS THAN LEGEND 1.0 PER-CENT) UNTIL THE RECONSTRUCTED ANGULAR DISTRIBUTION LEGEND IS POSITIVE (MINIMUM MORE THAN 1 MILLI-BARN). THE ALLOWABLE LEGEND PER-CENT CHANGE IN COEFFICIENTS AND MINIMUM CROSS SECTION CAN LEGEND BE CHANGED BY INPUT. LEGEND (3) CHANGE ALL LEGENDRE COEFFICIENTS TO FORCE DISTRIBUTION TO BE LEGEND POSITIVE (MINIMUM MORE THAN 1 MILLI-BARN). WITH THIS OPTION LEGEND THERE IS NO RESTRICTION ON THE AMOUNT THAT EACH COEFFICIENT LEGEND IS CHANGED AND AS SUCH THIS OPTION SHOULD BE USED WITH LEGEND CAUTION AND ONLY AS A LAST RESORT IF NO OTHER APPROACH CAN LEGEND BE USED TO MAKE THE DISTRIBUTION POSITIVE. LEGEND LEGEND OUTPUT LEGEND ------ LEGEND THE USER MAY REQUEST OUTPUT OF EITHER, LEGEND (1) TABULATED VALUES - POSSIBLY CORRECTED TO ELIMINATE NEGATIVE LEGEND VALUES. THE TABULATED DISTRIBUTION WILL BE NORMALIZED BEFORE LEGEND OUTPUT. LEGEND (2) LEGENDRE COEFFICIENTS - POSSIBLY CORRECTED TO ELIMINATE LEGEND NEGATIVE VALUES AND WITHOUT HIGHER ORDER ZERO COEFFICIENTS. LEGEND BY DEFINITION DISTRIBUTIONS DEFINED BY LEGENDRE COEFFICIENTS LEGEND ARE NORMALIZED TO UNITY. LEGEND LEGEND (3) ANGULAR DISTRIBUTIONS GIVEN BY A TABULATION (LTT=2) LEGEND ------------------------------------------------------- LEGEND TABULATED ANGULAR DISTRIBUTIONS ARE GIVEN AT A SERIES OF ENERGIES.LEGEND AN INTERPOLATION LAW IS GIVEN BETWEEN ENERGIES. THE INTERPOLATION LEGEND LAW BETWEEN ENERGIES IS COPIED AS INPUT (I.E., NO ATTEMPT IS LEGEND MADE TO LINEARIZE THE VARIATION WITH ENERGY). FOR EACH ENERGY AT LEGEND AT WHICH TABULATED DATA ARE GIVEN A LINEARLY INTERPOLABLE ANGULAR LEGEND DISTRIBUTION IS CONSTRUCTED IN THE SYSTEM IN WHICH THE TABULATED LEGEND DATA ARE GIVEN (I.E., CM OR LAB - NO ATTEMPT IS MADE TO CONVERT LEGEND FROM ONE SYSTEM TO THE OTHER). A MAXIMUM OF 60000 POINTS IS ALLOWELEGEND TO REPRESENT THE ANGULAR DISTRIBUTION AT EACH ENERGY. LEGEND LEGEND ELIMINATION OF NEGATIVE VALUES LEGEND ------------------------------ LEGEND THE RECONSTRUCTED ANGULAR DISTRIBUTION WILL BE TESTED AND IF IT LEGEND IS NEGATIVE AT ONE OR MORE COSINES AN ERROR MESSAGE WILL BE OUTPUTLEGEND AND BASED ON THE INPUT OPTION SELECTED ONE OF THE FOLLOWING LEGEND CORRECTIVE ACTIONS WILL BE TAKEN (SEE, INPUT OPTIONS), LEGEND (1) NO CORRECTION LEGEND (2) CHANGE ALL TABULATED VALUES TO FORCE DISTRIBUTION TO BE LEGEND POSITIVE (MINIMUM MORE THAN 1 MILLI-BARN). THE MINIMUM VALUE LEGEND MAY BE CHANGED BY INPUT. WITH THIS OPTION THERE IS NO LEGEND RESTRICTION ON THE AMOUNT THAT EACH VALUE IS CHANGED AND AS LEGEND SUCH THIS OPTION SHOULD BE USED WITH CAUTION AND ONLY AS A LEGEND LAST RESORT IF NO OTHER APPROACH CAN BE USED TO MAKE THE LEGEND DISTRIBUTION POSITIVE. LEGEND LEGEND OUTPUT LEGEND ------ LEGEND THE OUTPUT WILL BE THE LINEARIZED ANGULAR DISTRIBUTION. THE LEGEND TABULATED DISTRIBUTION WILL BE NORMALIZED TO UNITY BEFORE OUTPUT. LEGEND LEGEND CORRECTING NEGATIVE ANGULAR DISTRIBUTION LEGEND ---------------------------------------- LEGEND IF AN ANGULAR DISTRIBUTION IS NEGATIVE AN ERROR MESSAGE WILL BE LEGEND PRINTED AND THE USER MAY DECIDE (BASED ON INPUT OPTION) TO, LEGEND (1) NOT PERFORM ANY CORRECTIVE ACTION. LEGEND (2) FOR TABULATED DISTRIBUTIONS - ADD THE SAME VALUE TO EACH POINTLEGEND VALUE SUCH THAT WHEN THE DISTRIBUTION IS RE-NORMALIZED THE LEGEND MINIMUM VALUE IS 0.001 (1 MILLI-BARN). THE MINIMUM VALUE CAN LEGEND BE CHANGED BY INPUT. WARNING...EXCEPT FOR SELECTION OF THE LEGEND MINIMUM VALUE (BY INPUT) THE USER HAS NO CONTROL OVER HOW LEGEND MUCH THE DISTRIBUTION IS CHANGED. THEREFORE THIS OPTION SHOULDLEGEND BE USED WITH CAUTION. LEGEND (3) FOR LEGENDRE COEFFICIENTS ONE OF TWO OPTIONS MAY BE SELECTED, LEGEND (A) CHANGE INDIVIDUAL COEFFICIENTS (NO ONE COEFFICIENT BY MORE LEGEND THAN 1 PER-CENT) TO MAKE THE DISTRIBUTION POSITIVE WITH A LEGEND MINIMUM VALUE OF 0.001 (1 MILLI-BARN). THE MAXIMUM PER-CENT LEGEND CHANGE IN EACH COEFFICIENT AND MINIMUM VALUE MAY BE CHANGED LEGEND BY INPUT. INPUT THE PROGRAM CANNOT MAKE THE DISTRIBUTION LEGEND POSITIVE BY CHANGING EACH COEFFICIENT BY UP TO THE MAXIMUM LEGEND ALLOWABLE AMOUNT, THE ORIGINAL ANGULAR DISTRIBUTION OR LEGEND COEFFICIENTS WILL BE OUTPUT. ONLY IN THE LATTER CASE SHOULD LEGEND ONE CONSIDER USING OPTION (B) DESCRIBED BELOW. LEGEND (B) LOGICALLY ADD THE SAME VALUE TO EACH POINT VALUE SUCH THAT LEGEND WHEN THE DISTRIBUTION IS RE-NORMALIZED THE MINIMUM VALUE IS LEGEND 0.001 (1 MILLI-BARN). THIS IS EQUIVALENT AT INCREASING P0 LEGEND BY A CERTAIN AMOUNT AND RE-NORMALIZATION IS EQUIVALENT TO THENLEGEND DIVIDING EACH COEFFICIENT BY A CERTAIN AMOUNT. THEREFORE, LEGEND WHAT IS PHYSICALLY DONE BY THE PROGRAM IS TO DIVIDE EACH LEGEND COEFFICIENT BY THE SAME AMOUNT. WARNING..EXCEPT FOR SELECTION LEGEND OF THE MINIMUM VALUE (BY INPUT) THE USER HAS NO CONTROL OVER LEGEND HOW MUCH THE DISTRIBUTION IS CHANGED. THEREFORE THIS OPTION LEGEND SHOULD BE USED WITH CAUTION. LEGEND LEGEND WARNING MESSAGES FROM PROGRAM LEGEND ----------------------------- LEGEND THE WARNING MESSAGES PRINTED BY THIS PROGRAM SHOULD ONLY BE LEGEND CONSIDERED TO BE EXACTLY THAT..WARNINGS..NOT AN ABSOLUTE JUDGEMENTLEGEND BY THIS PROGRAM THAT THERE IS SOMETHING WRONG WITH THE DATA. WHEN LEGEND WARNING MESSAGES ARE PRINTED EXAMINE THE DATA AND EITHER TAKE NO LEGEND ACTION (IF YOU FEEL THAT THE DATA IS O.K.) OR CORRECT THE DATA LEGEND (IF YOU FEEL THAT THE DATA IS INCORRECT AND YOU CAN CORRECT IT). LEGEND LEGEND VALIDITY OF MODIFIED DATA LEGEND ------------------------- LEGEND BEFORE BELIEVING AND USING DATA WHICH HAS BEEN MODIFIED (EITHER LEGEND TABULATED ANGULAR DISTRIBUTIONS OR LEGENDRE COEFFICIENTS) THE USERLEGEND SHOULD INSURE THAT THE MODIFIED DATA IS PHYSICALLY MORE ACCEPTABLELEGEND THAN THE ORIGINAL DATA. IN ORDER TO DO THIS ONE OR MORE OF THE LEGEND FOLLOWING METHODS SHOULD BE USED, LEGEND LEGEND (1) USE THE ENERGY VARIATION TESTS BUILT-IN TO THIS PROGRAM AND LEGEND EVALPLOT TO PLOT THE ENERGY DEPENDENCE OF THE LEGENDRE LEGEND COEFFICIENTS IN ORDER TO IDENTIFY AND CORRECT (BY HAND...NOT LEGEND BY THIS PROGRAM) ANY COEFFICIENTS WHICH HAVE UNREALISTIC LEGEND ENERGY AND L ORDER VARIATIONS. THIS SHOULD ALWAYS BE DONE LEGEND FIRST TO ELIMINATE MAJOR PROBLEMS BEFORE USING THIS PROGRAM LEGEND TO AUTOMATICALLY MAKE MINOR CORRECTIONS. LEGEND (1) OUTPUT AND PLOT THE UNCORRECTED AND CORRECTED ANGULAR LEGEND DISTRIBUTIONS. COMPARE THE PLOTS TO INSURE THAT THE CORRECTED LEGEND DATA DOES NOT SERIOUSLY CHANGE THE ENERGY DEPENDENCE OF THE LEGEND ANGULAR DISTRIBUTION. LEGEND (2) IF PLOTTING CAPABILITY IS NOT AVAIALABLE, USE THE PRINTED OUT LEGEND OF THIS PROGRAM TO DETERMINE HOW MUCH THE TABULATED ANGULAR LEGEND DISTRIBUTION OR LEGENDRE COEFFICIENTS HAVE BEEN MODIFIED. LEGEND GENERALLY IF ONE COEFFICIENT HAS BEEN ONLY SLIGHTLY MODIFIED LEGEND THE DISTRIBUTION WILL BE ACCEPTABLE. HOWEVER IF MANY LEGEND COEFFICIENTS HAVE BEEN MODIFIED THE RESULT WILL NOT BE LEGEND RELIABLE. LEGEND LEGEND SEEING ANGULAR DISTRIBUTIONS AND LEGENDRE COEFFICIENTS LEGEND ------------------------------------------------------ LEGEND PROGRAM EVALPLOT CAN BE USED TO PLOT ANGULAR DISTRIBUTION AND LEGEND LEGENDRE COEFFICIENTS - WHEN IT COMES TO CHECKING THIS TYPE OF LEGEND DATA THERE IS NO SUBSTITUTE FOR PLOTS OF THE DATA TO MAKE THE LEGEND JOB EASY AND STRAIGHTFORWARD. LEGEND LEGEND FOR LEGENDRE COEFFICIENTS EVALPLOT CAN BE USED TO SEE THE ENERGY LEGEND DEPENDENCE OF EACH COEFFICIENT - THIS IS AN EXTREMELY EASY AND LEGEND USEFUL WAY TO CHECK FOR ERRORS IN THE BASIC DATA. LEGEND LEGEND FOR ANGULAR DISTRIBUTION EVALPLOT CAN BE USED TO PLOT THEM AT LEGEND EACH ENERGY THAT THEY ARE TABULATED - THIS IS ALSO AN EASY AND LEGEND USEFUL WAY TO CHECK FOR ERRORS. LEGEND LEGEND I/O UNIT DEFINITIONS LEGEND -------------------- LEGEND UNIT DESCRIPTION LEGEND ---- ----------- LEGEND 2 INPUT CARDS LEGEND 3 OUTPUT REPORT LEGEND 10 ORIGINAL DATA IN ENDF/B FORMAT LEGEND 11 FINAL DATA IN ENDF/B FORMAT LEGEND LEGEND OPTIONAL STANDARD FILE NAMES (SEE SUBROUTINE FILIO1 AND FILIO2) LEGEND --------------------------------------------------------------- LEGEND UNIT FILE NAME LEGEND ---- ---------- LEGEND 2 LEGEND.INP LEGEND 3 LEGEND.LST LEGEND 10 ENDFB.IN LEGEND 11 ENDFB.OUT LEGEND LEGEND INPUT CARD LEGEND ---------- LEGEND CARD COLS. FORMAT DESCRIPTION LEGEND ---- ----- ------ ----------- LEGEND 1 1-11 E11.4 FRACTIONAL THINNING CRITERIA LEGEND 12-22 I11 MAXIMUM NUMBER OF POINTS IN ANGULAR DISTRIBUTION LEGEND RECONSTRUCTED FROM LEGENDRE COEFFICIENTS (PRESENT LEGEND LIMITS ARE 11 TO 60000 POINTS) LEGEND *THIS OPTION CAN BE USED TO RUN QUICK, BUT NOT LEGEND NECESSARILY SO ACCURATE CALCULATIONS - TO ROUGHLY LEGEND SEE WHAT THE ANGULAR DISTRIBUTIONS LOOK LIKE. LEGEND *IT IS RECOMMENDED THAT YOU USE 0 AS INPUT - IN LEGEND WHICH CASE THE PROGRAM WILL USE THE MAXIMUM LEGEND ALLOWABLE NUMBER OF POINTS = 60000. LEGEND 23-33 I11 TABULATED ANGULAR DISTRIBUTION TREATMENT LEGEND = 0 - COPY TABLES LEGEND = 1 - LINEARIZE TABLES (OUTPUT TABLES) LEGEND = 2 - LINEARIZE AND THIN TABLES (OUTPUT TABLES) LEGEND 34-44 I11 LEGENDRE COEFFICIENT TREATMENT LEGEND = 0 - COPY LEGENDRE COEFFICIENTS LEGEND = 1 - RECONSTRUCT TABULATED ANGULAR DISTRIBUTION. LEGEND (OUTPUT TABLES). LEGEND = 2 - RECONSTRUCT TABULATED ANGULAR DISTRIBUTION. LEGEND (OUTPUT LEGENDRE COEFFICIENTS). LEGEND 45-55 I11 NEGATIVE ANGULAR DISTRIBUTION TREATMENT. LEGEND = 0 - NO CORRECTION LEGEND = 1 - TABULATE DATA - NO CORRECTION. LEGEND - LEGENDRE DATA - CHANGE COEFFICIENTS LEGEND (NONE BY MORE THAN 1.0 PER-CENT - CAN BE LEGEND CHANGED BY INPUT). LEGEND = 2 - FORCE DISTRIBUTIONS TO BE POSITIVE LEGEND (TABULATED OR LEGENDRE DATA). LEGEND 56-66 I11 LEGENDRE COEFFICIENT VARIATION TEST FLAG. LEGEND = 0 - TEST TESTS. LEGEND = 1 - PERFORM TESTS, LEGEND (A) LEGENDRE ORDER INCREASES WITH ENERGY. LEGEND (C) MONOTONIC VARIATION OF COEFFICIENTS LEGEND AS A FUNCTION OF ENERGY. LEGEND (C) COEFFICIENTS DECREASE AS A FUNCTION OF LEGEND LEGENDRE ORDER. LEGEND 2 1-60 60A1 ENDF/B INPUT DATA FILENAME LEGEND (STANDARD OPTION = ENDFB.IN) LEGEND 3 1-60 60A1 ENDF/B OUTPUT DATA FILENAME LEGEND (STANDARD OPTION = ENDFB.OUT) LEGEND 4-N 1- 6 I6 LOWER MAT LIMIT LEGEND 7- 8 I2 LOWER MF LIMIT LEGEND 9-11 I3 LOWER MT LIMIT LEGEND 12-17 I6 UPPER MAT LIMIT LEGEND 18-19 I2 UPPER MF LIMIT LEGEND 20-22 I3 UPPER MT LIMIT LEGEND 23-33 E11.4 LOWER ENERGY LIMIT LEGEND 34-44 E11.4 UPPER ENERGY LIMIT LEGEND 45-55 E11.4 MINIMUM ALLOWABLE VALUE OF ANGULAR DISTRIBUTION LEGEND 56-66 E11.4 ALLOWABLE FRACTION (NOT PER-CENT) CHANGE IN ANY LEGEND ONE LEGENDRE COEFFICIENT TO MAKE THE ANGULAR LEGEND DISTRIBUTION POSITIVE (AND AT LEAST EQUAL TO THE LEGEND INPUT MINIMUM ALLOWABLE VALUE). LEGEND LEGEND *UP TO 100 MAT/MT/E RANGES MAY BE INPUT, EACH SPECIFYING AN LEGEND ALLOWABLE MINIMUM SIGMA AND MAXIMUM CHANGE IN COEFFICIENTS. LEGEND *INPUT IS TERMINATED BY A BLANK CARD. LEGEND *ALL MAY/MT/E RANGES NOT SPECIFIED BY INPUT WILL BE TREATED BY LEGEND ALLOWING A MINIMUM SIGMA OF 0.001 (1 MILLI-BARN) AND A CHANGE LEGEND IN EACH COEFFICIENT BY UP TO 0.01 (1 PER-CENT). LEGEND *THESE MAT/MT/E RANGES ARE NOT USED TO CORRECT ALL ANGULAR LEGEND DISTRIBUTIONS WHERE SIGMA IS LESS THAN THE MINIMUM. THEY ARE LEGEND ONLY USED TO CORRECT DISTRIBUTION THAT ARE NEGATIVE AND TO LEGEND INSURE THAT THE CROSS SECTION AT THE COSINES WHERE THE ANGULAR LEGEND DISTRIBUTION ARE INITIALLY NEGATIVE ARE CORRECTED TO BE POSITIVE LEGEND AND AT LEAST AS LARGE AS THE MINIMUM ALLOWABLE SIGMA (SPECIFIED LEGEND BY INPUT). LEGEND LEGEND EXAMPLE INPUT NO. 1 LEGEND ------------------- LEGEND PROCESS BOTH LEGENDRE COEFFICIENTS AND TABULATED DATA TO OBTAIN LEGEND ANGULAR DISTRIBUTION WHICH ARE ACCURATE TO WITHIN 0.1 PER-CENT LEGEND AND OUTPUT UNCORRECTED TABULATED ANGULAR DISTRIBUTION USING LEGEND A MAXIMUM OF 501 POINTS IN EACH TABULATED ANGULAR DISTRIBUTION. LEGEND SINCE LEGENDRE COEFFICIENTS WILL NOT BE CORRECTED THE INPUT NEED LEGEND NOT SPECIFY MAT/MT/E RANGES. LEGEND LEGEND READ /ENDFB6/K300/LEAD.IN AND WRITE /ENDFB6/K300/LEAD.OUT LEGEND LEGEND THE FOLLOWING 4 INPUT LINES ARE REQUIRED, LEGEND LEGEND 1.00000- 3 501 2 1 0 LEGEND /ENDFB6/K300/LEAD.IN LEGEND /ENDFB6/K300/LEAD.OUT LEGEND (BLANK CARD TERMINATED INPUT) LEGEND LEGEND EXAMPLE INPUT NO. 2 LEGEND ------------------- LEGEND PROCESS BOTH LEGENDRE COEFFICIENTS AND TABULATED DATA TO OBTAIN LEGEND ANGULAR DISTRIBUTION WHICH ARE ACCURATE TO WITHIN 0.1 PER-CENT LEGEND AND OUTPUT CORRECTED TABULATED ANGULAR DISTRIBUTION (ONLY THOSE LEGEND RE-CONSTRUCTED FROM LEGENDRE COEFFICIENTS WILL BE CORRECTED). LEGEND FOR ALL MAT/MT/E CORRECT NEGATIVE ANGULAR DISTRIBUTION TO A VALUE LEGEND OF 0.01 (10 MILLI-BARNS) AND ALLOW LEGENDRE COEFFICIENTS TO BE LEGEND CHANGED BY UP TO 0.02 (2 PER-CENT). LEGEND LEGEND USE THE DEFAULT FILENAMES ENDFB.IN AND ENDFB.OUT (THIS CAN BE LEGEND DONE BY LEAVING THE SECOND AND THIRD INPUT LINES BLANK). LEGEND LEGEND THE FOLLOWING 5 INPUT LINES ARE REQUIRED, LEGEND LEGEND 1.00000- 3 501 2 1 1 LEGEND LEGEND LEGEND 1 1 1 999999999 0.00000+ 0 3.00000+ 7 1.00000- 2 2.00000- 2 LEGEND (BLANK CARD TERMINATED INPUT) LEGEND LEGEND EXAMPLE INPUT NO. 3 LEGEND ------------------- LEGEND PROCESS BOTH LEGENDRE COEFFICIENTS AND TABULATED DATA TO OBTAIN LEGEND ANGULAR DISTRIBUTION WHICH ARE ACCURATE TO WITHIN 0.1 PER-CENT LEGEND AND OUTPUT CORRECTED LEGENDRE COEFFICIENTS AND UNCORRECTED LEGEND TABULATED ANGULAR DISTRIBUTIONS. FOR MAT=1800, MT=2 CORRECT LEGEND NEGATIVE ANGULAR DISTRIBUTIONS TO INSURE THE MINIMUM IS 0.01 LEGEND (10 MILLI-BARNS) ALLOWING EACH LEGENDRE COEFFICIENT TO CHANGE BY LEGEND UP TO 0.02 (2 PER-CENT). ALL OTHER MAT/MT/E WILL BE CORRECTED LEGEND TO A MINIMUM OF 0.001 (1 MILLI-BARN) ALLOWING A 0.01 (1 PER-CENT) LEGEND CHANGE (BUILT-IN OPTION). LEGEND LEGEND READ /ENDFB6/K300/LEAD.IN AND WRITE /ENDFB6/K300/LEAD.OUT LEGEND LEGEND THE FOLLOWING 5 INPUT LINES ARE REQUIRED, LEGEND LEGEND 1.00000- 3 501 2 2 1 LEGEND /ENDFB6/K300/LEAD.IN LEGEND /ENDFB6/K300/LEAD.OUT LEGEND 1800 4 2 1800 4 2 0.00000+ 0 3.00000+ 7 1.00000- 2 2.00000- 2 LEGEND (BLANK CARD TERMINATED INPUT) LEGEND LEGEND EXAMPLE INPUT NO. 4 LEGEND ------------------- LEGEND TO COPY TABULATED ANGULAR DISTRIBUTION AND CONVERT LEGENDRE LEGEND COEFFICIENTS TO UNCORRECTED TABULAR DISTRIBUTIONS. LEGEND LEGEND USE THE DEFAULT FILENAMES ENDFB.IN AND ENDFB.OUT (THIS CAN BE LEGEND DONE BY LEAVING THE SECOND AND THIRD INPUT LINES BLANK). LEGEND LEGEND THE FOLLOWING 4 INPUT LINES ARE REQUIRED, LEGEND LEGEND 1.00000- 3 501 0 1 0 LEGEND LEGEND LEGEND (BLANK CARD TERMINATED INPUT) LEGEND LEGEND =======================================================================LEGEND