110782     RENUM: Renumbering of FORTRAN Labels  Version: September
1984
 
Submitted by: Dietrich Glasenapp, Kernforschunganlage, Juelich, West
Germany
 
Operating System: RSX-11M  Source Language: TECO  Keywords: TECO,
Tools - Software Development
 
Abstract: RENUM.TEC is a renumbering program for FORTRAN label
numbers,
and runs as a macro under the famous DECUS TECO Editor.  No
knowledge of TECO is required.  The Call is:  >MUN
RENUM,filespec .
 
The macro renumbers the labels of a FORTRAN program in an
ascending order.  Sufficient space between the labels will be
provided for further insertions.  Normally the labels begin
with 100.  This start label number can be altered to a
desired number.
 
Extra Features:
 
. To distinguish a label to which a GOTO points from a local
  FORMAT label, the GOTO labels are multiplied by ten.
 
. To accentuate the beginning of a DO-loop, a CDO NNNN is placed
  in the line above it, where NNNN is the end label of that
  loop.
 
Media (Service Charge Code): Write-Up and Listing (DA), 600' Magnetic
Tape (MA)  Format: FILES-11