=======================================================================
Relabel
Relabel
PROGRAM
RELABEL
Relabel
VERSION
69-1 (APRIL 1969)
Relabel
VERSION
73-1 (JUNE 1973)
Relabel
VERSION
77-1 (SEPTEMBER 1977) Relabel
VERSION
80-1 (AUGUST 1980) IBM VERSION Relabel
VERSION
83-1 (JANUARY 1983) COMBINED STATEMENT NUMBER SEQUENCE Relabel
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
FILE NAMES
(SEE, SUBROUTINES FILIO1 Relabel
AND FILIO2
FOR DETAILS). Relabel
*IMPROVED
BASED ON USER COMMENTS. Relabel
VERSION
89-1 (JANUARY 1989)*PSYCHOANALYZED BY PROGRAM FREUD TO Relabel
INSURE
PROGRAM WILL NOT DO ANYTHING Relabel
CRAZY. Relabel
*UPDATED TO
USE NEW PROGRAM CONVERT Relabel
KEYWORDS. Relabel
*ADDED
CONVENTIONS.
Relabel
VERSION
92-1 (JANUARY 1992)*ADDED FORTRAN SAVE OPTION Relabel
VERSION
94-1 (JANUARY 1994)*COMPLETE RE-WRITE Relabel
*OUTPUT
MINIMUM NON-BLANK LENGTH FOR Relabel
EACH LINE -
NO SEQUENCE NUMBERS. Relabel
*INCREASED
MAXIMUM NUMBER OF LABELS Relabel
PER ROUTINE
FROM 1000 TO 50,000 Relabel
*CAN NOW
PROCESS
CODING. Relabel
*SKIP IMBEDDED
BLANKS IN KEYWORDS. Relabel
*ADDED
WRITE(XX,XX,ERR=YYY,END=ZZZ) Relabel
*ADDED
OPEN(XX,ERR=YYY,END=ZZZ) Relabel
*ADDED
CLOSE(XX,ERR=YYY,END=ZZZ) Relabel
*INTEGER
INSTEAD OF CHARACTERS IS NO Relabel
LONGER SUPPORTED - ALL CHARACTERS Relabel
MUST BE
IDENTIFIED AS CHARACTERS. Relabel
*VARIABLE
FILENAMES TO ALLOW ACCESS Relabel
FILE
STRUCTURES Relabel
(WARNING -
INPUT PARAMETER FORMAT Relabel
HAS BEEN
CHANGED) Relabel
*CLOSE ALL
FILES BEFORE TERMINATING Relabel
(SEE,
SUBROUTINE ENDIT) Relabel
VERSION
96-1 (JANUARY 1996) *COMPLETE RE-WRITE Relabel
*IMPROVED
COMPUTER
*ALL DOUBLE
PRECISION Relabel
*ON SCREEN
OUTPUT Relabel
*IMPROVED
OUTPUT PRECISION Relabel
*DEFINED
SCRATCH FILE NAMES Relabel
*INCREASED
THE NUMBER OF LABELS Relabel
IN A ROUTINE
FOR 5,000 TO 50,000 Relabel
VERSION
99-1 (MARCH 1999) *GENERAL IMPROVEMENTS
BASED ON Relabel
USER
FEEDBACK Relabel
VERS.
2000-1 (FEBRUARY 2000)*UPDATED TO IGNORE ( AND ) IN QUOTES Relabel
*GENERAL
IMPROVEMENTS BASED ON Relabel
USER
FEEDBACK Relabel
VERS.
2002-1 (MAY 2002) *OPTIONAL INPUT
PARAMETERS Relabel
*CORRECTED END=, ERR=, WHEN
I/O UNIT Relabel
NUMBER IS
DIMENSIONED Relabel
VERS.
2004-1 (MARCH 2004) *ADDED INCLUDE FOR
COMMON Relabel
*INCREASED THE NUMBER OF LABELS IN Relabel
A ROUTINE
FOR 50,000 TO 100,000 Relabel
Relabel
OWNED,
MAINTAINED AND DISTRIBUTED BY Relabel
------------------------------------ Relabel
THE NUCLEAR
DATA SECTION
Relabel
INTERNATIONAL ATOMIC ENERGY AGENCY
Relabel
P.O.
A-1400,
Relabel
ORIGINALLY
WRITTEN BY
Relabel
------------------------------------ Relabel
DERMOTT E.
CULLEN
Relabel
UNIVERSITY
OF CALIFORNIA
Relabel
LAWRENCE
LIVERMORE NATIONAL LABORATORY Relabel
L-159
Relabel
P.O. BOX
808
Relabel
LIVERMORE,
CA 94550
Relabel
U.S.A.
Relabel
TELEPHONE 925-423-7359
Relabel
E.
MAIL CULLEN1@LLNL.GOV Relabel
WEBSITE HTTP://WWW.LLNL.GOV/CULLEN1 Relabel
Relabel
PURPOSE
Relabel
------- Relabel
THIS
PROGRAM IS DESIGNED TO RE-LABEL A FORTRAN PROGRAM SO THAT Relabel
STATEMENT
LABELS ARE IN INCREASING ORDER IN INCREMENTS OF 10 Relabel
WITHIN EACH
ROUTINE. Relabel
Relabel
THE
FOLLOWING TYPES OF FORTRAN STATEMENTS ARE CONSIDERED, Relabel
Relabel
GO TO
NN
Relabel
GO TO
(NN,MM,.....,JJ,KK),LL (MULTI LINE O.K.) Relabel
DO NN Relabel
IF(......)
NN,MM,...JJ,KK
Relabel
IF(......)
GO TO NN
Relabel
IF(......)
GO TO (NN,MM,.....,JJ,KK),LL (MULTI LINE O.K.) Relabel
IF(......)
READ(.....,END=NN,ERR=MM) Relabel
IF(......)
WRITE(.....,END=NN,ERR=MM) Relabel
READ(......,END=NN,ERR=MM) Relabel
OPEN(......,END=NN,ERR=MM)
Relabel
Relabel
GO TO
STATEMENTS 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
IDENTICAL TO 'GO TO' FOR SUBSEQUENT PROCESSING AND RELACEMENT Relabel
OF STATEMENT
NUMBERS.
Relabel
Relabel
ALL OTHER
STATEMENT TYPES ARE NOT CHANGED. IN PARTICULAR ALL I/O Relabel
STATEMENTS
AND ASSOCIATED FORMAT STATEMENTS ARE NOT CONVERTED. Relabel
Relabel
WARNING
Relabel
------- Relabel
THIS
PROGRAM 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 Relabel
TYPES OF
FORTRAN STATEMENTS. Relabel
Relabel
THE FORTRAN
STATEMENTS DESCRIBED ABOVE AND TREATED BY THIS PROGRAM Relabel
DO NOT
INCLUDE ALL POSSIBLE FORTRAN STATEMENTS. AS SUCH THIS Relabel
PROGRAM IS
NOT COMPLETELY GENERAL AND SHOULD ONLY BE USED WITH Relabel
PROGRAMS
THAT ONLY USE THE FORTRAN STATEMENTS DESCRIBED ABOVE. Relabel
Relabel
FAILURE TO
FOLLOW THESE INSTRUCTIONS CAN LEAD TO ERROR IN PROGRAMS Relabel
Relabel
OPTIONAL
STANDARD FILE NAMES (SEE SUBROUTINES FILIO1 AND FILIO2) Relabel
---------------------------------------------------------------- Relabel
UNIT FILE NAME
DESCRIPTION Relabel
---- ----------
----------- Relabel
2 RELABEL.INP
INPUT PARAMETERS Relabel
3 RELABEL.LST
OUTPUT REPORT Relabel
10 RELABEL.IN
PROGRAM TO READ Relabel
11 RELABEL.OUT
PROGRAM TO WRITE Relabel
12 (SCRATCH)
Relabel
Relabel
INPUT
CARDS
Relabel
----------- Relabel
LINE COLUMNS
DEFINITION
Relabel
---- -------
----------
Relabel
1 1-60
INPUT PROGRAM FILENAME Relabel
(STANDARD OPTION = RELABEL.IN) Relabel
2 1-60
OUTPUT PROGRAM FILENAME Relabel
(STANDARD OPTION = RELABEL.OUT) Relabel
Relabel
LEAVE THE
DEFINITION OF THE FILENAMES BLANK - THE PROGRAM WILL Relabel
THEN USE
STANDARD FILENAMES.
Relabel
Relabel
EXAMPLE
INPUT NO. 1
Relabel
------------------- Relabel
TO READ
\PREPRO94\RECENT\RECENT.FOR AND Relabel
WRITE \PREPRO94\RECENT\RECENT.NEW THE FOLLOWING 2
INPUT LINES Relabel
ARE
REQUIRED,
Relabel
Relabel
\PREPRO94\RECENT\RECENT.FOR Relabel
Relabel
EXAMPLE
INPUT NO. 2
Relabel
-------------------
Relabel
TO READ
RELABEL.IN AND WRITE RELABEL.OUT THE FOLOWING 2 INPUT Relabel
LINES ARE
REQUIRED,
Relabel
Relabel
RELABEL.IN
Relabel
RELABEL.OUT Relabel
Relabel
EXAMPLE
INPUT NO. 3
Relabel
------------------- Relabel
TO READ
RELABEL.IN AND WRITE RELABEL.OUT, SINCE THESE ARE THE Relabel
STANDARD
OPTIONS THE 2 INPUT LINES CAN BE COMPLETELY BLANK. Relabel
Relabel
=======================================================================
Relabel