=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Relabel

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Relabel

= &nb= sp; = &nb= sp; = &nb= sp; Relabel

PROGRAM RELABEL = &nb= sp; = &nb= sp; Relabel

VERSION 69= -1 (APRIL 1969) = &nb= sp; = Relabel

VERSION 73= -1 (JUNE 1973) = &nb= sp; = Relabel

VERSION 77= -1 (SEPTEMBER 1977) = &nb= sp; = Relabel

VERSION 80= -1 (AUGUST 1980) IBM VERSION = &nb= sp; Relabel

VERSION 83= -1 (JANUARY 1983) COMBINED STATEMENT NUMBER SEQUENCE Relabel

= &nb= sp; AND LINE I.D. INTO ONE PROGRAM. Relabel

VERSION 86= -1 (JANUARY 1986) FORTRAN-77/H VERSION = Relabel

VERSION 88= -1 (JULY 1988) *OPTION...INTERNALLY DEFINE ALL I/O Relabel

= &nb= sp; FILE NAMES (SEE, SUBROUTINES FILIO1 Relabel

= &nb= sp; AND FILIO2 FOR DETAILS). = Relabel

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

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

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

= &nb= sp; CRAZY. = &nb= sp; Relabel

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

= &nb= sp; KEYWORDS. = = Relabel

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

= &nb= sp; CONVENTIONS. = &nb= sp; Relabel

VERSION 92= -1 (JANUARY 1992)*ADDED FORTRAN SAVE OPTION = Relabel

VERSION 94= -1 (JANUARY 1994)*COMPLETE RE-WRITE = &nb= sp; Relabel

= &nb= sp; *OUTPUT MINIMUM NON-BLANK LENGTH FOR Relabel

= &nb= sp; EACH LINE - NO SEQUENCE NUMBERS. Rela= bel

= &nb= sp; *INCREASED MAXIMUM NUMBER OF LABELS Relabel

= &nb= sp; PER ROUTINE FROM 1000 TO 50,000 Relabel

= &nb= sp; *CAN NOW PROCESS UPPER OR LOWER CASE Relabel

= &nb= sp; CODING. = &nb= sp; Relabel

= &nb= sp; *SKIP IMBEDDED BLANKS IN KEYWORDS. Relabel

= &nb= sp; *ADDED WRITE(XX,XX,ERR=3DYYY,END=3DZZZ) Relabel

= = *ADDED OPEN(XX,ERR=3DYYY,END=3DZZZ) Relabel

= &nb= sp; *ADDED CLOSE(XX,ERR=3DYYY,END=3DZZZ) Relabel

= &nb= sp; *INTEGER INSTEAD OF CHARACTERS IS NO Relabel

= &nb= sp; LONGER SUPPORTED - ALL CHARACTERS Relabel

= &nb= sp; MUST BE IDENTIFIED AS CHARACTERS. Relabel

= &nb= sp; *VARIABLE FILENAMES TO ALLOW ACCESS Relabel

= &nb= sp; FILE STRUCTURES = &nb= sp; Relabel

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

= &nb= sp; HAS BEEN CHANGED) = &nb= sp; Relabel

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

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

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

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

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

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

= &nb= sp; *IMPROVED OUTPUT PRECISION Relabel

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

= &nb= sp; *INCREASED THE NUMBER OF LABELS Relabel

= &nb= sp; = IN A ROUTINE FOR 5,000 TO 50,000 Relabel

VERSION 99= -1 (MARCH 1999) *GENERAL IMPROVEMENTS BASED ON Relabel

= &nb= sp; = USER FEEDBACK = &nb= sp; Relabel

VERS. 2000-1 (FEBRUARY 2000)*UPDATED TO IGNORE ( AND ) IN QUOTES&nbs= p; Relabel

= &nb= sp; *GENERAL IMPROVEMENTS BASED ON Relabel

= &nb= sp; = USER FEEDBACK = &nb= sp; Relabel

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

= = *CORRECT= ED END=3D, ERR=3D, WHEN I/O UNIT Relabel

= &nb= sp; = NUMBER IS DIMENSIONED = Relabel

VERS. 2004-1 (MARCH 2004) *ADDED INCLUDE FOR COMMON = Relabel

= &nb= sp; = *INCREASED THE NUMBER OF LABELS IN &= nbsp; Relabel

