=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Recent

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

PROGRAM RECENT = &nb= sp; = &nb= sp; Recent

VERSION 79= -1 (OCTOBER 1979) CDC-7600 = &nb= sp; Recent

VERSION 80= -1 (MAY 1980) IBM, CDC AND CRAY VERSION = Recent

VERSION 80= -2 (DECEMBER 1980) IMPROVED TREATMENT OF UNRESOLVED Recent

= = REGION TO COMPUTE ALL REACTIONS AT &nb= sp; Recent

= &nb= sp; = THE SAME TIME. = &nb= sp; Recent

VERSION 81= -1 (MARCH 1981) IMPROVED BASED O= N USER COMMENTS. Recent

VERSION 81= -2 (AUGUST 1981) ADDED MONITOR MODE. ADDED SPEED OPTION Recent

= &nb= sp; TO BYPASS BACKWARDS THINNING IF FILE 3 Recent

= &nb= sp; ALLOWABLE ERROR =3D 0.0 (NOTE THIS OPTION Recent

= &nb= sp; WILL RESULT IN ALL TABULATED POINTS Recent

= &nb= sp; FROM THE EVALUATION BEING KEPT IN THE Recent

= &nb= sp; OUTPUT FROM THIS PROGRAM). = Recent

VERSION 82= -1 (JANUARY 1982) IMPROVED COMPUTER COMPATIBILITY. Recent

VERSION 83= -1 (JANUARY 1983)*MAJOR RE-DESIGN. = &nb= sp; Recent

= &nb= sp; *PAGE SIZES INCREASED. = Recent

= &nb= sp; *ELIMINATED COMPUTER DEPENDENT CODING. Recent

= &nb= sp; *NEW, MORE COMPATIBLE I/O UNIT NUMBERS. Recent

= &nb= sp; *ADDED OPTION TO KEEP ALL RECONSTRUCTED Recent

= &nb= sp; AND BACKGROUND ENERGY POINTS. Recent

= &nb= sp; *ADDED STANDARD ALLOWABLE ERROR OPTIONS Recent

= &nb= sp; (CURRENTLY 0.1 PER-CENT RECONSTRUCTION Recent

= &nb= sp; AND 0.0 PER-CENT THINNING). = Recent

VERSION 83= -2 (OCTOBER 1983) IMPROVED BASED ON USER COMMENTS. Recent

VERSION 84= -1 (JANUARY 1984) IMPROVED INTERVAL HALFING CONVERGENCE. Recent

VERSION 85= -1 (APRIL 1985) *A BRAND NEW PRO= GRAM WHICH COMPLETELY Recent=

= &nb= sp; SUPERCEDES ALL PREVIOUS VERSIONS OF Recent

= &nb= sp; THIS PROGRAM. = &nb= sp; Recent

= &nb= sp; *UPDATED FOR ENDF/B-VI FORMATS. Recent

= = *ADDED GENERAL REICH-MOORE FORMALISM &= nbsp; Recent

= &nb= sp; (WITH TWO FISSION CHANNELS). = Recent

= &nb= sp; *DECREASED RUNNING TIME. = Recent

= &nb= sp; *SPECIAL I/O ROUTINES TO GUARANTEE Recent

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

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

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

VERSION 85= -2 (AUGUST 1985) *FORTRAN-77/H VERSION = Recent

VERSION 86= -1 (JANUARY 1986)*ENERGY DEPENDENT SCATTERING RADIUS Recent

VERSION 86= -2 (JUNE 1986) *IF FIRST C= HANCE FISSION (MT=3D19) Recent

= &nb= sp; BACKGROUND IS PRESENT ADD RESONANCE Recent

= &nb= sp; CONTRIBUTION OF FISSION TO IT. Recent

VERSION 86= -3 (OCTOBER 1986)*MULTI-LEVEL OR REICH-MOORE..CORRECT Recent

= &nb= sp; POTENTIAL SCATTERING CROSS SECTION FOR Recent

= &nb= sp; MISSING AND/OR FICTICIOUS (L,J) Recent

= &nb= sp; SEQUENCES. = &nb= sp; Recent

VERSION 87= -1 (JANUARY 1987)*IMPROVED COMBINING FILE 2+3 = Recent

VERSION 87= -2 (MARCH 1987) *CORRECTED ADLER= -ADLER CALCULATIONS. Rec= ent

VERSION 88= -1 (JULY 1988) *UPDATED REICH-MOORE ENDF/B-VI FORMAT Recent

= &nb= sp; TO BE THE SAME AS REICH-MOORE FORMAT Recent

= &nb= sp; IN EARLIER VERSIONS OF ENDF/B FORMAT. Recent

= &nb= sp; *CHECK FOR PRELIMINARY ENDF/B-VI Recent

= &nb= sp; REICH-MOORE FORMAT (NOW ABANDONED) &n= bsp; Recent

= &nb= sp; AND TERMINATE EXECUTION IF DATA IS Recent

= &nb= sp; IN THIS FORMAT. = &nb= sp; Recent

= = *CALCULATE CHANNEL RADIUS OR SET IT = Recent

= &nb= sp; EQUAL TO THE SCATTERING RADIUS. Recent

= &nb= sp; *IMPLEMENTED HYBRID R-FUNCTION WITH THE Recent

= &nb= sp; = FOLLOWING RESTRICTIONS = Recent

= &nb= sp; - ONLY INELASTIC COMPETITION (NO Recent

= &nb= sp; = CHARGED PARTICLES) = Recent

= &nb= sp; - NO TABULATED FILE 2 BACKGROUND Recent

= &nb= sp; - NO TABULATED OPTICAL MODEL PHASE Recent

= &nb= sp; = SHIFT = &nb= sp; Recent

= &nb= sp; *PROGRAM EXIT IF GENERAL R-MATRIX IN Recent

= &nb= sp; THE EVALUATION (THIS FORMALISM WILL Recent

= &nb= sp; BE IMPLEMENTED ONLY AFTER THE AUTHOR Recent

= &nb= sp; RECEIVES REAL EVALUATIONS WHICH USE Recent

= &nb= sp; THIS FORMALISM...UNTIL THEN IT IS Recent

= &nb= sp; IMPOSSIBLE TO ADEQUATELY TEST THAT Recent

= &nb= sp; THE CODING FOR THIS FORMALISM IS Recent

= &nb= sp; CORRECT). = &nb= sp; Recent

= &nb= sp; *INCREASED MAXIMUM NUMBER OF RESONANCES Recent

= &nb= sp; FROM 1002 TO 4008. = Recent

= &nb= sp; *DOUBLE PRECISION RESONANCE REGION Recent

= &nb= sp; LIMITS. = &nb= sp; Recent

= &nb= sp; *FILE 2 AND FILE 3 ENERGIES WHICH ARE Recent

= &nb= sp; NEARLY EQUAL ARE TREATED AS EQUAL Recent

= &nb= sp; (I.E., SAME TO ABOUT 9 DIGITS). Recent

= &nb= sp; *CHECK FILE 3 BACKGROUND CROSS SECTIONS Recent

= = IN EDIT MODE. = &nb= sp; Recent

= &nb= sp; *OPTION...INTERNALLY DEFINE FILENAMES Recent

= &nb= sp; (SEE SUBROUTINE FILEIO FOR DETAILS). Recent

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

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

= &nb= sp; CRAZY. = &nb= sp; Recent

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

= &nb= sp; KEYWORDS. = &nb= sp; Recent

= &nb= sp; *CORRECTED MULTILEVEL, REICH-MOORE AND Recent

= &nb= sp; HYBRID R-FUNCTION POTENTIAL SCATTER Recent

= &nb= sp; TO ACCOUNT FOR REPEATED J-VALUES FOR Recent

= &nb= sp; THE SAME TARGET SPIN AND L-VALUE. Recent

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

= &nb= sp; CONVENTIONS. = &nb= sp; Recent

= &nb= sp; *UPDATED TO USE NEW ENDF/B-VI = Recent

= &nb= sp; CONVENTION TO ALLOW UNRESOLVED Recent

= &nb= sp; RESONANCE CONTRIBUTION TO ALREADY Recent

= &nb= sp; BE INCLUDED IN THE FILE 3 CROSS Recent

= &nb= sp; SECTIONS (INFINITELY DIULUTE = Recent

= &nb= sp; CONTRIBUTION). = &nb= sp; Recent

VERSION 90= -1 (JUNE 1990) *UPDATED BA= SED ON USER COMMENTS Recent

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

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

= &nb= sp; ROUTINE = &nb= sp; Recent

VERSION 91= -1 (JULY 1991) *NEW UNIFORM TREATMENT OF ALL RESONANCE Recent

= = &nb= sp; FORMALISMS (SEE, COMMENTS BELOW) &nb= sp; Recent

= &nb= sp; *NEW REICH-MOORE ALGORITHM = Recent

= &nb= sp; *MORE EXTENSIVE ERROR CHECKING AND Recent

= &nb= sp; = ERROR MESSAGE EXPLANATIONS = Recent

VERSION 92= -1 (JANUARY 1992)*MAJOR RESTRUCTING TO IMPROVE ACCURACY Recent

= &nb= sp; AND COMPUTER INDEPENDENCE. = Recent

= &nb= sp; *INCREASED ENERGY POIN= T PAGE SIZE FROM Recent

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

= &nb= sp; *NO MORE THAN 2 ENERGY POINTS WHERE Recent

= &nb= sp; CROSS SECTION IS ZERO AT BEGINNING Recent

= &nb= sp; OF A SECTION FOR EACH REACTION,E.G., Recent

= &nb= sp; THRESHOLD FISSION. = Recent

= &nb= sp; *PROCESS ONLY A PORTION OF RESONANCE Recent

= &nb= sp; REGION - SEE EXPLANATION BELOW Recent

= &nb= sp; *ALL ENERGIES INTERNALLY ROUNDED PRIOR Recent

= &nb= sp; TO CALCULATIONS. = = Recent

= &nb= sp; *COMPLETELY CONSISTENT I/O AND ROUNDING Recent

= &nb= sp; ROUTINES - TO MINIMIZE COMPUTER Recent

= &nb= sp; DEPENDENCE. = &nb= sp; Recent

VERSION 93= -1 (MARCH 1993) *UPDATED REICH-M= OORE TREATMENT TO USE Recent=

= &nb= sp; L DEPENDENT SCATTERING RADIUS (APL) Recent

= &nb= sp; RATHER THAN SCATTERING RADIUS (AP) Recent

= &nb= sp; (SEE, ENDF/B-VI FORMATS AND = Recent

= &nb= sp; = PROCEDURES MANUAL, PAGE 2.6) = Recent

= &nb= sp; *INCREASED PAGE SIZE FROM 4008 TO Recent

= = &nb= sp; 20040 DATA POINTS. = &nb= sp; Recent

= &nb= sp; *INCREASED MAXIMUM NUMBER OF RESONANCES Recent

= &nb= sp; FROM 4008 TO 20040. = Recent

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

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

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

= &nb= sp; HAS = BEEN CHANGED). = Recent

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

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

VERSION 94= -2 (AUGUST 1994) *CORRECTED ADDJ FOR ENERGY DEPENDENT Recent

= &nb= sp; (TABULATED) SCATTERING RADIUS CASE. Recent

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

= &nb= sp; *IMPROVED COMPUTER INDEPENDENCE Recent

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

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

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

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

= &nb= sp; *ALWAYS INCLUDE THERMAL VALUE = Recent

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

VERSION 97= -1 (APRIL 1997) *OPTIONAL = MAKE NEGATIVE CROSS = Recent

= &nb= sp; = SECTION =3D 0 FOR OUTPUT = Recent

= &nb= sp; *INCREASED PAGE SIZE FROM 20040 TO Recent

= &nb= sp; 120000 DATA POINTS. = Recent

= &nb= sp; *INCREASED MAXIMUM NUMBER OF RESONANCES Recent

