=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 Dictin

=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 Dictin <= /span>

= &nb= sp; = &nb= sp; = &nb= sp; Dictin&= nbsp;

PROGRAM DI= CTIN (Renamed from DICTION to eliminate conflict with D= ictin

= = UNIX diction command - 12/22/02) = Dictin&= nbsp;

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D = &nb= sp; = &nb= sp; Dictin&= nbsp;

VERSION 81= -1 (SEPTEMBER 1981) = &nb= sp; = Dictin&= nbsp;

VERSION 82= -1 (JANUARY 1982) = &nb= sp; = Dictin&= nbsp;

VERSION 83= -1 (JANUARY 1983) <= /span>*KEEP ORIGINAL MOD. NUMBER = Dictin&= nbsp;

= &nb= sp; = *NEW, MORE COMPATIBLE I/O UNITS. Dictin =

VERSION 84= -1 (SEPTEMBER 1984)*UPDATED TO HANDLE ENDF/B-VI FORMAT. Dictin=

= &nb= sp; = (PROGRAM WILL NOW WORK ON ALL Dictin =

= &nb= sp; = VERSIONS OF THE ENDF/B FORMAT). Dictin

VERSION 85= -1 (AUGUST 1985) *FORTRAN-= 77/H VERSION = Dictin&= nbsp;

VERSION 86= -1 (JANUARY 1986) <= /span>*MAT ORDER CHECK. = Dictin&= nbsp;

= &nb= sp; = *IF NO HOLLERITH SECTION COPY MAT. D= ictin

VERSION 88= -1 (JULY 1988) *OPTION...INTERNALLY DEFINE ALL I/O Dictin<= /span>

= &nb= sp; = FILE NAMES (SEE, SUBROUTINE FILEIO Dictin<= /span>

= &nb= sp; = FOR DETAILS). = &nb= sp; Dictin&= nbsp;

= &nb= sp; = *IMPROVED BASED ON USER COMMENTS. Dictin

VERSION 89= -1 (JANUARY 1989) <= /span>*PSYCHOANALYZED BY PROGRAM FREUD TO Dictin =

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

= &nb= sp; = CRAZY. = &nb= sp; Dictin =

= &nb= sp; = *IMPROVED BASED ON USER COMMENTS. Dictin

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

= &nb= sp; = CONVENTIONS. = &nb= sp; Dictin

= &nb= sp; = *UPDATED TO USE NEW PROGRAM CONVERT Dictin<= /span>

= &nb= sp; = KEYWORDS. = &nb= sp; Dictin&= nbsp;

VERSION 92= -1 (JANUARY 1992) <= /span>*UPDATED BASED ON USER COMMENTS. Dictin =

= &nb= sp; *UP TO 6000 SECTIONS PER TAPE. Dictin =

= &nb= sp; = *CHANGED DEFAULT MOD NUMBER FOR NEW Dictin<= /span>

= &nb= sp; = SECTIONS FROM 0 TO 1 = Dictin&= nbsp;

VERSION 94= -1 (JANUARY 1994) <= /span>*VARIABLE ENDF/B DATA FILENAMES Dictin =

= &nb= sp; = TO ALLOW ACCESS TO FILE STRUCTURES Dictin<= /span>

= &nb= sp; = (WARNING - INPUT PARAMETER FORMAT D= ictin

= &nb= sp; = HAS BEEN CHANGED) = Dictin&= nbsp;

= &nb= sp; = *CLOSE ALL FILES BEFORE TERMINATING Dictin<= /span>

= &nb= sp; = (SEE, SUBROUTINE ENDIT) = Dictin&= nbsp;

= &nb= sp; = *ADDED FORTRAN SAVE OPTION = Dictin&= nbsp;

VERSION 96= -1 (JANUARY 1996) *COMPLETE RE-WRITE = Dictin&= nbsp;

= &nb= sp; *IMPROVED COMPUTER INDE= PENDENCE Dictin =

= &nb= sp; *ALL DOUBLE PRECISION = Dictin&= nbsp;

= &nb= sp; *ON SCREEN OUTPUT = &nb= sp; Dictin&= nbsp;

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

= &nb= sp; *IMPROVED OUTPUT PRECISION = Dictin&= nbsp;

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