= &nb= sp; = A ROUTINE FOR 50,000 TO 100,000 Rela= bel

= &nb= sp; = &nb= sp; = &nb= sp; Relabel

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

------------------------------------ = &nb= sp; Relabel

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

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

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

A-1400, VIENNA, AUSTRIA = &nb= sp; = Relabel

EUROPE = &nb= sp; = = Relabel

= &nb= sp; = &nb= sp; = &nb= sp; Relabel

ORIGINALLY WRITTEN BY = &nb= sp; = Relabel

------------------------------------ = &nb= sp; Relabel

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

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

LAWRENCE LIVERMORE NATIONAL LABORATORY = &nb= sp; Relabel

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

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

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

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

TELEPHONE 925-423-7359 = &nb= sp; = Relabel

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

WEBSITE HTTP://WWW.LLNL.GOV/CUL= LEN1 = &nb= sp; Relabel

= &nb= sp; = &nb= sp; = &nb= sp; Relabel

PURPOSE = &nb= sp; = &nb= sp; = Relabel

------- = = &nb= sp; = &nb= sp; Relabel

THIS PROGR= AM IS DESIGNED TO RE-LABEL A FORTRAN PROGRAM SO THAT Relabel

STATEMENT = LABELS ARE IN INCREASING ORDER IN INCREMENTS OF 10 Rela= bel

WITHIN EACH ROUTINE. = &nb= sp; = Relabel

= &nb= sp; = &nb= sp; = &nb= sp; Relabel

THE FOLLOW= ING TYPES OF FORTRAN STATEMENTS ARE CONSIDERED, = Relabel

= &nb= sp; = = &nb= sp; Relabel

GO TO NN = &nb= sp; = &nb= sp; Relabel

GO TO (NN<= span class=3DGramE>,MM,.....,JJ,KK),LL (MULTI LINE O.K.) = Relabel

DO NN = &nb= sp; = = Re= label

IF(......) NN,MM,...JJ,KK = &nb= sp; = Relabel

IF(......) GO TO NN = &nb= sp; = &nb= sp; Relabel

IF(......) GO TO (NN,MM,.....,JJ,KK),LL (MULTI LINE O.= K.) = Relabel

IF(......) READ(.....,END=3DNN,ERR=3DMM) = &nb= sp; Relabel

IF(......) WRITE(.....,END=3DNN,ERR=3DMM) = &nb= sp; Relabel

READ(......,END=3DNN,ERR=3DMM) = &nb= sp; = Relabel

OPEN(......,END=3DNN,ERR=3DMM) = &nb= sp; = Relabel

= &nb= sp; = &nb= sp; = &nb= sp; Relabel

GO TO STAT= EMENTS MAY APPEAR IN THE FORM 'GO TO' OR 'GOTO'. IF Relabel

THERE IS ROOM ON = THE LINE 'GOTO' WILL BE CONVERTED TO 'GO TO'. Relabel

WHETHER OR= NOT 'GOTO' IS CONVERTED TO 'GO TO' IT WILL BE TREATED Relabel

AS IDENTIC= AL TO 'GO TO' FOR SUBSEQUENT PROCESSING AND RELACEMENT Relabel

OF STATEMENT NUMBERS. = &nb= sp; = Relabel

= &nb= sp; = &nb= sp; = &nb= sp; Relabel

ALL OTHER STATEMENT TYPES ARE NOT CHANGED. IN PARTICULAR ALL I/O Relabel

STATEMENTS= AND ASSOCIATED FORMAT STATEMENTS ARE NOT CONVERTED. Relabel

= &nb= sp; = &nb= sp; = &nb= sp; Relabel

WARNING = &nb= sp; = &nb= sp; = Relabel

------- = = &nb= sp; = Relabel

THIS PROGR= AM IS ONLY DESIGNED TO MAINTAIN ENDF/B PRE-PROCESSING Relabel

PROGRAMS, = WHICH ONLY USE A RESTRICTED SET OF FORTRAN STATEMENT Relabel

TYPES THAT= CAN BE USED ON A VARIETY OF DIFFERENT TYPES OF = Relabel

COMPUTERS. THIS PROGRAM IS NOT DESIGNED TO HANDLE ALL POSSIBLE Re= label

TYPES OF FORTRAN STATEMENTS. = &nb= sp; = Relabel

= &nb= sp; = &nb= sp; = &nb= sp;Relabel