= &nb= sp; FROM 20040 TO 120000. = Recent

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

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

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

= = VERSION BASED ON RECENT FORMAT CHANGE Recent

= &nb= sp; *UPDATED CONSTANTS BASED ON CSEWG Recent

= &nb= sp; = SUBCOMMITTEE RECOMMENDATIONS = Recent

= &nb= sp; *GENE= RAL IMPROVEMENTS BASED ON Recent

= &nb= sp; = USER FEEDBACK = &nb= sp; Recent

VERSION 99= -2 (JUNE 1999) *IMPLEMENTED NEW REICH-MOORE FORMALISM Recent

= &nb= sp; = TO ALLOW DEFINITION OF (L,J,S) FOR Recent

= &nb= sp; = EACH SEQUENCE. = &nb= sp; Recent

= &nb= sp; *ASSUME ENDF/B-VI, NOT V, IF MISSING Recent

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

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

= &nb= sp; = USER FEEDBACK = &nb= sp; Recent

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

= (SEPT. 2002) *OU= TPUT RESONANCE WITH 9 DIGITS Recent

= &nb= sp; *TO BE C AND C++ COMPATIBLE OUTPUT Recent

VERS. 2004= -1 (JAN. 2004) *ADDED INCLUDE 'recent.h' Recent

= &nb= sp; *MADE ENDF/B-VII READY = Recent

= &nb= sp; *UPDATED FOR NEW REICH-MOORE LRF=3D7 Recent

= &nb= sp; = PARAMETERS WITH COMPETITION = Recent

= &nb= sp; *ADDED COULOMB PENETRATION FACTORS FOR Recent

= &nb= sp; = LRF=3D7 COMPETITIVE CHANNELS. = Recent

= &nb= sp; *EXTENDED DEFINITIONS OF PENETRATION Recent

= &nb= sp; FACTOR, LEVEL SHIFT FACTOR, AND Recent

= &nb= sp; = POTENTIAL SCATTERING PHASE SHIFT Recent

= &nb= sp; = ABOVE L =3D 5 TO INFINITY. = Recent

= = *ADDED QUICK CALCULATION - IF THE Recent

= &nb= sp; = INPUT ALLOWABLE ERROR IS 1.0 OR MORE Recent

= &nb= sp; = (100 % OR MORE) THERE IS NO ITERATION Recent

= &nb= sp; = TO CONVERGENCE - CROSS SECTION ARE Recent

= &nb= sp; = QUICKLY CALCULATED ONLY AT A FIXED Recent

= &nb= sp; = SET OF ENERGY POINTS, BASED ON THE Recent

= &nb= sp; = ENERGY AND WIDTH OF ALL RESONANCES. Recent

= &nb= sp; = THIS CAN BE USED TO QUICKLY "SEE" Recent

= &nb= sp; = NEW EVALUATIONS THAT MAY CONTAIN Recent

= &nb= sp; = ERRORS, THAT WOULD OTHERWISE CAUSE Recent

= &nb= sp; = THIS CODE TO RUN FOR AN EXCESSIVELY Recent

= &nb= sp; = LONG TIME. = &nb= sp; Recent

VERS. 2005= -1 (JUNE 2005) *ADDED ENERGY DEPENDENT SCATTERING Recent

= &nb= sp; = RADIUS FOR ALL RESONANCE TYPES Recent

= &nb= sp; = (EARLIER ONLY BREIT-WIGNER ALLOWED). Recent

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

= &nb= sp; *DECOUPLED PAGE SIZE FROM MAX. # OF Recent

= &nb= sp; = RESONANCES. = &nb= sp; Recent

= &nb= sp; *INCREASED PAGE SIZE FROM 120,000 TO Recent

= &nb= sp; = 750,000 DATA POINTS. = Recent

= &nb= sp; *KEPT MAX. # OF RESONANCE AT 120,000. Recent

= &nb= sp; *CORRECTED ALL BACKGROUND =3D 0 CASE Recent

= &nb= sp; = &nb= sp; = Re= cent

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

------------------------------------ = &nb= sp; Recent

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

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

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

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

EUROPE = &nb= sp; = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

ORIGINALLY WRITTEN BY &n= bsp; = &nb= sp; = Recent

------------------------------------ = &nb= sp; Recent

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

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

<= /p>

LAWRENCE LIVERMORE NATIONAL LABORATORY = &nb= sp; Recent

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

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

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

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

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

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

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

= &nb= sp; = &nb= sp; = &nb= sp; Recent

Acknowledg= ement (Version 2004-1) = &nb= sp; = Recent

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Recent

The author thanks Nancy Larson, ORNL, for providing her SAMRML Recent

code for compari= son to RECENT output for Reich-Moore evaluations,= Recent

in particu= lar to verify results for the new LFR=3D7 evaluations. I Recent

also thank= her for providing guidance to help me understand and Recent

implement = this new teatment for Reich-Moore parameters. = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

ACKNOWLEDG= EMENT (VERSION 92-1) = &nb= sp; = Recent

=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Recent

THE AUTHOR THANKS SOL PEARLSTEIN (BROOKHAVEN NATIONAL LAB) FOR Recent

SIGNIFICAN= TLY CONTRIBUTING TOWARD IMPROVING THE ACCURACY AND Recent

COMPUTER INDEPENDENCE OF THIS CODE - THANKS, SOL = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

AUTHORS MESSAGE = = &nb= sp; Recent

THE REPORT DESCRIBED ABOVE IS THE LATEST PUBLISHED DOCUMENTATION Recent

FOR THIS PROGRAM. HOWEVER, THE COMMENTS BELOW SHOULD BE CONSIDERED Recent

THE LATEST DOCUMENTATION INCLUDING ALL RECENT IMPROVEMENTS. PLEASE Recent

READ ALL OF THESE COMMENTS BEFORE IMPLEMENTATION, PARTICULARLY Recent

THE COMMEN= TS CONCERNING MACHINE DEPENDENT CODING. = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

AT THE PRE= SENT TIME WE ARE ATTEMPTING TO DEVELOP A SET OF COMPUTER Recent

INDEPENDENT PROGRAMS THAT CAN EASILY BE IMPLEMENTED ON ANY ONE Recent

OF A WIDE VARIETY OF COMPUTERS. IN ORDER TO ASSIST IN THIS PROJECT Recent

IT WOULD BE APPECIATED IF YOU WOULD NOTIFY THE AUTHOR OF ANY Recent

COMPILER DIAGNOSTICS, OPERATING PROBLEMS OR SUGGESTIONS ON HOW TO Recent

IMPROVE TH= IS PROGRAM. HOPEFULLY, IN THIS WAY FUTURE VERSIONS OF Recent

THIS PROGR= AM WILL BE COMPLETELY COMPATIBLE FOR USE ON YOUR Recent

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

= &nb= sp; = &nb= sp; = Recent

PURPOSE = &nb= sp; = &nb= sp; = Recent

THIS PROGR= AM IS DESIGNED TO RECONSTRUCT THE RESONANCE CONTRIBUTION Recent

TO THE CRO= SS SECTION IN LINEARLY INTERPOLABLE FORM, ADD IN ANY Recent

LINEARLY INTERPOLABLE BACKGROUND CROSS SECTION AND OUTPUT THE Recent

RESULT IN = THE ENDF/B FORMAT. THE CROSS SECTIONS OUTPUT BY THIS Recent

PROGRAM WI= LL BE LINEARLY INTERPOLABLE OVER THE ENTIRE ENERGY RANGE Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

THE RESONA= NCE CONTRIBUTION IS CALCULATED FOR TOTAL (MT=3D1), Recent

ELASTIC (M= T=3D2), CAPTURE (MT=3D102) AND FISSION (MT=3D18), ADDED Recent

TO THE BACKGROUND (IF ANY) AND OUTPUT. IN ADDITION, IF THERE Recent

IS A FIRST CHANCE FISSION (MT=3D19) BACKGROUND PRESENT THE RESONANCE Recent

CONTRIBUTI= ON OF FISSION WILL BE ADDED TO THE BACKGROUND AND Recent

OUTPUT. IF= THERE IS NO FIRST CHANCE FISSION (MT=3D19) BACKGROUND Recent

PRESENT THE PROGRAM WILL NOT OUTPUT MT=3D19. = = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

IN THE FOL= LOWING FOR SIMPLICITY THE ENDF/B TERMINOLOGY--ENDF/B Recent

TAPE--WILL= BE USED. IN FACT THE ACTUAL MEDIUM MAY BE TAPE, CARDS, Recent

DISK OR ANY OTHER MEDIUM. = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

PROCESSING= DATA IN THE ENDF/B-VI FORMAT = &nb= sp; Recent

IT HAS NOW= BEEN CONFIRMED (PRIVATE COMMUNICATION, CHARLES DUNFORD, Recent

APRIL, 199= 1) THAT THE PROPER PROCEDURE TO FOLLOW WHEN THERE ARE Recent

MISSING OR DUPLICATE J VALUES IS TO IN ALL CASES ADD A SEQUENCE Recent

WITH NO RESONANCES TO ACCOUNT FOR THE CONTRIBUTION OF THE SEQUENCE Recent

TO THE POT= ENTIAL SCATTERING CROSS SECTION. = &nb= sp; Recent

= = &nb= sp; = &nb= sp; Recen= t

THIS IS THE PROCEDURE WHICH WAS FOLLOWED BY ALL VERSIONS OF RECENT Recent

SINCE 86-3= AND WILL CONTINUE TO BE THE PROCEDURE. = Recent

= &nb= sp; = &nb= sp; = &nb= sp;Recent

INPUT ENDF= /B FORMAT AND CONVENTIONS = &nb= sp; Recent

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

------------- = &nb= sp; = &nb= sp; Recent

THIS PROGR= AM ONLY USES THE ENDF/B BCD OR LINE IMAGE FORMAT (AS Recent

OPPOSED TO= THE BINARY FORMAT) AND CAN HANDLE DATA IN ANY VERSION Recent

OF THE END= F/B FORMAT (I.E., ENDF/B-I, II,III, IV, V OR VI FORMAT). Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

IT IS ASSU= MED THAT THE DATA IS CORRECTLY CODED IN THE ENDF/B Recent

FORMAT AND= NO ERROR CHECKING IS PERFORMED. IN PARTICULAR IT IS Recent

ASSUMED TH= AT THE MAT, MF AND MT ON EACH LINE IS CORRECT. SEQUENCE Recent

NUMBERS (C= OLUMNS 76-80) ARE IGNORED ON INPUT, BUT WILL BE Recen= t

CORRECTLY = OUTPUT ON ALL CARDS. THE FORMAT OF SECTION MF=3D1, MT=3D451 Recent

AND ALL SE= CTIONS OF MF=3D2 AND 3 MUST BE CORRECT. THE PROGRAM COPIES Recent

ALL OTHER SECTION OF DATA AS HOLLERITH AND AS SUCH IS INSENSITIVE Recent

TO THE CORRECTNESS OR INCORRECTNESS OF ALL OTHER SECTIONS. Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

ENDF/B FOR= MAT VERSION = &nb= sp; = Recent

--------------------- = &nb= sp; = Recent

THE FORMAT= S AND CONVENTIONS FOR READING AND INTERPRETING THE DATA Recent

VARIES FRO= M ONE VERSION OF ENDF/B TO THE NEXT. HOWEVER, IF THE Recent

HOLLERITH SECTION (MF=3D1, MT=3D451) IS PRESENT IT IS POSSIBLE FOR Recent

THIS PROGR= AM TO DISTINGUISH BETWEEN DATA IN THE ENDF/B-IV, V AND Recent

VI FORMATS= AND TO USE THE APPROPRIATE CONVENTIONS FOR EACH Recent

ENDF/B VER= SION (SEE, SUBROUTINE FILE1 FOR A DESCRIPTION OF HOW Recent

THIS IS DO= NE). IF THE HOLLERITH SECTION IS NOT PRESENT THE Recent

