=======================================================================MERGER
MERGER
PROGRAM MERGER MERGER
============== MERGER
VERSION 80-1 (JANUARY 1980) MERGER
VERSION 80-2 (DECEMBER 1980) MERGER
VERSION 82-1 (JANUARY 1982) MERGER
VERSION 83-1 (JANUARY 1983)*NEW, MORE COMPATIBLE I/O UNIT NUMBERS.MERGER
VERSION 85-1 (AUGUST 1985) *FORTRAN-77/H VERSION MERGER
VERSION 86-1 (JANUARY 1986)*ENDF/B-VI FORMATS MERGER
VERSION 88-1 (JULY 1988) *OPTION...INTERNALLY DEFINE ALL I/O MERGER
FILE NAMES (SEE, SUBROUTINES FILIO1 MERGER
AND FILIO2 FOR DETAILS). MERGER
*IMPROVED BASED ON USER COMMENTS. MERGER
VERSION 89-1 (JANUARY 1989)*PSYCHOANALYZED BY PROGRAM FREUD TO MERGER
INSURE PROGRAM WILL NOT DO ANYTHING MERGER
CRAZY. MERGER
*UPDATED TO USE NEW PROGRAM CONVERT MERGER
KEYWORDS. MERGER
*ADDED LIVERMORE CIVIC COMPILER MERGER
CONVENTIONS. MERGER
VERSION 92-1 (JANUARY 1992)*UPDATED BASED ON USER COMMENTS MERGER
*ADDED FORTRAN SAVE OPTION MERGER
VERSION 92-2 (JULY 1992) *ALLOW UP TO 99 ENDF/B DATA FILES. MERGER
(TO ALLOW MANAGEMENT OF THE ENTIRE MERGER
ENDF/B SYSTEM). MERGER
VERSION 94-1 (JANUARY 1994)*VARIABLE ENDF/B DATA FILENAMES MERGER
TO ALLOW ACCESS TO FILE STRUCTURES MERGER
(WARNING - INPUT PARAMETER FORMAT MERGER
HAS BEEN CHANGED) MERGER
*ONLY SPECIFY FILENAMES - NO UNIT MERGER
NUMBERS ON INPUT (WARNING - INPUT MERGER
PARAMETERS FORMAT HAS BEEN CHANGED) MERGER
*CLOSE ALL FILES BEFORE TERMINATING MERGER
(SEE, SUBROUTINE ENDIT) MERGER
*REQUEST LOG DELETED MERGER
VERSION 96-1 (JANUARY 1996) *COMPLETE RE-WRITE MERGER
*IMPROVED COMPUTER INDEPENDENCE MERGER
*ALL DOUBLE PRECISION MERGER
*ON SCREEN OUTPUT MERGER
*UNIFORM TREATMENT OF ENDF/B I/O MERGER
*IMPROVED OUTPUT PRECISION MERGER
VERSION 99-1 (MARCH 1999) *GENERAL IMPROVEMENTS BASED ON MERGER
USER FEEDBACK MERGER
VERS. 2000-1 (FEBRUARY 2000)*GENERAL IMPROVEMENTS BASED ON MERGER
USER FEEDBACK MERGER
VERS. 2002-1 (MAY 2002) *OPTIONAL INPUT PARAMETERS MERGER
VERS. 2004-1 (MARCH 2004) *ADDED INCLUDE TO DEFINE COMMON MERGER
*ADDED TEND LINE IF NO DATA RETRIEVED MERGER
VERS. 2007-1 (JAN. 2007) *CHECKED AGAINST ALL ENDF/B-VII. MERGER
VERS. 2007-2 (JUNE 2007) *UP, TO 1,000 ENDF/B FILES. MERGER
*72 CHARACTER FILE NAMES. MERGER
VERS. 2010-1 (Apr. 2010) *General update based on user feedbackMERGER
VERS. 2012-1 (Aug. 2012) *Added CODENAME MERGER
*32 and 64 bit Compatible MERGER
*Added ERROR stop MERGER
VERS. 2015-1 (Jan. 2015) *Replaced ALL 3 way IF Statements. MERGER
VERS. 2017-1 (May 2017) *Updated based on user feedbck. MERGER
VERS. 2018-1 (Jan. 2018) *Added on-line output for ALL ENDERRORMERGER
VERS. 2019-1 (June 2019) *Identical to 2018-1 MERGER
VERS. 2020-1 (Feb. 2020) *Allow EMPTY files = file exists, but MERGER
0 length = EOF at first read try. MERGER
VERS. 2021-1 (Apr. 2021) *Updated for FORTRAN 2018 MERGER
*Updated SEND/FEND/MEND/TEND Sequence MERGER
number definition. MERGER
MERGER
OWNED, MAINTAINED AND DISTRIBUTED BY MERGER
------------------------------------ MERGER
THE NUCLEAR DATA SECTION MERGER
INTERNATIONAL ATOMIC ENERGY AGENCY MERGER
P.O. BOX 100 MERGER
A-1400, VIENNA, AUSTRIA MERGER
EUROPE MERGER
MERGER
ORIGINALLY WRITTEN BY MERGER
------------------------------------ MERGER
Dermott E. Cullen MERGER
MERGER
PRESENT CONTACT INFORMATION MERGER
--------------------------- MERGER
Dermott E. Cullen MERGER
1466 Hudson Way MERGER
Livermore, CA 94550 MERGER
U.S.A. MERGER
Telephone 925-443-1911 MERGER
E. Mail RedCullen1@Comcast.net MERGER
Website RedCullen1.net/HOMEPAGE.NEW MERGER
MERGER
AUTHORS MESSAGE MERGER
--------------- MERGER
THE COMMENTS BELOW SHOULD BE CONSIDERED THE LATEST DOCUMENTATION MERGER
FOR THIS PROGRAM INCLUDING ALL RECENT IMPROVEMENTS. PLEASE READ MERGER
ALL OF THESE COMMENTS BEFORE IMPLEMENTATION, PARTICULARLY THE MERGER
COMMENTS CONCERNING MACHINE DEPENDENT CODING. MERGER
MERGER
AT THE PRESENT TIME WE ARE ATTEMPTING TO DEVELOP A SET OF COMPUTERMERGER
INDEPENDENT PROGRAMS THAT CAN EASILY BE IMPLEMENTED ON ANY ONE MERGER
OF A WIDE VARIETY OF COMPUTERS. IN ORDER TO ASSIST IN THIS PROJECTMERGER
IT WOULD BE APPECIATED IF YOU WOULD NOTIFY THE AUTHOR OF ANY MERGER
COMPILER DIAGNOSTICS, OPERATING PROBLEMS OR SUGGESTIONS ON HOW TO MERGER
IMPROVE THIS PROGRAM. HOPEFULLY, IN THIS WAY FUTURE VERSIONS OF MERGER
THIS PROGRAM WILL BE COMPLETELY COMPATIBLE FOR USE ON YOUR MERGER
COMPUTER. MERGER
MERGER
PURPOSE MERGER
------- MERGER
THIS PROGRAM IS DESIGNED TO SELECTIVELY RETRIEVE DATA OFF OF FROM MERGER
1 TO 10 ENDF/B DATA TAPES AND TO MERGE THE SELECTED DATA INTO A MERGER
SINGLE MAT/MF/MT ORDERED FINAL OUTPUT FILE. MERGER
MERGER
IN THE DISCUSSION THAT FOLLOWS FOR SIMPLICITY THE ENDF/B MERGER
TERMINOLOGY---ENDF/B TAPE---WILL BE USED. IN FACT THE ACTUAL MERGER
MEDIUM USED MAY BE TAPE, CARD, DISK OR ANY OTHER MEDIUM. MERGER
MERGER
ENDF/B FORMAT MERGER
------------- MERGER
THIS PROGRAM ONLY USES THE ENDF/B BCD OR CARD IMAGE FORMAT (AS MERGER
OPPOSED TO THE BINARY FORMAT) AND CAN HANDLE DATA IN ANY VERSION MERGER
OF THE ENDF/B FORMAT (I.E., ENDF/B-I, II,III, IV OR V FORMAT). MERGER
MERGER
THE ONLY NUMERICAL DATA THAT THIS PROGRAM READS IS THE ZA FROM THEMERGER
FIRST CARD OF EACH SECTION AND THE MAT/MF/MT FROM EACH CARD. MERGER
SEQUENCE NUMBERS ARE IGNORED ON INPUT AND ALL OTHER FIELDS ARE MERGER
READ AS HOLLERITH. AS SUCH THIS PROGRAM NEED NOT DISTINGUISH MERGER
BETWEEN DIFFERENT VERSIONS OF THE ENDF/B FORMAT. MERGER
MERGER
IT IS ASSUMED THAT THE DATA IS CORRECTLY CODED IN THE ENDF/B MERGER
FORMAT AND NO ERROR CHECKING IS PERFORMED. IN PARTICULAR IT IS MERGER
ASSUMED THAT THE MAT, MF AND MT ON EACH CARD IS CORRECT. SEQUENCE MERGER
NUMBERS (COLUMNS 76-80) ARE IGNORED ON INPUT, BUT WILL BE MERGER
CORRECTLY OUTPUT ON ALL CARDS. MERGER
MERGER
SECTION SIZE MERGER
------------ MERGER
SINCE THIS PROGRAM ONLY READS THE DATA ONE CARD AT A TIME THERE MERGER
IS NO LIMIT TO THE SIZE OF ANY GIVEN SECTION, E.G. THE TOTAL MERGER
CROSS SECTION MAY BE DESCRIBED BY 200,000 DATA POINTS. MERGER
MERGER
SELECTION OF DATA MERGER
----------------- MERGER
THE USER MAY CHOOSE TO MERGE ALL DATA OR THE USER MAY SPECIFY MERGER
THAT ONLY CERTAIN DATA SHOULD BE SELECTED. THE DATA TO BE MERGER
SELECTED IS DEFINED BY SPECIFYING UP TO 100 MAT/MF/MT OR MERGER
ZA/MF/MT RANGES. EACH RANGE IS DEFINED BY LOWER AND UPPER LIMITS MERGER
OF MAT/MF/MT OR ZA/MF/MT. MERGER
MERGER
REQUEST LIMITS MERGER
-------------- MERGER
IN ORDER TO SIMPLIFY THE INPUT OF SELECTION REQUESTS THE FOLLOWINGMERGER
CONVENTIONS HAVE BEEN INTRODUCED IN ORDER TO DEFINE THE UPPER MERGER
LIMITS OF REQUESTS IF THEY ARE NOT DEFINED BY INPUT (I.E., IF THEYMERGER
ARE ZERO). MERGER
MERGER
(1) MAT OR ZA - IF THE UPPER LIMIT IS ZERO IT IS SET EQUAL TO THE MERGER
LOWER LIMIT. MERGER
(2) MF OR MT - IF THE UPPER LIMIT IS ZERO IT IS SET EQUAL TO THE MERGER
MAXIMUM POSSIBLE VALUE, 99 OR 999 RESPECTIVELY. MERGER
MERGER
WITH THESE CONVENTIONS AN ENTIRE EVALUATION MAY BE SELECTED BY MERGER
MERELY SPECIFYING THE LOWER LIMIT OF MAT OR ZA. THE UPPER MAT OR MERGER
ZA LIMIT WILL BE SET EQUAL TO THE LOWER LIMIT, THE LOWER LIMITS OFMERGER
MF/MT WILL BE 0/0 AND THE UPPER LIMITS OF MF/MT WILL BE SET TO MERGER
99/999. THIS WILL CAUSE ALL SECTIONS OF A SINGLE EVALUATION TO BE MERGER
SELECTED. MERGER
MERGER
SATISFYING SELECTION CRITERIA MERGER
----------------------------- MERGER
IN ORDER FOR A SECTION TO MEET THE SELECTION CRITERIA SPECIFIED MERGER
BY ONE OF THE RETRIEVAL REQUESTS, EACH OF THE THREE FIELDS ( MERGER
MAT/MF/MT OR ZA/MF/MT) MUST INDIVIDUALLY SATISFY THE CORRESPONDINGMERGER
LIMITS OF THE REQUEST. IT IS NOT SUFFICIENT THAT THE MAT OF A MERGER
SECTION LIE BETWEEN THE MINIMUM AND MAXIMUM MATS OF A REQUEST. THEMERGER
MF AND MT WILL ALSO BE INDIVIDUALLY COMPARED TO THE MF AND MT MERGER
LIMITS OF THE REQUEST. FOR EXAMPLE, A SECTION WITH MAT/MF/MT= MERGER
2500/3/2 DOES NOT SATISFY A REQUEST THAT SPECIFIES A REQUEST USINGMERGER
THE RANGE 2000/3/1 THROUGH 3000/3/1. THIS REQUEST SPECIFIES ALL MERGER
MATERIALS WITH MAT BETWEEN 2000 AND 3000, BUT ONLY THOSE SECTIONS MERGER
WITH MF/MT=3/1. SIMILARLY A REQUEST FOR 2000/3/1 THROUGH 3000/99/ MERGER
999 WILL NOT SELECT ANY SECTIONS WITH MF=1 OR 2, SINCE THE MERGER
REQUEST SPECIFIES ALL MATERIALS WITH MAT BETWEEN 2000 AND 3000, MERGER
BUT ONLY THOSE SECTIONS WITH MF= 3, OR MORE. MERGER
MERGER
DUPLICATE SECTIONS MERGER
------------------ MERGER
IF TWO OR MORE SECTIONS WITH THE SAME MAT/MF/MT ARE FOUND EITHER MERGER
ON THE SAME OR DIFFERENT TAPES, THE SECTION FROM THE TAPE DEFINED MERGER
EARLIEST IN THE INPUT CARDS WILL BE COPIED TO THE FINAL TAPE AND MERGER
ALL OTHER SECTIONS WITH THE SAME MAT/MF/MT WILL BE SKIPPED. THE MERGER
OUTPUT REPORT WILL INDICATE WHICH SECTIONS WERE COPIED FROM WHICH MERGER
TAPES, AS WELL AS WHICH SECTIONS ARE DUPLICATE AND WERE SKIPPED. MERGER
MERGER
REACTION INDEX MERGER
-------------- MERGER
THIS PROGRAM DOES NOT UPDATE THE REACTION INDEX IN MF=1, MT=451. MERGER
FOR EACH MATERIAL THE PROGRAM WILL FOLLOW THE CONVENTIONS MERGER
DEFINED ABOVE AND ONLY COPY ONE SECTION MF=1, MT=451 AND SKIP MERGER
ALL OTHERS (IF MORE THAN ONE). THIS CONVENTION HAS BEEN ADOPTED MERGER
BECAUSE MOST USERS DO NOT REQUIRE A CORRECT REACTION INDEX FOR MERGER
THERE APPLICATIONS AND IT WAS NOT CONSIDERED WORTHWHILE TO INCLUDEMERGER
THE OVERHEAD OF CONSTRUCTING A CORRECT REACTION INDEX IN THIS MERGER
PROGRAM. HOWEVER, IF YOU REQUIRE A REACTION INDEX FOR YOUR MERGER
APPLICATION AFTER RUNNING THIS PROGRAM YOU MAY USE PROGRAM MERGER
DICTIN TO CREATE ONE. MERGER
MERGER
RETRIEVAL STATISTICS MERGER
-------------------- MERGER
THERE WILL ALWAYS BE AN OUTPUT REPORT LISTING INDICATING WHICH MERGER
SECTIONS WHERE SELECTED, WHICH DUPLICATE SECTIONS WERE SKIPPED, MERGER
WHICH TAPE THE SECTION WAS ON, WHICH REQUEST (MAT/MF/MT OR MERGER
ZA/MF/MT RANGE) CAUSED THE SECTION TO BE SELECTED AND HOW MANY MERGER
CARDS WERE IN THE SECTION. IN ADDITION THE USER MAY OPTIONALLY MERGER
OBTAIN A FILE CONTAINING THE SAME INFORMATION. THIS FILE MAY BE MERGER
COMBINED WITH OTHER SIMILAR FILES OUTPUT BY THIS PROGRAM IN ORDER MERGER
TO ACCUMULATE RETRIEVAL STATISTICS OVER A PERIOD OF TIME. IF MERGER
SPECIFIED THIS FILE WILL CONTAIN THE FOLLOWING INFORMATION IN MERGER
6I7 FORMAT. MERGER
MERGER
(1) ZA MERGER
(2) MAT MERGER
(3) MF MERGER
(4) MT MERGER
(5) NUMBER OF CARDS IN SECTION MERGER
(6) REQUEST NUMBER THAT CAUSED SECTION TO BE SELECTED MERGER
MERGER
INPUT FILES MERGER
----------- MERGER
UNIT DESCRIPTION MERGER
---- ----------- MERGER
2 INPUT CARDS (BCD - 80 CHARACTERS/RECORD) MERGER
VARY FROM 1 TO 99 ENDF/B DATA FILES (BCD - 80 CHARACTERS/RECORD) MERGER
MERGER
OUTPUT FILES MERGER
------------ MERGER
UNIT DESCRIPTION MERGER
---- ----------- MERGER
3 OUTPUT REPORT LISTING (BCD - 120 CHARACTERS/RECORD) MERGER
10 MERGED ENDF/B DATA (BCD - 80 CHARACTERS/RECORD) MERGER
MERGER
OPTIONAL STANDARD FILE NAMES (SEE SUBROUTINES FILIO1 AND FILIO2) MERGER
---------------------------------------------------------------- MERGER
UNIT FILE NAME DESCRIPTION MERGER
---- ---------- ----------- MERGER
2 MERGER.INP INPUT PARAMETERS MERGER
3 MERGER.LST OUTPUT LISTING MERGER
11 ENDFB.OUT RETRIEVED ENDF/B DATA MERGER
12 ENDFB.IN1 ENDF/B DATA TO READ...FILENAMES WILL BE DEFINED MERGER
13 ENDFB.IN2 IN THE ORDER ENDFB.IN1, ENDFB.IN2,...ENDFB.I99 MERGER
14 ENDFB.IN3 CORRESPONDING TO THE FIRST, SECOND,...99-TH MERGER
15 ENDFB.IN4 ENDF/B DATA FILE TO READ. MERGER
16 ENDFB.IN5 MERGER
17 ENDFB.IN6 MERGER
18 ENDFB.IN7 MERGER
. MERGER
. MERGER
110 ENDFB.I99 MERGER
MERGER
INPUT CARDS MERGER
----------- MERGER
CARD COLUMNS FORMAT DESCRIPTION MERGER
---- ------- ------ ----------- MERGER
1 1-72 A72 FILENAME FOR MERGED OUTPUT. MERGER
(LEAVE BLANK FOR STANDARD = ENDFB.OUT) MERGER
2 1-66 16A4,A2 MERGED FILE LABEL MERGER
IF BLANK - LABEL FROM FIRST FILE READ WILLMERGER
BE OUTPUT MERGER
67-70 I4 MERGED FILE ENDF/B NUMBER MERGER
IF ZERO - NUMBER OF FIRST FILE READ WILL MERGER
BE OUTPUT. MERGER
71-72 I2 RETRIEVAL CRITERIA MERGER
= 0 - MAT/MF/MT RANGES MERGER
= 1 - ZA/MF/MT RANGES MERGER
3-N 1-72 A72 FILENAME FOR FILE TO RETRIEVE DATA FROM MERGER
(LEAVE BLANK FOR STANDARD..ENDFB.IN1,ETC.)MERGER
TERMINATE LIST OF FILES WITH A LINE THAT MERGER
SAYS END OR end MERGER
VARY 1- 6 I6 LOWER PRIMARY LIMIT (MAT OR ZA) MERGER
7- 8 I2 LOWER MF LIMIT MERGER
9-11 I3 LOWER MT LIMIT MERGER
12-17 I6 UPPER PRIMARY LIMIT (MAT OR ZA) MERGER
18-19 I2 UPPER MF LIMIT MERGER
20-22 I3 UPPER MT LIMIT MERGER
RANGES OF MAT/MF/MT OR ZA/MF/MT TO BE MERGER
RETRIEVED ARE SPECIFIED BY DEFINING MERGER
ONE RANGE (LOWER AND UPPER LIMITS) PER MERGER
CARD. THE USER MAY SPECIFY 0 TO 100 MERGER
RANGES AND THE LIST OF REQUEST RANGES MERGER
IS TERMINATED BY A BLANK CARD. IF MERGER
THE FIRST CARD IS BLANK (0 REQUESTS) MERGER
ALL DATA WILL BE RETRIEVED. IF THE UPPER MERGER
PRIMARY CRITERIA (MAT OR ZA) IS LESS THAN MERGER
THE LOWER PRIMARY CRITERIA, THE UPPER MERGER
PRIMARY CRITERIA WILL BE SET EQUAL TO MERGER
THE LOWER PRIMARY CRITERIA. IF THE UPPER MERGER
MF OR MT LIMIT IS ZERO, OR BLANK, IT MERGER
WILL BE SET TO THE MAXIMUM POSSIBLE MERGER
VALUE, I.E. MF=99 OR MT=999 (SEE MERGER
EXAMPLE INPUT). MERGER
MERGER
EXAMPLE INPUT NO. 1 MERGER
------------------- MERGER
MERGE ENDF/B DATA ONTO UNIT 10 FROM UNITS 11, 12, 13 AND 14. MERGER
RETRIEVE DATA BY MAT NUMBER. RETRIEVE MATS 1103, 1106, ALL MATS MERGER
BETWEEN 1204 AND 1215, MF=1, 3, 4 AND 5 OF MAT 1219 AND MF=3, MERGER
MT=1 OF MAT 1304. USE STANDARD FILENAMES. MERGER
MERGER
THE FOLLOWING 13 INPUT CARDS ARE REQUIRED. MERGER
MERGER
ENDFB.OUT MERGER
EXAMPLE FILE LABEL FOR MERGER 0 0MERGER
ENDFB.IN1 MERGER
ENDFB.IN2 MERGER
ENDFB.IN3 MERGER
ENDFB.IN4 MERGER
END MERGER
1103 4317 (UPPER LIMIT SET TO 1103/99/999)MERGER
1106 4317 (UPPER LIMIT SET TO 1106/99/999)MERGER
1204 1215 4317 (UPPER LIMIT SET TO 1215/99/999)MERGER
1219 1 1219 1 4317 (UPPER LIMIT SET TO 1219/ 1/999)MERGER
1219 3 1219 5 4317 (UPPER LIMIT SET TO 1219/ 5/999)MERGER
1304 3 1 1304 3 1 4317 (UPPER LIMIT COMPLETELY DEFINED)MERGER
(BLANK CARD TERMINATES REQUESTS)MERGER
MERGER
EXAMPLE INPUT NO. 2 MERGER
------------------- MERGER
THE SAME AS EXAMPLE 1, EXCEPT SPECIFY FILENAMES MERGER
MERGER
\ENDFB6\MERGED.LIB MERGER
EXAMPLE FILE LABEL FOR MERGER 0 0MERGER
ENDFB6.PART1 MERGER
ENDFB6.PART2 MERGER
ENDFB6.PART3 MERGER
ENDFB6.PART4 MERGER
END MERGER
1103 4317 (UPPER LIMIT SET TO 1103/99/999)MERGER
1106 4317 (UPPER LIMIT SET TO 1106/99/999)MERGER
1204 1215 4317 (UPPER LIMIT SET TO 1215/99/999)MERGER
1219 1 1219 1 4317 (UPPER LIMIT SET TO 1219/ 1/999)MERGER
1219 3 1219 5 4317 (UPPER LIMIT SET TO 1219/ 5/999)MERGER
1304 3 1 1304 3 1 4317 (UPPER LIMIT COMPLETELY DEFINED)MERGER
(BLANK CARD TERMINATES REQUESTS)MERGER
MERGER
=======================================================================MERGER