THE FORTRAN STATEMENTS DESCRIBED ABOVE AND TREATED BY THIS PROGRAM Relabel <= /span>

DO NOT INC= LUDE ALL POSSIBLE FORTRAN STATEMENTS. AS SUCH THIS Rela= bel

PROGRAM IS= NOT COMPLETELY GENERAL AND SHOULD ONLY BE USED WITH Relabel

PROGRAMS T= HAT ONLY USE THE FORTRAN STATEMENTS DESCRIBED ABOVE. Relabel

= &nb= sp; = &nb= sp; = &nb= sp; Relabel

FAILURE TO FOLLOW THESE INSTRUCTIONS CAN LEAD TO ERROR IN PROGRAMS Relabel =

= &nb= sp; = &nb= sp; = &nb= sp; Relabel

OPTIONAL STANDARD FILE NAMES (SEE SUBROUTINES FILIO1 AND FILIO2) Relabel

---------------------------------------------------------------- Relabel

UNIT FILE NAME DESCRIPTION<= span style=3D'mso-spacerun:yes'> = &nb= sp; = Relabel

---- ----------= ----------- = &nb= sp; = Relabel

2 RELABEL.INP INPUT PARAMETERS = &nb= sp; Relabel

3 RELABEL.L= ST OUTPUT REPORT = &nb= sp; = Relabel

10 RELABEL.IN PROGRAM TO READ = &nb= sp; Relabel

11 RELABEL.= OUT PROGRAM TO WRITE = &nb= sp; Relabel

12 (SCRATCH) = &nb= sp; = &nb= sp; Relabel

= &nb= sp; = &nb= sp; = &nb= sp; Relabel

INPUT CARD= S = &nb= sp; = &nb= sp; Relabel

----------= - = = &nb= sp; = Relabel

LINE COLUMNS DEFINITION = &nb= sp; = Relabel

---- ------- ---------- = &nb= sp; = Relabel

1 1-60 INPUT PROGRAM FILENAME= = &nb= sp; Relabel

= (STANDARD OPTION =3D RELABEL.IN) = &nb= sp; Relabel

2 1-60 OUTPUT PROGRAM FILENAM= E = &nb= sp; Relabel

= (STANDARD OPTION =3D RELABEL.OUT) = Relabel

= &nb= sp; = &nb= sp; = &nb= sp; Relabel

LEAVE THE DEFINITION OF THE FILENAMES BLANK - THE PROGRAM WILL Relabel

THEN USE STANDARD FILENAMES. = &nb= sp; = Relabel

= &nb= sp; = &nb= sp; = &nb= sp; Relabel

EXAMPLE INPUT NO. 1 = &nb= sp; = &nb= sp; Relabel

------------------- = &nb= sp; = Relabel

TO READ \PREPRO94\RECENT\RECENT.FOR AND = &nb= sp; Relabel

WRITE \PREPRO94\RECENT\RECENT.NEW = THE FOLLOWING 2 INPUT LINES Relabel

ARE REQUIRED, = &nb= sp; = &nb= sp; Relabel

= &nb= sp; = &nb= sp; = &nb= sp; Relabel

\PREPRO94\RECENT\RECENT.FOR = &nb= sp; = Relabel

= &nb= sp; = &nb= sp; = &nb= sp; Relabel

EXAMPLE INPUT NO. 2 = &nb= sp; = &nb= sp; Relabel

------------------- = &nb= sp; = &nb= sp; Relabel

TO READ RELABEL.IN AND WRITE RELABEL.OUT THE FOLOWING 2 INPUT Relabel

LINES ARE = REQUIRED, = &nb= sp; = &nb= sp; Relabel

= &nb= sp; = &nb= sp; = &nb= sp; Relabel

RELABEL.IN= = &nb= sp; = &nb= sp; Relabel

RELABEL.OU= T = = &nb= sp; = Relabel

= &nb= sp; = &nb= sp; = &nb= sp; Relabel

EXAMPLE INPUT NO. 3 = &nb= sp; = &nb= sp; Relabel

------------------- = = &nb= sp; = Relabel

TO READ RELABEL.IN AND WRITE RELABEL.OUT, SINCE THESE ARE THE Relabel

STANDARD O= PTIONS THE 2 INPUT LINES CAN BE COMPLETELY BLANK. Relabel

= &nb= sp; = &nb= sp; = &nb= sp; Relabel