PROGRAM WI= LL ASSUME THE DATA IS IN THE ENDF/B-VI FORMAT AND USE Recent

ALL CONVEN= TIONS APPROPRIATE TO ENDF/B-V. USERS ARE ENCOURAGED TO Recent

INSURE THA= T THE HOLLERITH SECTION (MF=3D1, MT=3D451) IS PRESENT IN Recent

ALL EVALUATIONS. = &nb= sp; = &nb= sp; Recent

= &nb= sp; = = &nb= sp; Recent

INPUT OF ENERGIES = &nb= sp; = &nb= sp; Recent

----------------- = &nb= sp; = &nb= sp; Recent

ALL ENERGI= ES ARE READ IN DOUBLE PRECISION (BY SPECIAL FORTRAN I/O Recent

ROUTINES) = AND ARE TREATED IN DOUBLE PRECISION IN ALL CALCULATIONS. Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

OUTPUT END= F/B FORMAT AND CONVENTIONS = &nb= sp; = Recent

CONTENTS OF OUTPUT = &nb= sp; = &nb= sp; Recent

------------------ = &nb= sp; = &nb= sp; Recent

ENTIRE EVALUATIONS ARE OUTPUT, NOT JUST THE RECONSTRUCTED FILE Recent

3 CROSS SECTIONS, E.G. ANGULAR AND ENERGY DISTRIBUTIONS ARE Recent

ALSO INCLUDED. = &nb= sp; = &nb= sp; Recent

= &nb= sp; = &nb= sp; = Recent

DOCUMENTATION = &nb= sp; = &nb= sp; Recent

------------- = &nb= sp; = &nb= sp; Recent

THE FACT T= HAT THIS PROGRAM HAS OPERATED ON THE DATA IS DOCUMENTED Recent

BY THE ADD= ITION OF COMMENT CARDS AT THE END OF EACH HOLLERITH Recent

SECTION IN= THE FORM = &nb= sp; = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

***************** RECENT (VERSION 2007-1) *************** = Recent

RESONANCE CONTRIBUTION RECONSTRUCTED TO WITHIN = 0.100 PER-CENT Recent

COMBINED D= ATA NOT THINNED (ALL RESONANCE + BACKGROUND DATA KEPT) Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

THE ORDER = OF ALL SIMILAR COMMENTS (FROM LINEAR, SIGMA1 AND GROUPY) Recent

REPRESENTS= A COMPLETE HISTORY OF ALL OPERATIONS PERFORMED ON Recent

THE DATA, INCLUDING WHICH VERSION OF EACH PROGRAM WAS USED. Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

THESE COMM= ENT CARDS ARE ONLY ADDED TO EXISTING HOLLERITH SECTIONS, Recent

I.E., THIS PROGRAM WILL NOT CREATE A HOLLERITH SECTION. THE FORMAT Recent

OF THE HOL= LERITH SECTION IN ENDF/B-V DIFFERS FROM THE THAT OF Recent

EARLIER VE= RSIONS OF ENDF/B. BY READING AN EXISTING MF=3D1, MT=3D451 Recent

IT IS POSS= IBLE FOR THIS PROGRAM TO DETERMINE WHICH VERSION OF Recent

THE ENDF/B FORMAT THE DATA IS IN. WITHOUT HAVING A SECTION OF Recent

MF=3D1, MT= =3D451 PRESENT IT IS IMPOSSIBLE FOR THIS PROGRAM TO = Recent

DETERMINE = WHICH VERSION OF THE ENDF/B FORMAT THE DATA IS IN, AND Recent

AS SUCH IT= IS IMPOSSIBLE FOR THE PROGRAM TO DETERMINE WHAT FORMAT Recent

SHOULD BE = USED TO CREATE A HOLLERITH SECTION. = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

REACTION INDEX = &nb= sp; = &nb= sp; Recent

-------------- = &nb= sp; = &nb= sp; Recent

THIS PROGR= AM DOES NOT USE THE REACTION INDEX WHICH IS GIVEN IN Recent

SECTION MF= =3D1, MT=3D451 OF EACH EVALUATION. = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

THIS PROGR= AM DOES NOT UPDATE THE REACTION INDEX IN MF=3D1, MT=3D451. Recent

THIS CONVE= NTION HAS BEEN ADOPTED BECAUSE MOST USERS DO NOT Recent

REQUIRE A CORRECT REACTION INDEX FOR THEIR APPLICATIONS AND IT WAS Recent

NOT CONSID= ERED WORTHWHILE TO INCLUDE THE OVERHEAD OF CONSTRUCTING Recent

A CORRECT REACTION INDEX IN THIS PROGRAM. HOWEVER, IF YOU REQUIRE Recent

A REACTION= INDEX FOR YOUR APPLICATIONS, AFTER RUNNING THIS PROGRAM Recent

YOU MAY USE PROGRAM DICTIN TO CREATE A CORRECT REACTION INDEX. Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

OUTPUT FOR= MAT OF ENERGIES = &nb= sp; = Recent

------------------------- = = &nb= sp; Recent

IN THIS VE= RSION OF RECENT ALL FILE 3 ENERGIES WILL BE OUTPUT IN Recent

F (INSTEAD= OF E) FORMAT IN ORDER TO ALLOW ENERGIES TO BE WRITTEN Recent

WITH UP TO= 9 DIGITS OF ACCURACY. IN PREVIOUS VERSIONS THIS WAS AN Recent

OUTPUT OPT= ION. HOWEVER USE OF THIS OPTION TO COMPARE THE RESULTS Recent

OF ENERGIES WRITTEN IN THE NORMAL ENDF/B CONVENTION OF 6 DIGITS Recent

TO THE 9 D= IGIT OUTPUT FROM THIS PROGRAM DEMONSTRATED THAT FAILURE Recent

TO USE THE= 9 DIGIT OUTPUT CAN LEAD TO LARGE ERRORS IN THE DATA Recent

JUST DUE TO TRANSLATION OF ENERGIES FROM THEIR INTERNAL (BINARY) Recent

REPRESENTA= TION TO THE ENDF/B FORMAT. = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

ACCURACY OF ENERGY = &nb= sp; = &nb= sp; Recent

------------------ = &nb= sp; = &nb= sp; Recent

IN ORDER TO ALLOW ENERGIES TO BE ACCURATELY OUTPUT TO 9 DIGITS Recent

ON SHORT W= ORD LENGTH COMPUTERS (E.G. IBM) ALL ENERGIES AND Recent

ENERGY DEP= ENDENT TERMS ARE READ AND TREATED IN DOUBLE PRECISION. Recent

= = &nb= sp; = &nb= sp; Recent

OUTPUT OF RESONANCE PARAMETERS = &nb= sp; = Recent

------------------------------ = &nb= sp; = Recent

A SPECIAL CONVENTION HAS BEEN INTRODUCED REGARDING RESONANCE Recent

PARAMETERS= . IN ORDER TO ALLOW THE USER TO DOPPLER BROADEN AND/OR Recent

SELF-SHIELD CROSS SECTIONS THE RESONANCE PARAMETERS ARE ALSO Recent

INCLUDED I= N THE OUTPUT WITH THE EVALUATION. IN ORDER TO AVOID THE Recent

POSSIBILIT= Y OF ADDING THE RESONANCE CONTRIBUTION A SECOND TIME Recent

TWO CONVEN= TIONS HAVE BEEN ADOPTED TO INDICATE THAT THE RESONANCE Recent

CONTRIBUTI= ON HAS ALREADY BEEN ADDED TO THE FILE 3 CROSS SECTIONS, Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

(1) WHEN T= HE DATA IS PROCESSED BY THIS PROGRAM LRP (IN MF=3D1, Recent

MT=3D451) = IS SET EQUAL TO 2. THIS IS A CONVENTION WHICH HAS BEEN Recent

ADOPTED AS= A STANDARD CONVENTION IN ENDF/B-VI, BUT IS ONLY TO BE Recent

USED FOR PROCESSED DATA, AS OPPOSED TO THE ORIGINAL EVALUATIONS. Recent

IN EVALUAT= IONS WHICH CONTAIN MF=3D1, MT=3D451 LRP CAN BE USED TO Recent

DETERMINE = IF THE MATERIAL HAS BEEN PROCESSED. = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

(2) THE LR= U FLAG IN EACH SECTION OF FILE 2 DATA IS CHANGED TO Recent

LRU=3DLRU+= 3. FOR EXAMPLE WHEN READING AN ENDF/B EVALUATION LRU=3D0 Recent

(NO RESONA= NCES), =3D1 (RESOLVED) OR =3D2 (UNRESOLVED) INDICATES THAT Recent

THE DATA I= S IN THE ORIGINAL ENDF/B FORM. LRU=3D3 (NO RESONANCES), Recent

=3D4 (RESO= LVED) OR =3D5 (UNRESOLVED) INDICATES THAT THE RESONANCE Recent

CONTRIBUTI= ON HAS ALREADY BEEN ADDED TO THE FILE 3 DATA. THIS Recent

SECOND CONVENTION HAS BEEN ADOPTED AS INSURANCE THAT THE RESONANCE Recent

CONTRIBUTI= ON WILL NOT BE ADDED TWICE, EVEN FOR EVALUATIONS WHICH Recent

DO NOT CON= TAIN MF=3D1, MT=3D451 (EVALUATIONS WHICH CONTAIN MF=3D1, Recent

MT=3D451 A= RE COVERED BY CONVENTION (1), DESCRIBED ABOVE). = Recent

= &nb= sp; = &nb= sp; = &nb= sp;Recent

UNIFORM TREATMENT OF RESONANCE FORMALISMS = &nb= sp; Recent

NORMALIZATION = = &nb= sp; = Recent

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D = &nb= sp; = &nb= sp; Recent

ALL OF THE RESONANCE FORMALISMS INCLUDE A FACTOR OF, = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

PI*(FRACTI= ONAL ABUNDANCE)/(K**2) = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

THIS FACTO= R HAS BEEN REMOVED FROM THE CALCULATION OF EACH TYPE Recent

OF RESONAN= CE FORMALISM AND IS APPLIED AS A FINAL NORMALIZATION Recent

AFTER THE CALCULATION, ONLY ONE PLACE IN THIS PROGRAM. = Recent

= &nb= sp; = &nb= sp; = Recen= t

FOR SIMPLI= CITY THIS TERM IS NOT INCLUDED IN THE FOLLOWING = Recent

DERIVATION= S - IN ALL CASES THE ACTUAL CROSS SECTION IS A PRODUCT Recent

OF THE ABO= VE FACTOR TIMES THE RESULTS PRESENTED BELOW. = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

SIMILARITIES = &nb= sp; = &nb= sp; Recent

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D = &nb= sp; = &nb= sp; Recent

FOR THE RESOLVED RESONANCE REGION, = EXCEPT FOR SINGLE LEVEL BREIT Recent

WIGNER, PARAMETERS ALL OF THE FORMALISMS DEFINE THE CROSS SECTIONS Recent

IN AN EQUI= VALENT FORM, = &nb= sp; = Recent

= = &nb= sp; = &nb= sp; = Recent

TOTAL =3D 2*GJ*REAL(1 - U) = &nb= sp; = Recent

= =3D 2*GJ*(1 - REAL(U)) = &nb= sp; = Recent

ELASTIC =3D GJ*(1 - U)**2 = &nb= sp; = Recent

= =3D GJ*((1 - 2*R= EAL(U)) + (REAL(U)**2 + IM(U)**2)) Recent

= =3D 2*GJ*(1 - REAL(U)) - GJ*(1 - (REAL(U)**2 + IM(U)**2)) Recent

= &nb= sp; = = &nb= sp; = Recent

SINCE THE = FIRST TERM IS THE TOTAL, THE SECOND TERM MUST BE Recent

ABSORPTION= . SO WE FIND, = &nb= sp; = Recent

