fpt: Rename symbol

fpt and WinFPT Reference Manual - Command-line Commands

| SimCon Home | Ref Manual Home |

RENAME

Syntax:

RENAME SUB-PROGRAM [:] <old_name> <new_name>
RENAME COMMON [:] <old_name> <new_name>
RENAME [SYMBOL] [:] <old_name> <new_name>
RENAME [SYMBOL] [:] <sub-program_name> % <old_name> <new_name>
RENAME [SYMBOL] [:] / <COMMON_name> / <old_name> <new_name>

Function:

The specified sub-program, COMMON block or symbol is renamed. Please see specifying a symbol for a complete description of the way the symbol to be renamed may be specified.

fpt checks that the new name is not a Fortran keyword or an intrinsic function name, and has not been used elsewhere as the name of a user-defined symbol in the same scope. If the name is already in use, an error message is printed and the symbol is not renamed.

The specified user-defined symbol is renamed systematically throughout the code. The renaming is language sensitive. Renaming of a symbol named, for example, WRITE, does not affect the text of the keyword WRITE.

Symbols are specified by name, by COMMON block and name, or by sub-program and name. If two or more symbols match the specification, all are renamed. Symbols with names which contain special characters such as : and @ may be renamed, and in these cases the old name is written as a quoted string (These characters may occur in symbol names under ENCORE MPX Fortran and Salford FTN77 respectively).

If no symbols match the specification an error message is generated.

The command is often used to resolve name clashes reported by the commands CHECK NAMES and SHOW KEYWORDS USED FOR SYMBOLS

Where to Use this Command

Operating system command line	Yes
Configuration file, config.fsp	Yes
Specification (fsp) files, *.fsp	Yes
Interactively, to FPT> prompt	Yes
Interactive command files	Yes
Embedded in the Fortran code	No

Examples

The user renames the variable with the same name as the intrinsic function MIN.

FPT> next min Target found at line 45 in file E:\JOHN\FPTTEST\CLOSAP 42 S=S+(P1(J,I)-P2(J,I))*(P1(J,I)- 43 1 P2(J,I)) 44 10 CONTINUE 45 >> MIN=SQRT(S) 46 IF (MIN .LT. CRITH) RETURN 1 47 ELSE FPT> rename closap%min min_dist FPT> type 42 S=S+(P1(J,I)-P2(J,I))*(P1(J,I)- 43 1 P2(J,I)) 44 10 CONTINUE 45 >> MIN_DIST=SQRT(S) 46 IF (MIN_DIST .LT. CRITH) RETURN 1 47 ELSE