Inspect Manual

Using Inspect With FORTRAN
Inspect Manual429164-006
11-5
Data Locations
#43 goto 25
#44 else
#45 assign 30 to next
This example assume this FORTRAN program fragment in a subroutine named
LOSSES:
Here are some code locations:
SUBROUTINE LOSSES
COMMON /TALLIES/ COLLAPSE, OSCILLATE
...
THRESHOLD(I) = MIN (I*1.E-2, X(I,1))
...
DO 120 I = 1, 26
DO 110 J = 1, 26
100 MARGIN (I) = MARGIN (I) - X(I,J)
IF ( MARGIN (I) .LT. THRESHOLD (Z) ) THEN
MARGIN (I) = 0
COLLAPSE = COLLAPSE + 1
END IF
110 CONTINUE
120 CONTINUE
Data Locations
Here is the syntax you use to identify FORTRAN data locations in Inspect.
scope-path [ (instance) ]
specifies the program unit containing the data item.
Code Location Specifies
#LOSSES The primary entry point of subroutine LOSSES.
#LOSSES.100 The statement at label 100.
#LOSSES.100 -1S The statement before label 100.
#LOSSES.THRESHOLD The statement function THRESHOLD.
data-location:
[ scope-path [ (instance) ] . ] data-reference
instance:
[ + | - ] num
data-reference: one of
identifier
data-reference ( index [ ,index ]...)
data-reference^identifier
subscript-range:
expression [ :expression ]