= &nb= sp; = = &nb= sp; Recent

ABSORPTION= =3D GJ*(1 - (REAL(U)**2 + IM(U)**2)) = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

IN ALL CAS= ES U IS DEFINED IN THE FORM, = = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

U =3D EXP(-I*2*PS)*((1-X) - I*Y) = &nb= sp; Recent

= &nb= sp; = &nb= sp; = = Recent

WHERE (X) = AND (Y) ARE RELATED TO THE SYMMETRIC AND ANTI-SYMMETRIC Recent

CONTRIBUTI= ONS OF THE RESONANCES, RESPECTIVELY. ONLY THE DEFINITION Recent

OF (X) AND= (Y) WILL BE DIFFERENT FOR EACH RESONANCE FORMALISM. Recent

BELOW WE W= ILL SHOW THAT WHAT MIGHT APPEAR TO BE A STRANGE CHOICE Recent

OF DEFINIT= ION OF THE SIGN OF (X) AND(Y) HAS BEEN SELECTED SO THAT Recent

FOR BREIT-= WIGNER PARAMETERS (X) AND (Y) CORRESPOND EXACTLY TO THE Recent

SYMMETRIC AND ANTI-SYMM= ETRIC CONTRIBUTION OF THE RESONANCES. Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

U =3D (COS(2*PS) - I*SIN(2*PS))*((1-X) - I*Y) = Recent

= =3D ((1-X)*COS(2*PS) - Y*SIN(2*PS)) = &nb= sp; Recent

= =3D-I*((1-X)*SIN(2*PS) + Y*COS(2*PS)) = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

REAL(U) =3D ((1-X)*COS(2*PS) - Y*SIN(2*PS)= ) = &nb= sp; Recent

IM(U) =3D-((1-X)*SIN(2*PS) + Y*COS(2*PS)) = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

R(U)**2 =3D((1-X)*COS(2*PS))**2 + (Y*SIN(2*PS))**2 = Recent

= -2*(1-X)*Y*COS(2*PS)*SIN(2*PS) = &nb= sp; Recent

I(U)**2 =3D((1-X)*SIN(2*PS))**2 + (Y*COS(2*PS))**2 = Recent

= +2*(1-X)*Y*COS(2*PS)*SIN(2*PS) = &nb= sp; Recent

<= /p>

= &nb= sp; = &nb= sp; = &nb= sp; Recent

THE TERMS 2*(1-X)*Y*COS(2*PS)*SIN(2*PS) CANCEL AND UPON USING Recent

THE IDENTI= TY COS(2*PS)**2 + SIN(2*PS)**2 =3D 1, = &nb= sp;Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

SUM =3D (1-X)*= *2 + (Y)**2 = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = = Recent

WE NOW HAV= E ALL THE QUANTITIES THAT WE NEED TO DEFINE THE CROSS Recent

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

= &nb= sp; = &nb= sp; = &nb= sp; Recent

ELASTIC = &nb= sp; = &nb= sp; = Recent

=3D=3D=3D= =3D=3D=3D=3D = &nb= sp; = &nb= sp; = Recent

ELASTIC =3DGJ*(1 - 2*REAL(U) + (REAL(U)**2= + IM(U)**2)) = Recent

= =3DGJ*(1 - 2*((1-X)*COS(2*PS)-Y*SIN(2*PS))+(1-X)**2+(Y)**2) Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

THIS CAN BE WRITTEN AS A SUM OF 2 SQUARES, = &nb= sp; Recent

= = &nb= sp; = &nb= sp; = Recent

ELASTIC =3DGJ*(COS(2*PS) - (1-X))**2 + (SI= N(2*PS) + Y)**2) = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

= =3DGJ*((COS(2*PS))**2 - 2*(1-X)*COS(2*PS) + (1-X)**2) + Recent

= (SIN(2*PS))**2 + 2*Y*SIN(2*PS) + (Y)**2) = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

AGAIN USIN= G THE IDENTITY COS(2*PS)**2 + SIN(2*PS)**2 =3D 1, WE CAN Recent

SEE THAT T= HE DEFINITION AS THE SUM OF 2 SQUARES IS IDENTICAL TO Recent

THE PRECED= ING DEFINITION OF THE ELASTIC. = &nb= sp; Recent

= &nb= sp; = = &nb= sp; = Recent

ELASTIC =3DGJ*(COS(2*PS) - (1-X))**2 + (SI= N(2*PS) + Y)**2) = Recent

= =3DGJ*((COS(2*PS)-1) + X)**2 + (SIN(2*PS) + Y)**2) = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

USING THE IDENTITY (1 - COS(2*PS))) =3D 2*SIN(PS)**2, WE OBTAIN Recent

THE FINAL = FORM FOR THE ELASTIC, = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = = Recent

ELASTIC =3DGJ*(2*SIN(PS)**2 - X)**2 + (SIN(2*PS) + Y)**2) = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

ABSORPTION= = &nb= sp; = &nb= sp; Recent

=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D = &nb= sp; = &nb= sp; Recent

ABSORPTION= =3D GJ*(1 - (REAL(U)**2 + IM(U)**2)) = &nb= sp; Recent