= &nb= sp; = POINT READ FOR MORE DIGITS = Dictin&= nbsp;

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

= &nb= sp; = VERSION BASED ON RECENT FORMAT CHANGE Dictin

= &nb= sp; *GENERAL IMPROVEMENTS BASED ON Dictin&= nbsp;

= &nb= sp; = USER FEEDBACK = &nb= sp; Dictin&= nbsp;

VERS. 2000-1 (FEBRUARY 2000)*GENERAL IMPROVEMENTS BASED ON Dictin&= nbsp;

= &nb= sp; = USER FEEDBACK = &nb= sp; Dictin&= nbsp;

VERS. 2002-1 (MAY 2002) *OPTIONAL INPUT PARAMETERS = Dictin&= nbsp;

= &nb= sp; *RENAMED dictin TO ELIMINATE CONFLIC= T Dictin=

= &nb= sp; = WITH UNIX diction COMMAND. = Dictin&= nbsp;

= &nb= sp; *ADDED DOCUMENTATION LINE TO COMMENTS. Dictin

VERS. 2004-1 (JAN. 2004) *GENERAL UPDATE BASED = ON USER FEEDBACK Dictin

= &nb= sp; *UP TO 100,000 SECTIONS PER TAPE. Dictin =

VERS. 2007-1 (JAN. 2007) *CHECKED AGAINST ALL ENDF/B-VII. &= nbsp; Dictin&= nbsp;

= &nb= sp; = *UP TO 500,000 SECTIONS PER TAPE. Dictin =

= &nb= sp; = &nb= sp; = &nb= sp; Dictin&= nbsp;

OWNED, MAINTAINED AND DISTRIBUTED BY = &nb= sp; Dictin&= nbsp;

------------------------------------ = &nb= sp; Dictin&= nbsp;

THE NUCLEA= R DATA SECTION = &nb= sp; = Dictin&= nbsp;

INTERNATIO= NAL ATOMIC ENERGY AGENCY = &nb= sp; Dictin&= nbsp;

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

A-1400, VIENNA, AUSTRIA = &nb= sp; = Dictin&= nbsp;

EUROPE = &nb= sp; = &nb= sp; = Dictin&= nbsp;

= &nb= sp; = &nb= sp; = Dictin =

ORIGINALLY WRITTEN BY = &nb= sp; = Dictin&= nbsp;

------------------------------------ = &nb= sp; Dictin&= nbsp;

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

UNIVERSITY OF CALIFORNIA = &nb= sp; = Dictin&= nbsp;

LAWRENCE LIVERMORE NATIONAL LABORATORY = &nb= sp; Dictin&= nbsp;

L-159 = &nb= sp; = &nb= sp; = Dictin&= nbsp;

P.O. BOX 808 = &nb= sp; = &nb= sp; Dictin&= nbsp;

LIVERMORE, CA 94550 = &nb= sp; = &nb= sp; Dictin&= nbsp;

U.S.A. = &nb= sp; = &nb= sp; = Dictin&= nbsp;

TELEPHONE= 925-423-7359 = &nb= sp; = Dictin&= nbsp;

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

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

= = &nb= sp; = &nb= sp; = Dictin =

AUTHORS MESSAGE = &nb= sp; = &nb= sp; Dictin&= nbsp;

--------------- = &nb= sp; = &nb= sp; Dictin&= nbsp;

THE COMMEN= TS BELOW SHOULD BE CONSIDERED THE LATEST DOCUMENATION D= ictin

FOR THIS PROGRAM INCLUDING ALL RECENT IMPROVEMENTS. PL= EASE READ Dictin =

ALL OF THESE COMMENTS BEFORE IMPLEMENTATION. = &nb= sp; Dictin&= nbsp;

= &nb= sp; = &nb= sp; = Dictin =

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

INDEPENDENT PROGRAMS THAT CAN EASILY BE IMPLEMENTED ON ANY ONE Dictin

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

IT WOULD BE APPECIATED IF YOU WOULD NOTIFY THE AUTHOR OF ANY Dictin =

COMPILER DIAGNOSTICS, OPERATING PROBLEMS OR SUGGESTIONS ON HOW T= O Dictin=

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

THIS PROGR= AM WILL BE COMPLETELY COMPATIBLE FOR USE ON YOUR Dictin&= nbsp;

