| SimCon Home | Reference Manual Home |

SHOW UNUSED LABELS

Syntax:

[DO NOT] SHOW UNUSED LABELS

Function:

FPT lists the statement labels which are unused. For each unused label, FPT reports the file and line on which it occurs and prints the line.

The interactive display may be stopped by the command STOP, which is made to the Page> prompt.

Where to use these commands:

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

Example:

A section of an unused label listing is shown below.

FPT> show unused labels
 
Unused labels
=============
 
Line:   140,   File: r:\trek7\original_source\treka.for
890   DO 128 i=1,4
 
Line:   229,   File: r:\trek7\original_source\treka.for
24    FORMAT (F)
 
Line:   412,   File: r:\trek7\original_source\treka.for
338   IF (ichoe(it) .NE. 1) GOTO 129
 
Line:   475,   File: r:\trek7\original_source\treka.for
23311 CALL atack
 
Line:   527,   File: r:\trek7\original_source\treka.for
546   DO 762 i=1,8
 
Line:   598,   File: r:\trek7\original_source\treka.for
4     temp=FLOAT(MOD(itom,100))/100.0
 
Line:   659,   File: r:\trek7\original_source\treka.for
21    na=map(i7,i8)
 
Line:    44,   File: r:\trek7\original_source\trekb.for
24    FORMAT (F)
 
Line:    45,   File: r:\trek7\original_source\trekb.for
151   IF (warp(it) .GT. twarp(it) .OR. warp(it) .LT. 0) GOTO 6581
 
Line:   140,   File: r:\trek7\original_source\trekb.for
75    WRITE (l,72)(ibolt(i,js),i=1,4)
 
Line:   149,   File: r:\trek7\original_source\trekb.for
73    FORMAT (' YOU HAVE',I3,1X,4A4/' ENTER ANGLE: ')
 
Line:   150,   File: r:\trek7\original_source\trekb.for
77    READ (l,*,ERR=130)angle(it)
 
Line:   151,   File: r:\trek7\original_source\trekb.for
24    FORMAT (F)
 
Line:   152,   File: r:\trek7\original_source\trekb.for
 Page>