=======================================================================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 VERS. 2023-1 (Feb. 2023) *Idehntical to 2021-1. 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