COMPUTER. = &nb= sp; = &nb= sp; Dictin&= nbsp;

= &nb= sp; = &nb= sp; = = Dictin =

PURPOSE = &nb= sp; = &nb= sp; = Dictin&= nbsp;

------- = &nb= sp; = &nb= sp; = Dictin&= nbsp;

THIS PROGR= AM IS DESIGNED TO CREATE A REACTION INDEX FOR EACH Dictin =

MATERIAL O= N AN ENDF/B FORMATTED TAPE AND TO INSERT THIS REACTION Dictin<= /span>

INDEX IN F= ILE 1, SECTION 451 OF EACH MATERIAL. = Dictin&= nbsp;

= &nb= sp; = &nb= sp; = &nb= sp; Dictin&= nbsp;

IN THE DESCRIPTIO= N THAT FOLLOWS FOR SIMPLICITY THE ENDF/B = Dictin&= nbsp;

TERMINOLOGY---ENDF/B TAPE---WILL BE USED. IN FACT THE ACTUAL Dictin =

MEDIUM MAY= BE TAPE, CARDS, DISK, OR ANY OTHER MEDIUM. = Dictin&= nbsp;

= = &nb= sp; = &nb= sp; = Dictin =

ENDF/B FORMAT = &nb= sp; = &nb= sp; Dictin&= nbsp;

------------- = &nb= sp; = &nb= sp; Dictin&= nbsp;

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

OPPOSED TO= THE BINARY FORMAT) AND CAN HANDLE DATA IN ANY VERSION Dictin<= /span>

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

= &nb= sp; = &nb= sp; = Dictin =

THIS PROGR= AM WILL AUTOMATICALLY DETERMINE WHICH VERSION OF THE Dictin

ENDF/B FOR= MAT EACH MAT IS IN AND WILL THEN PROPERLY REPLACE THE D= ictin

REACTION INDEX FOR EACH MAT. DIFFERENT MATS ON THE SAM= E TAPE MAY Dictin

EVEN BE IN DIFFERENT VERSIONS OF THE ENDF/B FORMAT. = Dictin&= nbsp;

= &nb= sp; = &nb= sp; = &nb= sp; Dictin&= nbsp;

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

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

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

NUMBERS (C= OLUMNS 76-80) NEED NOT BE PRESENT ON INPUT, BUT WILL BE Dictin=

CORRECTLY OUTPUT ON ALL LINES. = &nb= sp; = Dictin&= nbsp;

= &nb= sp; = &nb= sp; = &nb= sp; Dictin&= nbsp;

ENDF/B FOR= MAT VERSION = &nb= sp; = D= ictin

--------------------- = &nb= sp; = Dictin&= nbsp;

THE ENDF/B FORMAT CAN BE DETERMINED FROM THE SECOND LINE OF Dictin =

THE HOLLER= ITH SECTION (MF=3D1, MT=3D451). = &nb= sp; Dictin&= nbsp;

ENDF/B-IV = =3D N1 - LINE COUNT (POSITIVE) = &nb= sp; Dictin&= nbsp;

ENDFB/-V =3D N1= =3D N2 =3D0 = &nb= sp; = Dictin&= nbsp;

ENDF/B-VI = =3D N1 =3D0, N2=3D VERSION NUMBER (6 OR MORE) = Dictin&= nbsp;

= = &nb= sp; = &nb= sp; = Dictin =

SECTION SIZE = &nb= sp; = &nb= sp; Dictin&= nbsp;

------------ = &nb= sp; = &nb= sp; Dictin&= nbsp;

SINCE THIS= PROGRAM ONLY READS THE DATA ONE LINE AT A TIME THERE D= ictin

IS NO LIMI= T TO THE SIZE OF ANY GIVEN SECTION, E.G. THE TOTAL Dictin =

CROSS SECT= ION MAY BE DESCRIBED BY 200,000 DATA POINTS. = Dictin&= nbsp;

= &nb= sp; = &nb= sp; = Dictin =

NUMBER OF SECTIONS PER TAPE = &nb= sp; = Dictin&= nbsp;

--------------------------- = &nb= sp; = Dictin&= nbsp;

IT IS ASSU= MED THAT THE ENDF/B TAPE CONTAINS 100,000 OR FEWER Dictin =