= =3D GJ*(1 - ((1-X)**2 <= /span>+ (Y)**2) = ; &n= bsp; Recent

= =3D GJ*(1 - (1 - 2*X + (X)**2 + (Y)**2) = Recent

= =3D GJ*(2*X - (X)**2 + (Y)**2) = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

SINCE PHYS= ICALLY THE ABSORPTION CANNOT BE NEGATIVE WE CAN SEE Recent

THAT (X) M= UST BE POSITIVE AND 2*X MUST BE GREATER THAN = Recent

(X)**2 + (= Y)**2, FOR ALL OF THE FORMALISMS. = &nb= sp; Recent

= = &nb= sp; = &nb= sp; Recent

TOTAL = &nb= sp; = &nb= sp; = Recent

=3D=3D=3D= =3D=3D = &nb= sp; = &nb= sp; = Recent

IN THIS PR= OGRAM THE TOTAL CROSS SECTION IS ALWAYS DEFINED TO BE Recent

THE SUM OF= ITS PARTS - SO THE ABOVE DEFINITION IS NEVER EXPLICITLY Recent

USED. HOWE= VER, WE CAN LEARN SOMETHING BY EXAMINING THE DEFINITION, Recent

= &nb= sp; = = &nb= sp; = Recent

TOTAL =3D 2*GJ*REAL(1 - U) = &nb= sp; = Recent

= =3D 2*GJ*(1 - (((1-X)*COS(2*PS) - Y*SIN(2*PS))) = Recent

= =3D 2*GJ*((1 - COS(2*PS))*(1-X) - (1-X) + Y*SIN(2*PS)) Recent

= =3D 2*GJ*(2*SIN(PS)**2*(1-X) - (1-X) + Y*SIN(2*PS))= Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

= =3D 4*GJ*SIN(PS)**2 + = &nb= sp; = Recent

= 2*GJ*((X-1) - 2*X*SIN(PS)**2 + Y*SIN(2*PS)) = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

THE IMPORT= ANT POINT TO NOTE IS THAT THE DEFINITION OF THE TOTAL Recent

DOES NOT EXPLICITLY CONTAIN ANY DEPENDENCE ON X**2 AND Y**2 - Recent

THE LEVEL-= LEVEL INTERFERENCE TERMS. = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

THIS IMPLI= ES THAT IF A GIVEN SET OF RESONANCE PARAMETERS ARE USED Recent

WITH THIS DEFINITION THEY WILL PRODUCE EXACTLY THE SAME TOTAL Recent

CROSS SECT= ION - WHETHER WE CLAIM THE PARAMETERS HAVE BEEN = Recent

PRODUCED U= SING A SINGLE OR MULTI-LEVEL FIT. THIS RESULT COULD Recent

BE VERY MISLEADING, IF THIS RESULT FOR THE TOTAL IS IMPLIED TO Recent

MEAN THAT = ONE INTERPRETATION OR THE OTHER WILL NOT HAVE ANY Recent

EFFECT ON = THE INDIVIDUAL CROSS SECTIONS. = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

STARTING F= ROM EXACTLY THE SAME RESONANCE PARAMETERS, RELATIVE TO Recent

THE RESULTS OBTAINED USING THE SINGLE LEVEL FORMULA, MULTI-LEVEL Recent

RESULTS WI= LL TEND TO ALWAYS DECREASE THE ABSORPTION AND INCREASE Recent

THE ELASTI= C. THIS CAN BE IMMEDIATELY SEEN FROM OUR GENERAL Recent

MULTI-LEVEL DEFINITION OF ABSORPTION, = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

ABSORPTION =3DGJ*(2*X - ((X)**2 + (Y)**2)) = &nb= sp; Recent

= &nb= sp; = = &nb= sp; Recent

THE SINGLE= LEVEL ABSORPTION IS, = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

ABSORPTION =3DGJ*(2*X) = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

THE DIFFER= ENCE BETWEEN THE TWO IS -2*GJ*(X**2 + Y**2), SO THAT Recent

REGARDLESS= OF HOW WE DEFINE (X) AND (Y) THE INCLUSION OF THIS Recent

TERM WILL = ALWAYS DECREASE ABSORPTION. SINCE THE TOTAL CROSS Recent

SECTION IS= THE SAME IN BOTH CASE, THIS MEANS THAT THE ELASTIC Recent

HAS BEEN INCREASED BY THIS AMOUNT. = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

AGAIN, THE= SE RESULTS ARE BASED ON STARTING FROM EXACTLY THE SAME Recent

PARAMETERS= - IN ANY ACTUAL CASE THE PARAMETERS BASED ON A SINGLE Recent

OR MULTI-LEVEL FIT WILL BE QU= ITE DIFFERENT - THE POINT THAT WE Recent

WANT TO ST= RESS HERE IS THAT YOU SHOULD NEVER USE PARAMETERS Recent

WHICH HAVE= BEEN DEFINED BY A FIT USING ONE FORMALISM - IN THE Recent

EQUATIONS = FOR A DIFFERENT FORMALISM - AND ASSUME THAT THE RESULTS Recent

WILL BE CONSISTENT - AND NEVER USE THE TOTAL CROSS SECTION TO Recent

SEE WHETHE= R OR NOT A SET OF SINGLE LEVEL PARAMETERS CAN BE USED Recent

WITH A MULTI-LEVEL FORMALISM. = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

POTENTIAL = CROSS SECTION = &nb= sp; = Recent

=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; = Recent

FAR FROM RESONANCES (X) AND (Y) WILL BE SMALL AND THE ELASTIC Recent

CROSS SECT= ION REDUCES TO, = &nb= sp; = Recent

= &nb= sp; = = &nb= sp; Recent

ELASTIC =3DGJ*(2*SIN(PS)**2)**2 &= nbsp; + (SIN(2*PS))**2 = Recent

= =3DGJ*4*(SIN(PS)**4 + SIN(2*PS)**2 = Recent

= &nb= sp; = &nb= sp; = Re= cent

USING THE IDENTITY SIN(2*PS) =3D 2*SIN(PS)*COS(PS) = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

= =3D4*GJ*(SIN(PS)**4 + (SIN(PS)*COS(PS))**2) = Recent

= =3D4*GJ*SIN(PS)**2*(SIN(PS)**2 + COS(PS)**2) = Recent

= =3D4*GJ*SIN(PS)**2 = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

WHICH IS T= HE POTENTIAL CROSS SECTION. NOTE THAT THIS RESULT IS Recent

INDEPENDEN= T OF THE FORMALISM USED, AS IT MUST PHYSICALLY BE, Recent

AND AS SUCH ALTHOUGH AS YET WE HAVE NOT DEFINED IT, WE CAN Recent

NOW SEE THAT IN A= LL CASES (PS) MUST BE THE PHASE SHIFT AND FOR Recent

CONSISTENC= Y IT MUST BE DEFINED USING EXACTLY THE SAME DEFINITION Recent

IN ALL CASES. = &nb= sp; = &nb= sp; Recent

= = &nb= sp; = &nb= sp; = Recent

IN ADDITION SINCE PHYSICALLY FOR EACH L VALUE WE EXPECT TO OBTAIN Recent

A POTENTIAL CROSS SECTION, = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

4*(2*L+1)*SIN(PS)**2 = &nb= sp; = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

OBVIOUSLY = FOR CONSISTENCY WE MUST HAVE, = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

(2*L+1) = =3D (SUM OVER J) GJ = &nb= sp; = Recent

= &nb= sp; = = &nb= sp; Recen= t

ONLY IN TH= IS CASE WILL THE RESULTS BE CONSISTENT - THIS POINT WILL Recent

BE DISCUSS= ED IN DETAIL BELOW. = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp;Recent

WHAT ARE T= HIS TERMS (X) AND (Y) = &nb= sp; = Recent

=3D=3D=3D=3D=3D=3D=3D=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; = Recent

(X) AND (Y= ) CAN BE EASILY IDENTIFIED BY CONSIDERING THE SINGLE Recent

AND MULTI-= LEVEL BREIT WIGNER FORMALISMS. IN THESE CASES WE WILL Recent

FIND THAT,= = &nb= sp; = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

X =3D GAM(N)*GAM(T)/2/DEN = &nb= sp; = Recent

Y =3D GAM(N)*(E-ER)/DEN = &nb= sp; = Recent

DEN =3D ((E-ER= )**2 + (GAM(T)/2)**2) = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

EXTREME CA= RE HAS TO BE USED TO PROPERLY DEFINE (Y) SUCH THAT IT Recent

IS NEGATIV= E FOR E LESS THAN ER AND POSITIVE FOR E GREATER THAN Recent

ER. I WILL MERELY MENTION THAT THE EQUATIONS FOR ALL FORMALISMS Recent

IN ENDF-10= 2 DO NOT CONSISTENTLY USE (E - ER) - IN SOME CASES Recent

THIS IS WR= ITTEN AS (ER - E), WHICH CAN LEAD TO AN INCORRECT Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

THE INTERF= ERENCE TERMS CAN BE WRITTEN IN TERMS OF, = Recent

1) LEVEL-S= ELF INTERFERENCE =3D THE CONTRIBU= TION OF EACH LEVEL &n= bsp; Recent

= &nb= sp; = INTERFERRING WITH ITSELF = Recent

2) LEVEL-L= EVEL INTERFERENCE =3D THE CONTRIBUTION OF EACH LEVEL Recent

= &nb= sp; = INTERFERRRING WITH ALL OTHER LEVELS= Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

WE WILL RE= FER TO THESE TWO AS (L-S) AND (L-L), = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

X**2 =3D (GAM(N)*(GAM(T)/2)**2/(DEN)**2 + (L-L) = Recent

= =3D (GAM(N)**2*((GAM(T)/2)**2)/(DEN)**2 + (L-L) = Recent

Y**2 =3D (GAM(N))**2*((E-ER))**2/(DEN)**2 + (L-L) = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

X**2+Y**2= =3D GAM(N)**2*DEN/(DEN)**2 =3D GAM(N)**2/DEN + (L-L) = Recent

= &nb= sp; = &nb= sp; = Recent

TO SEE THE EFFECT OF INCLUDING MULTI-LEVEL INTERFERENCE WE CAN Recent

CONSIDER O= UR GENERAL EXPRESSION FOR ABSORPTION, = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

ABSORPTION =3DGJ*(2*X - ((X)**2 + (Y)**2)) = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

AND NOTE T= HAT FOR BOTH SINGLE AND MULTI-LEVEL BREIT WIGNER THE Recent

ENDF-102 S= AYS TO TREAT ABSORPTION IN A SINGLE LEVEL APPROXIMATION Recent

I.E., IGNO= RE LEVEL-LEVEL INTERFERENCE. IF ALL INTERFERENCE IS Recent

IGNORED TH= IS IS EQUIVALENT TO COMPLETELY IGNORING X**2 + Y**2 AND Recent

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

= &nb= sp; = &nb= sp; = &nb= sp; Recent

ABSORPTION =3DGJ*2*X = &nb= sp; = &nb= sp; Recent

= =3D2*GJ*GAM(N)*GAM(T)/DEN = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

WHICH IS INCORRECT - SINCE THIS SEEMS TO INDICATE EVERYTHING IS Recent

ABSORBED. = IN ORDER TO OBTAIN THE CORRECT EXPRESSION WE CANNOT Recent

COMPLETELY IGNORE INTERFERENCE - WE CAN IGNORE LEVEL-LEVEL Recent

INTERFEREN= CE, BUT WE MUST INCLUDE LEVEL-SELF INTERFERENCE, Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

X**2+Y**2= =3D GAM(N)**2/DEN = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

ABSORPTION =3DGJ*(2*X - ((X)**2 + (Y)**2)) = = Recent

= =3DGJ*GAM(N)*(GAM(T)-GAM(N))/DEN = &nb= sp; Recent

= =3DGJ*GAM(N)*GAM(A)/DEN = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = Recent

SUMMARY = &nb= sp; = &nb= sp; = Recent

=3D=3D=3D= =3D=3D=3D=3D = &nb= sp; = &nb= sp; = Recent

AN IMPORTA= NT POINT TO NOTE IS THE DEFINITION OF (X) AND (Y) Recent

WHICH IN A= LL CASES WILL CORRESPOND TO THE SYMMETRIC AND = Recent

ANTI-SYMME= TRIC CONTRIBUTION OF THE RESONANCES. IN PARTICULAR Recent

DEFINING (= U) IN TERMS OF (1-X) INSTEAD OF (X) IS EXTREMELY Recent

IMPORTANT.= NOTE, THAT THE DEFINITION OF THE ELASTIC AND = Recent

ABSORPTION= ONLY INVOLVE (X), NOT (1-X). FAR FROM RESONANCES Recent

(X) CAN BE EXTREMELY SMALL, THEREFORE (1-X) WILL BE VERY CLOSE Recent

TO (1). IF= THE CALCULATION PROCEEDS BY FIRST CALCULATING (1-X) Recent

AND THEN DEFINING (X) BY SUBTRACTING (1), EXTREME ROUND-OFF Recent

PROBLEMS C= AN RESULT. THESE PROBLEMS CAN BE AVOIDED BY IN ALL Recent

CASES DEFI= NING (X) DIRECTLY, WITHOUT ANY DIFFERENCES. = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

IN EACH FORMALISM THE DEFINITION OF (X) AND (Y) MAY BE DIFFERENT Recent

BUT ONCE W= E HAVE DEFINED (X) AND (Y) WE CAN IMMEDIATELY WRITE Recent

THE CROSS SECTIONS USING A UNIFORM DEFINITION, = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

ELASTIC =3DGJ*(2*SIN(PS)**2 - X)**2 + (SIN(2*PS) + Y)**2) = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

ABSORPTION =3D-GJ*(2*X + (X)**2 + (Y)**2) = &nb= sp; Recent

= &nb= sp; = &nb= sp; = Recent

AND DEFINE= THE TOTAL AS THE SUM OF THESE 2 PARTS. = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

RELATIONSH= IP TO SINGLE LEVEL = &nb= sp; Recent

=3D=3D=3D=3D=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; = Recent

HOW DO THE SINGLE AND MULTI-LEVEL FORMALISMS COMPARE. TO SEE, Recent

STARTING F= ROM OUR GENERAL DEFINITION OF THE ELASTIC IN THE FORM, Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

ELASTIC =3DGJ*(2*SIN(PS)**2 + X)**2 + (SIN(2*PS) + Y)**2) = Recent

= =3DGJ*(4*SIN(PS)**4 - 4*X*SIN(PS)**2 + X**2 = Recent

= + SIN(2*PS)**2 + 2*Y*SIN(2*PS) + Y**2) &= nbsp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

= =3D4*GJ*SIN(PS)**2 + = &nb= sp; = Recent

= GJ*(X**2 + Y**2 = &nb= sp; = Recent

= -4*X*SIN(PS)**2 = &nb= sp; = Recent

= +2*Y*SIN(2*PS)) = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

AND OUR SP= ECIFIC DEFINITIONS OF (X) AND (Y) FOR MULTI-LEVEL BREIT- Recent

WIGNER PARAMETERS, = &nb= sp; = &nb= sp; Recent

= &nb= sp; = &nb= sp; = Recent

X =3D GAM(N)*GAM(T)/2/DEN = &nb= sp; = Recent

Y =3D GAM(N)*(E-ER)/DEN = &nb= sp; = Recent

DEN =3D ((E-ER= )**2 + (GAM(T)/2)**2) = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

X**2+Y**2= =3D GAM(N)**2/DEN + (L-L) = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = Re= cent

WE CAN REC= OGNIZE X**2 AND Y**2 AS THE INTERFERENCE - (L-S) + (L-L) Recent

TERMS IN T= HE MULTI-LEVEL FORMALISM. IN ORDER TO OBTAIN THE SINGLE Recent

LEVEL EQUA= TION WE CAN ASSUME THAT EACH LEVEL DOES NOT INTERFERE Recent

WITH ANY O= THER LEVEL - THEREFORE THE (L-L) CONTRIBUTION IS ZERO. Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

ELASTIC =3D4*GJ*SIN(PS)**2 + = &nb= sp; = Recent

= GJ*GAM(N)*(GAM(N) = &nb= sp; = Recent

= &nb= sp; -2*GAM(T)*SIN(PS)**2 = &nb= sp; Recent

= &nb= sp; +2*(E-ER)*SIN(2*PS))/DEN = Recent

= &nb= sp; = &nb= sp; = &nb= sp;Recent

WHICH IS T= HE FORM THAT IT APPEARS IN ENDF-102, EXCEPT FOR TWO Recent

TYPOGRAPHI= CAL ERRORS IN THE SECOND TERM, = &nb= sp; Recent

= = &nb= sp; = &nb= sp; = Recent

-2*GAM(T)*SIN(PS)**2 = &nb= sp; = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

WHICH IN E= NDF-102 IS WRITTEN, = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

-2*(GAM(T)-GAM(N))*SIN(2*PS)**2 = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = Recent

PROGRAM CONVENTIONS = &nb= sp; = &nb= sp; Recent

MINIMUM IN= PUT DATA = = &nb= sp; Recen= t

<= /p>

------------------ = &nb= sp; = &nb= sp; Recent

FOR EACH MATERIAL TO BE PROCESSED THE MINIMUM INPUT DATA ARE THE Recent

RESONANCE PARAMETERS IN FILE 2. IF THERE ARE NO FILE 2 PARAMETERS Recent

IN A GIVEN MATERIAL THE ENTIRE MATERIAL WILL SIMPLY BE COPIED. Recent

NEITHER THE HOLLERITH SECTION (MF=3D1, MT=3D451) NOR THE BACKGROUND Recent

CROSS SECT= ION (SECTIONS OF MF=3D3) NEED BE PRESENT FOR THIS PROGRAM Recent

TO EXECUTE PROPERLY. HOWEVER, SINCE THE CONVENTIONS USED IN Recent

INTERPRETI= NG THE RESONANCE PARAMETERS DEPENDS ON ENDF/B VERSION Recent

USERS ARE STRONGLY RECOMMENDED TO INSURE THAT MF=3D1, MT=3D451 IS Recent

PRESENT IN= EACH MATERIAL TO ALLOW THE PROGRAM TO DETERMINE THE Recent

ENDF/B FOR= MAT VERSION. = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

RESONANCE PARAMETERS = &nb= sp; = &nb= sp; Recent

-------------------- = &nb= sp; = &nb= sp; Recent

RESONANCE PARAMETERS MAY BE REPRESENTED USING ANY COMBINATION Recent

OF THE REPRESENTATIONS ALLOWED IN ENDF/B, = &nb= sp; Recent

(1) RESOLV= ED DATA = &nb= sp; = &nb= sp; Recent

= (A) SINGLE LEVEL BREIT-WIGNER = &nb= sp; Recent

= (B) MULTI-LEVEL BREIT-WIGNER = &nb= sp; = Recent

= (C) ADLER-ADLER = &nb= sp; = &nb= sp; Recent

= (D) REICH-MOORE = &nb= sp; = &nb= sp; Recent

= (E) HYBRID R-FUNCTION = &nb= sp; = Recent

(2) UNRESO= LVED DATA = &nb= sp; = &nb= sp; Recent

= (A) ALL PARAMETERS ENERGY INDEPENDENT = &nb= sp; Recent

= (B) FISSION PARAMETERS ENERGY DEPENDENT = &nb= sp; Recent

= (C) ALL PARAMETERS ENERGY DEPENDENT = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

THE FOLLOW= ING RESOLVED DATA FORMALISMS ARE NOT TREATED BY THIS Recent

VERSION OF= THE CODE AND WILL ONLY BE IMPLEMENTED AFTER EVALUATIONS Recent

USING THESE FORMALISMS ARE AVAILABLE TO THE AUTHOR OF THIS CODE Recent

FOR TESTIN= G IN ORDER TO INSURE THAT THEY CAN BE HANDLED PROPERLY Recent

= (A) GENERAL R-MATRIX = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

CALCULATED= CROSS SECTIONS = &nb= sp; = Recent

------------------------- = &nb= sp; = Recent

THIS PROGR= AM WILL USE THE RESONANCE PARAMETERS TO CALCULATE THE Recent

TOTAL, ELA= STIC, CAPTURE AND POSSIBLY FISSION CROSS SECTIONS. THE Recent

COMPETITIVE WIDTH WILL BE USED IN THESE CALCULATIONS, BUT THE Recent

COMPETITIVE CROSS SECTION ITSELF WILL NOT BE CALCULATED. THE Recent

ENDF/B CONVENTION IS THAT ALTHOUGH A COMPETITIVE WIDTH MAY BE Recent

GIVEN, THE COMPETITIVE CROSS SECTION MUST BE SEPARATELY TABULATED Recent

AS A SECTI= ON OF FILE 3 DATA. = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

RESOLVED R= EGION = &nb= sp; = &nb= sp; Recent

--------------- = &nb= sp; = &nb= sp; Recent

IN THE RES= OLVED REGION THE RESOLVED PARAMETERS ARE USED TO Recent

CALCULATE = COLD (0 KELVIN), LINEARLY INTERPOLABLE, ENERGY DEPENDENT Recent

CROSS SECTIONS. = &nb= sp; = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

SCATTERING RADIUS = = &nb= sp; = Recent

----------------- = &nb= sp; = &nb= sp; Recent

FOR SINGLE= OR MULTI LEVEL BREIT-WIGNER PARAMETERS THE SCATTERING Recent

RADIUS MAY= BE SPECIFIED IN EITHER ENERGY INDEPENDENT (CONSTANT) Recent

OR ENERGY DEPENDENT FORM (A TABLE OF ENERGY VS. RADIUS AND AN Recent

ASSOCIATED INTERPOLATION LAW). IN ALL OTHER CASE ONLY AN ENERGY Recent

INDEPENDENT SCATTERING RADIUS IS ALLOWED. = = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

FOR ANY ONE MATERIAL (I.E. MAT) IF ENERGY DEPENDENT SCATTERING Recent

RADII ARE = GIVEN THE TOTAL NUMBER OF INTERPOLATION REGIONS AND Recent

TABULATED = VALUES FOR THE ENTIRE MATERIAL CANNOT EXCEED, = Recent

200 - INTERPOLATION REGIONS = &nb= sp; = Recent

500 - TABU= LATED VALUES = &nb= sp; = Recent

IF THESE L= IMITS ARE EXCEEDED THE PROGRAM WILL PRINT AN ERROR Recent

MESSAGE AND TERMINATE. = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

IF YOU REQUIRE A LARGER NUMBER OF INTERPOLATION REGION AND/OR Recent

TABULATED VALUES, = &nb= sp; = &nb= sp; Recent

(1) INTERPOLATION REGIONS - INCREASE THE DIMENSION OF NBTRHO AND Recent

INTRHO IN COMMON/TABRHO/ THROUGHOUT THE PROGRAM AND CHANGE MAXSEC Recent

IN SUBROUT= INE RDAP (MAXSEC =3D MAXIMUM NUMBER OF INTERPOLATION Recent

REGIONS).<= span style=3D'mso-spacerun:yes'> = &nb= sp; = &nb= sp; Recent

(2) TABULA= TED VALUES - INCREASE THE DIMENSION OF ERHOTB, RHOTAB Recent

AND APTAB = IN COMMON/TABRHO/ THROUGHOUT THE PROGRAM AND CHANGE Recent

MAXRHO IN SUBROUTINE RDAP (MAXRHO =3D MAXIMUM NUMBER OF TABULATED Recent

VALUES). = = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

RESOLVED REICH-MOORE AND MULTI-LEVEL BREIT-WIGNER PARAMETERS Recent

------------------------------------------------------------ Recent

CROSS SECT= IONS FOR REICH-MOORE PARAMETERS ARE CALCULATED ACCORDING Recent

TO THE EQU= ATION (1) - (8) OF SECTION D.1.3 OF ENDF-102. IN ORDER Recent

TO CALCULA= TE CROSS SECTIONS FROM MULTI-LEVEL PARAMETERS IN A Recent

REASONABLE AMOUNT OF TIME THIS PROGRAM EXPRESSES THE CROSS SECTION Recent

IN TERMS O= F A SINGLE SUM OVER RESONANCES (SEE, ENDF-102, SECTION Recent

D.1.2, EQU= ATIONS 6-7), RATHER THAN AS A DOUBLE SUM (SEE, ENDF-102 Recent

SECTION D.= 1.2, EQUATION 1-2). IN ORDER FOR THE ENDF-102 EQUATIONS Recent

TO BE CORR= ECT THE PARAMETERS MUST MEET THE FOLLOWING CONDITIONS, Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

(1) FOR EA= CH L STATE ALL PHYSICALLY POSSIBLE J SEQUENCES MUST BE Recent

= PRESENT. ONLY IN THIS CASE WILL THE CONTRIBUTIONS OF THE Rece= nt

= INDIVIDUAL J SEQUENCES ADD UP TO PRODUCE THE CORRECT POTENTIAL Recent

SCATTERING CONTRIBUTION FOR THE L STATE (SEE, ENDF-102, Recent

= SECTION D.1.2, EQUATIONS 6-7). IF ANY J SEQUENCE IS MISSING Recent

= THE PROGRAM WILL PRINT A WARNING AND ADD THE J SEQUENCE WITH Recent

= NO RESONANCE PARAMETERS IN ORDER TO ALLOW THE POTENTIAL Recent

= SCATTERING TO BE CALCULATED CORRECTLY (THIS IS EQUIVALENT TO Recent

= ASSUMING THAT THE EVALUATOR REALIZES THAT ALL J SEQUENCES MUST Recent

= BE AND ARE PRESENT AND THAT THE EVALUATION STATES THAT THERE Recent

= ARE NO RESONANCES WITH CERTAIN PHYSICALLY POSSIBLE J VALUES... Recent

= IN THIS CASE POTENTIAL CONTRIBUTION MUST STILL BE CONSIDERED). Recent

= &nb= sp; = &nb= sp; = Recent

= EXAMPLE = &nb= sp; = &nb= sp; Recent

= =3D=3D=3D=3D=3D=3D=3D = &nb= sp; = &nb= sp; Recent

= AN EXAMPLE OF WHERE THIS OCCURS AND IS IMPORTANT TO CONSIDER Recent

= IS U-238 IN ENDF/B-IV AND V LIBRARIES WHERE FOR L=3D1 THERE IS Recent

= ONLY A J=3D1/2 SEQUENCE. NOT INCLUDING THE J=3D3/2 SEQUENCE LEADS Recent

= TO UNDERESTIMATING THE POTENTIAL SCATTERING AND PRODUCES Recent

= MINIMA IN THE ELASTIC CROSS SECTION WHICH ARE AN ORDER OF Recent

= MAGNITUDE LOWER THAN THE CROSS SECTIONS OBTAINED BE INCLUDING Recent

= THE J=3D3/2 SEQUENCE. = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

(2) FOR A = GIVEN TARGET SPIN AND L VALUE THERE MAY BE 2 POSSIBLE Recent

= MEANS OF OBTAINING THE SAME J VALUE. WHEN THIS OCCURS IN Rece= nt

= ORDER TO CALCULATE THE CORRECT POTENTIAL SCATTERING CROSS Recent

= SECTION IT IS IMPORTANT TO INCLUDE THE EFFECT OF BOTH = Recent

= POSSIBLE J SEQUENCES, EVEN THOUGH FROM THE ENDF/B DATA IT IS Recent

NOT POSSIBLE TO DETERMINE WHICH OF THE 2 POSSIBLE SEQUENCES Recent

= ANY GIVEN RESONANCE BELONGS TO. IN THIS CASE THIS PROGRAM Recent

= TREAT ALL RESONANCES WITH THE SAME J VALUE AS BELONGING TO Recent

= THE SAME J SEQUENCE (TO ALLOW INTERFERENCE) AND WILL ADD AN Recent

= ADDITIONAL J SEQUENCE WITH NO RESONANCES IN ORDER TO ALLOW Recent

= THE POTENTIAL CROSS SECTION TO BE CALCULATED CORRECTLY. WHEN Recent

= THIS OCCURS A WARNING MESSAGE IS PRINTED, BUT BASED ON THE Recent

= ENDF/B DATA THERE IS NOTHING WRONG WITH THE DATA AND THERE IS Recent

= NOTHING THAT THE USER CAN DO TO CORRECT OR IN ANY WAY MODIFY Recent

= THE DATA TO ELIMINATE THE PROBLEM. = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

= EXAMPLE = &nb= sp; = &nb= sp; Recent

= =3D=3D=3D=3D=3D=3D=3D = &nb= sp; = &nb= sp; Recent

= FOR A TARGET SPIN =3D1 AND L=3D1 THE 2 RANGES OF PHYSICALLY Recent

= POSSIBLE J ARE 1/2, 3/2, 5/2 AND 1/2, 3/2. BY CHECKING THE Recent

= ENDF/B DATA IT IS POSSIBLE TO INSURE THAT THE 3 POSSIBLE Recent

= J VALUES (1/2, 3/2, 5/2) ARE PRESENT AND TO INCLUDE ALL 3 Recent

= J SEQUENCES IN THE CALCULATIONS. HOWEVER, UNLESS ALL 5 Recent

= POSSIBLE J SEQUENCES ARE INCLUDED THE STATISTICAL WEIGHTS Recent

= OF THE J SEQUENCES WILL NOT SUM UP TO 2*L+1 AND THE = Recent

= POTENTIAL CROSS SECTION WILL BE UNDERESTIMATED. IN THIS Recent

= EXAMPLE THE SUM OF THE 3 J SEQUENCES 1/2, 3/2, 5/2 IS 2, Recent

= RATHER THAN 3 AS IT SHOULD BE FOR L=3D1, AND THE CONTRIBUTION Recent

= OF THE L=3D1 RESONANCES TO THE POTENTIAL SCATTERING CROSS Recent

= SECTION WILL ONLY BE 2/3 OF WHAT IT SHOULD BE, UNLESS THE Recent

= OTHER 2 J SEQUENCES (WITH DUPLICATE J VALUES) ARE INCLUDED Recent

= IN THE CALCULATION. = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

(3) EACH RESONANCE MUST HAVE AN ASSIGNED, PHYSICALLY POSSIBLE Recent

= J VALUE. PHYSICALLY IMPOSSIBLE OR AVERAGE J VALUES CANNOT BE Recent

= UNIQUELY INTERPRETED USING THE EQUATIONS IN ENDF-102 AND Rece= nt

= THEIR USE WILL USUALLY RESULT IN PHYSICALLY UNRELIABLE CROSS Recent

= SECTIONS. THIS PROGRAM WILL CHECK ALL J VALUES AND IF ANY ARE Recent

= ARE FOUND TO BE PHYSICALLY IMPOSSIBLE (BASED ON TARGET SPIN Recent

= AND L VALUE) AN ERROR MESSAGE WILL BE PRINTED TO INDICATE THAT Recent

= THE RECONSTRUCTED CROSS SECTIONS WILL BE UNRELIABLE AND THE Recent

= PROGRAM WILL CONTINUE. IN AN ATTEMPT TO CALCULATE THE CORRECT Recent

= POTENTIAL SCATTERING CROSS SECTION THIS PROGRAM WILL SUBTRACT Recent

= THE POTENTIAL SCATTERING CONTRIBUTION DUE TO ALL FICTICIOUS J Recent

= SEQUENCES AND ADD THE CONTRIBUTION OF ALL PHYSICALLY POSSIBLE Recent

= J SEQUENCES (AS DESCRIBED ABOVE). = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

= WARNING (LET THE USER BEWARE) = &nb= sp; Recent

= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D = = Recent

= (A) IT CANNOT BE STRESSED ENOUGH THAT CROSS SECTIONS OBTAINED Recent

= USING PHYSICALLY IMPOSSIBLE J VALUES FOR REICH-MOORE AND Recent

= MULTI-LEVEL BREIT-WIGNER RESONANCE PARAMETERS WILL RESULT Recent

= IN UNRELIABLE CROSS SECTIONS. THE DECISION TO HAVE THIS Recent

= PROGRAM CONTINUE TO PROCESS WHEN THIS CONDITION IS FOUND Recent

= IS BASED ON AN ATTEMPT TO ALLOW THE USER TO AT LEAST HAVE Recent

= SOME RESULTS (HOWEVER BAD THEY MAY BE) IF THERE IS NO Recent

= OTHER EVALUATED DATA AVAILABLE. = &nb= sp; Recent

= (B) EVEN THOUGH THE REICH-MOORE AND MULTI-LEVEL EQUATIONS ARE Recent

DEFINED AS ABSOLUTE OR SQUARED CONTRIBUTIONS WHICH MUST Recent

= ALL BE PHYSICALLY POSSIBLE, ATTEMPTING TO CORRECT THE Recent

= POTENTIAL CROSS SECTION (AS DESCRIBED ABOVE) CAN LEAD TO Recent

= NEGATIVE ELASTIC CROSS SECTIONS. THIS IS BECAUSE BASED ON Recent

= THE INFORMATION AVAILABLE IN THE EVALUATION IT IS NOT Recent

= NOT POSSIBLE TO CORRECTLY ACCOUNT FOR THE INTERFERENCE Recent

= BETWEEN THE RESONANCE AND POTENTIAL CONTRIBUTIONS FOR EACH Recent

= J SEQUENCE. = &nb= sp; = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

UNRESOLVED RESONANCE REGION = = &nb= sp; = Recent

--------------------------- = &nb= sp; = Recent

IN THE UNRESOLVED RESONANCE REGION THE UNRESOLVED PARAMETERS Recent

ARE USED TO CALCULATE INFINITELY DILUTE AVERAGE CROSS SECTIONS. Recent

NOTE, IT IS IMPORTANT TO UNDERSTAND THAT FROM THE DEFINITION OF Recent

THE UNRESO= LVED PARAMETERS IT IS NOT POSSIBLE TO UNIQUELY CALCULATE Recent

ENERGY DEP= ENDENT CROSS SECTIONS. ONLY AVERAGES OR DISTRIBUTIONS Recent

MAY BE CALCULATED. = &nb= sp; = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

UNRESOLVED INTERPOLATION = &nb= sp; = Recen= t

------------------------ = &nb= sp; = Recent

IN THE UNRESOLVED RESONANCE REGION CROSS SECTIONS AT EACH ENERGY Recent

ARE CALCUL= ATED BY INTERPOLATING PARAMETERS. THIS IS THE CONVENTION Recent

USED IN ENDF/B-IV AND EARLIER VERSIONS OF ENDF/B. THE ENDF/B-V Recent

CONVENTION= OF INTERPOLATING CROSS SECTIONS, NOT PARAMETERS, HAS Recent

BEEN ABAND= ONED AS IMPRACTICAL SINCE IT CAN LEAD TO THE SITUATION Recent

WHERE EXACTLY THE SAME PHYSICAL DAT= A CAN LEAD TO DIFFERENT RESULTS Recent

DEPENDING = ON WHICH OF THE THREE ENDF/B UNRESOLVED PARAMTER FORMATS Recent

IS USED. F= OR EXAMPLE, GIVEN A SET OF ENERGY INDEPENDENT UNRESOLVED Recent

PARAMETERS= IT IS POSSIBLE TO CODE THESE PARAMETERS IN EACH OF THE Recent

THREE ENDF= /B UNRESOLVED PARAMETER FORMATS. SINCE PHYSICALLY WE Recent

ONLY HAVE = ONE SET OF PARAMETERS WE WOULD EXPECT THE RESULTS TO BE Recent

INDEPENDEN= T OF HOW THEY ARE REPRESENTED IN ENDF/B. UNFORTUNATELY Recent

USING THE ENDF/B-V CONVENTION TO INTERPOLATE CROSS SECTIONS CAN Recent

LEAD TO TH= REE COMPLETELY DIFFERENT RESULTS. IN CONTRAST USING THE Recent

ENDF/B-IV = AND EARLIER CONVENTION OF INTERPOLATING PARAMETERS LEADS Recent

TO COMPLET= ELY CONSISTENT RESULTS. = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

INTERNAL REPRESENTATION OF UNRESOLVED PARAMETERS = Recent

------------------------------------------------ = Recent

ANY OF THE= THREE POSSIBLE REPRESENTATIONS OF UNRESOLVED PARAMETERS Recent

CAN BE UNI= QUELY REPRESENTED IN THE ALL PARAMETERS ENERGY DEPENDENT Recent

REPRESENTA= TIONS WITH THE APPROPRIATE (ENDF/B VERSION DEPENDENT) Recent

INTERPOLAT= ION LAW. THIS IS DONE BY THE PROGRAM WHILE READING THE Recent

UNRESOLVED PARAMETERS AND ALL SUBSEQUENT CALCULATIONS NEED ONLY Recent

CONSIDER T= HE ALL PARAMETERS ENERGY DEPENDENT REPRESENTATION. Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

RESONANCE RECONSTRUCTION STARTING ENERGY GRID = &nb= sp; Recent

--------------------------------------------- = &nb= sp; Recent

AS IN ANY ITERATIVE METHOD THE WAY TO SPEED CONVERGENCE IS TO TRY Recent

TO START C= LOSE TO THE ANSWER. THIS PROGRAM ATTEMPTS TO DO THIS BY Recent

STARTING FROM AN ENERGY= GRID WHICH IS A GOOD APPROXIMATION TO A Recent

SIMPLE BREIT-WIGNER LINE SHAPE, = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

SIGMA(X)= =3D1.0/(1.0+X*X) = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

WHERE X IS= THE DISTANCE FROM THE PEAK IN HALF-WIDTHS = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

SUBROUTINE SUBINT HAS A BUILT-IN TABLE OF NODES WHICH ARE THE Recent

HALF-WIDTH MULTIPLES TO APPROXIMATE THE SIMPLE BREIT-LINE SHAPE Recent

TO WITHIN 1 PER-CENT OVER THE ENTIRE INTERVAL 0 TO 500 HALF-WIDTHS Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

BETWEEN AN= Y TWO RESOLVED RESONANCES THE STARTING GRID IS BASED ON Recent

THE HALF-W= IDTHS OF THE TWO RESONANCES. FROM THE LOWER ENERGY Recent

RESONANCE = UP TO THE MID-POINT BETWEEN THE RESONANCES (MID-POINT Recent

IS DEFINED= HERE AS AN EQUAL NUMBER OF HALF-WIDTHS FROM EACH Recent

RESONANCE)= THE HALF-WIDTH OF THE LOWER ENERGY RESONANCE IS USED. Recent

FROM THE MID-POINT UP TO THE HIGHER ENERGY RESONANCE THE HALF- Recent

WIDTH OF T= HE UPPER ENERGY RESONANCE IS USED. = &nb= sp; Recent

= &nb= sp; = &nb= sp; = = Recent

WITH THIS ALOGORITHM CLOSELY SPACED RESONANCES WILL HAVE ONLY Recent

A FEW STAR= TING NODES PER RESONANCE (E.G. U-235). WIDELY SPACED Recent

RESONANCES= WILL HAVE MORE NODES PER RESONANCE (E.G. U-238). FOR Recent

A MIX OF S= , P, D ETC. RESONANCES THIS ALOGORITHM GUARANTEES AN Recent

ADEQUTE DESCRIPTION OF THE PROFILE OF EVEN EXTREMELY NARROW Recent

RESONANCES (WHICH MAY IMMEDIATELY CONVERGENCE TO THE ACCURACY Recent

REQUESTED, THUS MINIMIZING ITERATION). = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

BACKGROUND= CROSS SECTIONS = &nb= sp; = Recent

----------= --------------- = &nb= sp; = Recent

THE PROGRA= M WILL SEARCH FOR BACKGROUND CROSS SECTIONS FOR TOTAL Recent

(MT=3D1), = ELASTIC (MT=3D2), FISSION (MT=3D18), FIRST CHANCE FISSION Recent

(MT=3D19) = AND CAPTURE (MT=3D102). = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

(1) THE BACKGROUND CROSS SECTIONS (FILE 3) CAN BE PRESENT OR NOT Recent

= PRESENT FOR EACH REACTION. = &nb= sp; = Recent

(2) IF FOR= A GIVEN REACTION THE BACKGROUND CROSS SECTION IS Recent

= PRESENT, IT WILL BE ADDED TO THE RESONANCE CONTRIBUTION AND Recent

= THE RESULT WILL BE OUTPUT. = &nb= sp; Recent

<= /p>

(3) IF FOR= A GIVEN REACTION THE BACKGROUND IS NOT PRESENT THE Recent

= PROGRAM WILL, = &nb= sp; = &nb= sp; Recent

= (A) IF THE INPUT TO THE PROGRAM SPECIFIES NO OUTPUT FOR Recent

= REACTIONS WITH NO BACKGROUND THERE WILL BE NO OUTPUT. Recent

= (B) IF THE INPUT TO THE PROGRAM SPECIFIES OUTPUT FOR REACTIONS Recent

= WITH NO BACKGROUND, = &nb= sp; = Recent

= (I) THE RESONANCE CONTRIBUTION TO TOTAL, ELASTIC OR Recent

= CAPTURE WILL BE OUTPUT. = &nb= sp; Recent

= (II) IF ALL FISSION RESONANCE PARAMETERS ARE ZERO THE Recent

= FISSION CROSS SECTION (MT=3D18) WILL NOT BE OUTPUT. Recent

= OTHERWISE THE RESONANCE CONTRIBUTION OF THE FISSION Recent

= (MT=3D18) WILL BE OUTPUT. = &nb= sp; Recent

= (III) THERE WILL BE NO OUTPUT FOR FIRST CHANCE FISSION Recent

= (MT=3D19). = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

COMBINING RESONANCES AND BACKGROUND CROSS SECTIONS = Recent

-------------------------------------------------- = Recent

IN ORDER T= O BE COMBINED WITH THE RESONANCE CONTRIBUTION THE Recent

BACKGROUND= CROSS SECTIONS MUST BE GIVEN AT 0 KELVIN TEMPERATURE Recent

AND MUST BE LINEARLY INTERPOLABLE. IF THESE CONDITIONS ARE MET Recent

THE RESONA= NCE AND BACKGROUND CONTRIBUTIONS WILL BE ADDED TOGETHER Recent

AND OUTPUT= . IF THESE CONDITIONS ARE NOT MET THE BACKGROUND CROSS Recent

SECTION WI= LL BE IGNORED AND ONLY THE RESONANCE CONTRIBUTION WILL Recent

BE OUTPUT.= IF THE BACKGROUND HAS NOT BEEN ADDED TO THE RESONANCE Recent

CONTRIBUTI= ON AFTER THIS PROGRAM FINISHES THE USER CAN MAKE THE Recent

RESONANCE = AND BACKGROUND CONTRIBUTIONS COMPATIBLE BY, = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

(1) IF THE BACKGROUND IS NOT LINEARLY INTERPOABLE, LINEARIZE THE Recent

= BACKGROUND (E.G., USE PROGRAM LINEAR). = &nb= sp; Recent

(2) IF THE BACKGROUND IS NOT GIVEN AT 0 KELVIN, DOPPLER BROADEN Recent

= THE RESONANCE (NOT BACKGROUND) CONTRIBUTION TO THE SAME Recent

= TEMPERATURE AS THE BACKGROUND (E.G., USE PROGRAM SIGMA1). Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

ONCE THE RESONANCE AND BACKGROUND CONTRIBUTIONS HAVE BEEN MADE Recent

COMPATIBLE= THEY CAN BE ADDED TOGETHER (E.G., USE PROGRAM MIXER). Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

THE RECONSTRUCTION OF THE RESONANCE CONTRIBUTION TO THE CROSS Recent

SECTION CA= N BE QUITE EXPENSIVE (IN TERMS OF COMPUTER TIME). SINCE Recent

THE RECONSTRUCTION IS PERFORMED BEFORE THE BACKGROUND CROSS Recent

SECTIONS A= RE READ, THE ABOVE CONVENTIONS HAVE BEEN ADOPTED IN Recent

ORDER TO A= VOID LOSE OF COMPUTER TIME INVOLVED IN RECONSTRUCTING Recent

THE RESONA= NCE CONTRIBUTION. = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

COMMON ENE= RGY GRID = &nb= sp; = &nb= sp; Recent

------------------ = &nb= sp; = &nb= sp; Recent

THIS PROGR= AM WILL RECONSTRUCT THE RESONANCE CONTRIBUTION TO THE Recent

TOTAL, ELA= STIC, FISSION AND CAPTURE CROSS SECTIONS ALL ON THE Recent

SAME ENERGY GRID. EACH REACTION WILL THEN BE COMBINED WITH ITS Recent

BACKGROUND= CROSS SECTION (IF ANY) AND OUTPUT WITHOUT ANY FURTHER Recent

THINNING. = IF THERE ARE NO BACKGROUND CROSS SECTIONS, OR IF THE Recent

BACKGROUND= CROSS SECTION FOR ALL FOUR REACTIONS ARE GIVEN ON A Recent

COMMON ENE= RGY GRID, THE OUTPUT FROM THIS PROGRAM WILL BE ON A Recent

COMMON ENE= RGY GRID FOR ALL FOUR REACTIONS. = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

THERMAL ENERGY = &nb= sp; = &nb= sp; Recent

-------------- = &nb= sp; = = Recent

IF THE RES= ONANCE REGION SPANS THERMAL ENERGY (0.0253 EV) THIS Recent

POINT IS A= LWAYS INCLUDED IN THE COMMON ENERGY GRID USED FOR ALL Recent

REACTIONS = AND WILL ALWAYS APPEAR IN THE OUTPUT DATA. Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

SECTION SIZE = &nb= sp; = &nb= sp; Recent

------------ = &nb= sp; = &nb= sp; Recent

SINCE THIS PROGRAM USES A LOGICAL PAGING SYSTEM THERE IS NO LIMIT Recent

TO THE NUM= BER OF POINTS IN ANY SECTION, E.G., THE TOTAL CROSS Recent

SECTION MA= Y BE REPRESENTED BY 200,000 DATA POINTS. = Recent

= &nb= sp; = &nb= sp; = Re= cent

SELECTION = OF DATA = &nb= sp; = &nb= sp; Recent

----------------- = &nb= sp; = &nb= sp; Recent

THE PROGRAM SELECTS MATERIALS TO BE PROCESSED BASED EITHER ON Recent

MAT (ENDF/= B MAT NO.) OR ZA. THE PROGRAM ALLOWS UP TO 100 MAT OR Recent

ZA RANGES = TO BE SPECIFIED. THE PROGRAM WILL ASSUME THAT THE Recent

ENDF/B TAP= E IS IN EITHER MAT OR ZA ORDER, WHICHEVER CRITERIA IS Recent

USED TO SE= LECT MATERIALS, AND WILL TERMINATE WHEN A MAT OR ZA Recent

IS FOUND T= HAT IS ABOVE THE RANGE OF ALL REQUESTS. = Recent

= &nb= sp; = &nb= sp; = Recent

ALLOWABLE ERROR = &nb= sp; = &nb= sp; Recent

--------------- = &nb= sp; = &nb= sp; Recent

THE RECONSTRUCTION OF LINEARLY INTERPOLABLE CROSS SECTIONS FROM Recent

RESONANCE PARAMETERS CANNOT BE PERFORMED EXACTLY. HOWEVER IT CAN Recent

BE PERFORM= ED TO VIRTUALLY ANY REQUIRED ACCURACY AND MOST = Recent

IMPORTANTL= Y CAN BE PERFORMED TO A TOLERANCE THAT IS SMALL COMPARED Recent

TO THE UNCERTAINTY IN THE CROSS SECTIONS THEMSELVES. AS SUCH THE Recent

CONVERSION= OF CROSS SECTIONS TO LINEARLY INTERPOLABLE FORM CAN BE Recent

PERFORMED = WITH ESSENTIALLY NO LOSS OF INFORMATION. = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

THE ALLOWA= BLE ERROR MAY BE ENERGY INDEPENDENT (CONSTANT) OR ENERGY Recent

DEPENDENT.= THE ALLOWABLE ERROR IS DESCRIBED BY A TABULATED Recent

FUNCTION O= F UP TO 20 (ENERGY,ERROR) PAIRS AND LINEAR INTERPOLATION Recent

BETWEEN TABULATED POINTS. IF ONLY ONE TABULATED POINT IS GIVEN THE Recent

ERROR WILL= BE CONSIDERED CONSTANT OVER THE ENTIRE ENERGY RANGE. Recent

WITH THIS ENERGY DEPENDENT ERROR ONE MAY OPTIMIZE THE OUTPUT FOR Recent

ANY GIVEN APPLICATION BY USING A SMALL ERROR IN THE ENERGY RANGE Recent

OF INTERES= T AND A LESS STRINGENT ERROR IN OTHER ENERGY RANGES, Recent

E.G., 0.1 PER-CENT FROM 0 UP TO THE LOW EV RANGE AND A LESS Recent

STRINGENT TOLERANCE AT HIGHER ENERGIES. = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

DEFAULT AL= LOWABLE ERROR = &nb= sp; = Recent

----------------------- = &nb= sp; = Recent

IN ORDER TO INSURE CONVERENCE OF THE RESONANCE RECONSTRUCTION THE Recent

ALLOWABLE = ERROR MUST BE POSITIVE. IF THE USER INPUTS AN ERROR FOR Recent

RESONANCE RECONSTRUCTION THAT IS NOT POSITIVE IT WILL BE SET TO Recent

THE DEFAULT VALUE (CURRENTLY 0.1 PER-CENT) AND INDICATED AS SUCH Recent

IN THE OUT= PUT LISTING. = = &nb= sp; Recen= t

= &nb= sp; = &nb= sp; = &nb= sp; Recent

INTERVAL H= ALVING ALGORITHM = &nb= sp; = Recent

------------------------- = = &nb= sp;Recent

THIS PROGR= AM WILL START BY CALCULATING THE CROSS SECTIONS AT THE Recent

ENERGIES CORRESPONDING TO THE PEAK OF EACH RESONANCE, AS WELL AS Recent

A FIXED NU= MBER OF HALF-WIDTHS ON EACH SIDE OF EACH RESONANCE. Recent

STARTING F= ROM THIS BASIC GRID OF POINTS THE PROGRAM WILL CONTINUE Recent

TO HALF EA= CH INTERVAL UNTIL THE CROSS SECTIONS FOR ALL REACTIONS Recent

AT THE CEN= TER OF THE INTERVAL CAN BE DEFINED BY LINEAR = Recent

INTERPOLAT= ION FROM THE ENDS OF THE INTERVAL TO WITHIN THE USER Recent

SPECIFIED ACCURACY CRITERIA. = &nb= sp; = Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

DISTANT RESONANCE TREATMENT = &nb= sp; = Recent

--------------------------- = &nb= sp; = Recent

THE OPTION= TO TREAT DISTANT RESONANCES, WHICH WAS AVAILABLE IN Recent

EARLIER VE= RSIONS OF THIS PROGRAM, IS NO LONGER AVAILABLE, BECAUSE Recent

IT WAS FOU= ND TO PRODUCE UNRELIABLE RESULTS. IN THIS VERSION OF Recent

THE PROGRA= M ALL RESONANCES ARE TREATED EXACTLY. = Recent

= = &nb= sp; = &nb= sp; Recent

PROGRAM OPERATION = &nb= sp; = &nb= sp; Recent

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

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

IT IS SUGG= ESTED THAT BEFORE RUNNING THIS PROGRAM TO RECONSTRUCT Recent

CROSS SECT= IONS FROM RESONANCE PARAMETERS (WHICH CAN BE QUITE Recent

EXPENSIVE)= THE USER FIRST RUN THE PROGRAM IN THE EDIT MODE (SEE, Recent

DESCRIPTIO= N OF INPUT PARAMETERS BELOW). IN THE EDIT MODE THE Recent

PROGRAM WI= LL READ, LIST AND EXTENSIVELY CHECK THE CONSISTENCY OF Recent

ALL RESONA= NCE PARAMETERS AND ENDF/B DEFINED RESONANCE FLAGS. THIS Recent

IS A VERY INEXPENSIVE MEANS OF CHECKING ALL DATA BEFORE INVESTING Recent

A LARGE AM= OUNT OF MONEY IN RECONSTRUCTING CROSS SECTIONS. ANY AND Recent

ALL DIGNOS= TICS RECEIVED FROM THE EDIT WILL SUGGEST HOW TO CORRECT Recent

THE EVALUA= TED DATA TO MAKE IT CONSISTENT BEFORE RECONSTRUCTING Recent

CROSS SECT= IONS. IN ORDER TO OBTAIN MEANINGFUL RESULTS FROM THE Recent

RECONSTRUC= TION ALL SUGGESTED CHANGES TO THE EVALUATION SHOULD BE Recent

PERFORMED = BEFORE TRYING RECONSTRUCTION (OTHERWISE THE RESULT OF Recent

RECONSTRUC= TION WILL NOT BE RELIABLE). = &nb= sp; Recent

= &nb= sp; = &nb= sp; = &nb= sp; Recent

RECONSTRUC= TION MODE = &nb= sp; = &nb= sp; Recent

------------------- = &nb= sp; = &nb= sp; Recent

FOR EACH REQUESTED MATERIAL = &nb= sp; = Recent

--------------------------- = &nb= sp; = Recent

IF SECTION= MF=3D1, MT=3D451 IS PRESENT COMMENTS WILL BE ADD TO Recent

DOCUMENT T= HAT THE MATERIAL HAS BEEN PROCESSED. MF=3D1, MT=3D451 WILL Recent

ALSO BE US= ED TO DETERMINE THE VERSION OF THE ENDF/B FORMAT WHICH Recent

WILL ALLOW= THE PROGRAM TO USE THE APPR