SECTIONS = =3D 100,000 OR FEWER MAT,MF,MT COMBINATIONS. IF THIS= LIMIT Dictin =

IS EXCEEDE= D THIS PROGRAM WILL TERMINATE EXECUTION. IF NEED BE THIS Dict= in

LIMIT CAN = EASILY BE CHANGED BY CHANGING THE DIMENSION STATEMENT D= ictin

BELOW AND RE-DEFINING THE VARIABLE MAXTAB IN THE BELOW DATA Dictin =

STATEMENT. ALTERNATIVELY THE ENDF/B TAPE MAY BE DIVIDE= D INTO A Dictin =

NUMBER SMALLER TAPES EACH CONTAINING 100,000 OR FEWER SECTION= S. D= ictin

EACH ENDF/= B TAPE CAN THEN RUN THROUGH THIS PROGRAM AND THE OUTPUT Dictin=

FOR EACH E= NDF/B TAPE CAN THEN BE RE-COMBINED (I.E., MERGED BACK D= ictin

TOGETHER). = &nb= sp; = &nb= sp; Dictin =

= &nb= sp; = &nb= sp; = &nb= sp; Dictin&= nbsp;

HOLLERITH SECTION = &nb= sp; = &nb= sp; Dictin&= nbsp;

----------------- = &nb= sp; = &nb= sp; Dictin

IF ANY MAT= ERIAL DOES NOT INITIALLY CONATIN A SECTION MF=3D1, MT=3D451 Dictin=

A WARNING MESSAGE WILL BE PRINTED AND THE MATERIAL WILL BE COPIED. Dictin

= &nb= sp; = &nb= sp; = &nb= sp; Dictin&= nbsp;

IF ANY MAT= ERIAL INITIALLY CONTAINS A SECTION MF=3D1, MT=3D451 A NEW D= ictin

REACTION I= NDEX WILL BE CREATED AND INSERTED. THE INITIAL SECTION Dictin<= /span>

MF=3D1, MT= =3D451 MAY OR MAY NOT CONTAIN A REACTION INDEX. = Dictin&= nbsp;

= = &nb= sp; = &nb= sp; Dictin =

IF THE MAT= ERIAL INITIALLY CONTAINS A REACTION INDEX IT WILL BE Dictin

USED TO DE= FINE THE MOD NUMBER FOR CORRESPONDING SECTIONS IN THE D= ictin

NEW REACTI= ON INDEX (I.E. IF A SECTION FROM THE ORIGINAL REACTION Dictin<= /span>

INDEX HAS = THE SAME MF/MT NUMBERS AS A SECTION IN THE NEW REACTION Dictin=

INDEX THE = MOD NUMBER FROM THE ORIGINAL REACTION INDEX WILL BE USED D= ictin

IN THE NEW REACTION INDEX). OTHERWISE THE MOD NUMBER IN THE NEW D= ictin

REACTION I= NDEX WILL BE SET EQUAL TO ZERO. = &nb= sp; Dictin&= nbsp;

= &nb= sp; = &nb= sp; = &nb= sp; Dictin&= nbsp;

PROGRAM OPERATION = &nb= sp; = &nb= sp; Dictin =

----------------- = &nb= sp; = &nb= sp; Dictin&= nbsp;

THE ENTIRE ENDF/B TAPE IS FIRST READ AND A DICTIONARY ENTRY IS Dictin

CREATED FO= R EACH SECTION OF THE TAPE. THE ENDF/B TAPE IS THEN Dictin =

REWOUND AN= D READ A SECOND TIME. DURING THIS SECOND PASS THE Dictin =

DICTIONARY= OF EACH MAT IS REPLACED. THIS VERSION OF DICTIN Dictin&= nbsp;

DOES NOT U= SE SCRATCH FILES AND IS MORE EFFICIENT THAN EARLIER Dictin =

VERSIONS OF DICTIN. = &nb= sp; = &nb= sp; Dictin&= nbsp;

= &nb= sp; = &nb= sp; = &nb= sp; Dictin&= nbsp;

INPUT LINE= S = &nb= sp; = &nb= sp; Dictin&= nbsp;

----------= - = &nb= sp; = &nb= sp; Dictin&= nbsp;

LINE COLS. DESCRIPTION = &nb= sp; = Dictin&= nbsp;

---- ----- ------------------------------ = Dictin&= nbsp;

1 1-60 ENDF/B INPUT DATA FILENAME = &nb= sp; Dictin&= nbsp;

= &nb= sp; (STANDARD OPTION =3D ENDFB.IN) = &nb= sp; Dictin&= nbsp;

= 2 1-60 ENDF/B OUTPUT DATA FILENAME<= span style=3D'mso-spacerun:yes'> = &nb= sp; Dictin&= nbsp;

= (STAN= DARD OPTION =3D ENDFB.OUT) = &nb= sp; Dictin&= nbsp;

= &nb= sp; = &nb= sp; = &nb= sp; Dictin&= nbsp;

EXAMPLE IN= PUT NO. 1 = &nb= sp; = &nb= sp; Dictin&= nbsp;

------------------- = &nb= sp; = &nb= sp; Dictin =

READ \ENDFB6\K300\ENDFB.IN AND WRITE \ENDFB\K300\ENDFB.OUT. THE D= ictin

FOLLOWING 2 INPUT LINES ARE REQUIRED, = &nb= sp; Dictin&= nbsp;

= &nb= sp; = = &nb= sp; = Dictin =

\ENDFB6\K300\ENDFB.IN = &nb= sp; = &nb= sp; Dictin&= nbsp;

\ENDFB6\K300\ENDFB.OUT = &nb= sp; = &nb= sp; Dictin&= nbsp;

= &nb= sp; = = &nb= sp; Dictin =

EXAMPLE IN= PUT NO. 2 = &nb= sp; = &nb= sp; Dictin&= nbsp;

------------------- = &nb= sp; = &nb= sp; Dictin&= nbsp;

USE THE DE= FAULT FILENAMES TO READ ENDFB.IN AND WRITE ENDFB.OUT. D= ictin

2 BLANK IN= PUT LINES ARE REQUIRED = &nb= sp; = Dictin&= nbsp;

= &nb= sp; = &nb= sp; = &nb= sp; Dictin&= nbsp;

INPUT FILE= S = &nb= sp; = &nb= sp; Dictin =

----------= - = &nb= sp; = &nb= sp; Dictin&= nbsp;

UNIT DESCRIPTION = &nb= sp; = &nb= sp; Dictin&= nbsp;

---- ----------- = &nb= sp; = &nb= sp; Dictin&= nbsp;

2 INPUT PARAMETERS (BC= D - 80 CHARACTERS/RECORD) = Dictin&= nbsp;

10 ORIGINAL TAPE OF EN= DF/B DATA (BCD - 80 CHARACTERS/RECORD) D= ictin

= &nb= sp; = &nb= sp; = &nb= sp; Dictin&= nbsp;

OUTPUT FILES = &nb= sp; = &nb= sp; Dictin&= nbsp;

------------ = &nb= sp; = &nb= sp; Dictin&= nbsp;

UNIT DESCRIPTION = &nb= sp; = &nb= sp; Dictin&= nbsp;

---- ----------- = &nb= sp; = &nb= sp; Dictin&= nbsp;

3 OUTPUT REPORT (BCD -= 120 CHARACTERS/RECORD) = Dictin&= nbsp;

11 FINAL TAPE OF ENDF/= B DATA (BCD - 80 CHARACTERS/RECORD) Dictin =

= &nb= sp; = &nb= sp; = &nb= sp; Dictin =

OPTIONAL STANDARD FILE NAMES (SEE SUBROUTINE FILIO1 AND FILIO2) D= ictin

--------------------------------------------------------------- D= ictin

UNIT FILE NAME = = &nb= sp; = Dictin =

---- ---------- = &nb= sp; = &nb= sp; Dictin&= nbsp;

2 DICTIN.INP = &nb= sp; = &nb= sp; Dictin&= nbsp;

3 DICTIN.LST = &nb= sp; = &nb= sp; Dictin =

<= /p>

10 ENDFB.IN = &nb= sp; = &nb= sp; Dictin&= nbsp;

11 ENDFB.OUT = &nb= sp; = &nb= sp; Dictin&= nbsp;

= &nb= sp; = &nb= sp; = Dictin =