LOGICAL*4 FUNCTION MATCH(start,word,word_length)
C Function to compare two strings for match.
INTEGER*4, INTENT(IN):: start
CHARACTER*(*), INTENT(IN):: word
INTEGER*4, INTENT(IN):: word_length
* Location: fpret1.f,370-402
* Commons: /LINE/:R
END FUNCTION
CROSS REFERENCE FOR FUNCTION MATCH() - Primary File Only - [HELP] ---------------------------------------------------------------------------- Name Class Type Location(s) in fpret1.f ---------------------------------------------------------------------------- COL VAR INT4 378T 395= 397 398= COMPARE() FUNCT LOG4 382T 397 I VAR int4 396t= 397 [IN_LENGTH, /LINE/] VAR INT4 386d 388T LINEIN, /LINE/ VAR CH*132 386d 387T 397 [LINEOUT, /LINE/] VAR CH*132 386d 387T MATCH::return VAR LOG4 394= 400= [OUT_LENGTH, /LINE/] VAR INT4 386d 388T start VAR INT4 374T 395 word VAR CH(*) 375T 397 word_length VAR INT4 376T 396
To
SUBROUTINE NEST(indent)
C Subroutine to indent output line.
INTEGER*4, INTENT(IN):: indent
* Location: fpret2.f,101-163
* Commons: /LINE/:SR /LISTING/:SR
END SUBROUTINE
CROSS REFERENCE FOR SUBROUTINE NEST() - Primary File Only - [HELP]
----------------------------------------------------------------------------
Name Class Type Location(s) in fpret2.f
----------------------------------------------------------------------------
[COMMENT_FLAG, /LISTING/] VAR LOG4 113d 114T
I VAR int4 135t= 136 144= 156= 159
indent VAR INT4 105T 142 144
INDENTER, /LISTING/ VAR CH*3 113d 115T 120d= 148
IN_LENGTH, /LINE/ VAR INT4 109d 111T 130 133 138 155
156
J VAR int4 145t= 148
LETTER_C VAR CH*1 116T 121d=
LINEIN, /LINE/ VAR CH*132 109d 110T 136 159
LINEOUT, /LINE/ VAR CH*132 109d 110T 136= 148= 159=
[LIST_FLAG, /LISTING/] VAR LOG4 113d 114T
OUT_LENGTH, /LINE/ VAR INT4 109d 111T 131= 133= 135 143=
146= 147 148 157= 158 159
LOCAL NAMES SET, BUT NOT REF'D, IN SUBROUTINE NEST() - Primary File Only - [HELP]
----------------------------------------------------------------------------
Name Class Type Location(s) Set in fpret2.f
----------------------------------------------------------------------------
LETTER_C VAR CH*1 121d=
To
LOGICAL*4 FUNCTION NUMBER(char)
C Function to determine if a character is a number.
CHARACTER*(*), INTENT(IN):: char
* Location: fpret2.f,294-306
END FUNCTION
CROSS REFERENCE FOR FUNCTION NUMBER() - Primary File Only - [HELP] ---------------------------------------------------------------------------- Name Class Type Location(s) in fpret2.f ---------------------------------------------------------------------------- char VAR CH*1 298T 304 NUMBER::return VAR LOG4 304=
To
LOGICAL*4 FUNCTION OUTSIDE_QUOTES(point)
C Function to determine whether a "point"ed to
C character is inside or outside quotes.
INTEGER*4, INTENT(IN):: point
* Location: fpret2.f,520-559
* Commons: /LINE/:R /SPLIT/:R
END FUNCTION
CROSS REFERENCE FOR FUNCTION OUTSIDE_QUOTES() - Primary File Only - [HELP] ---------------------------------------------------------------------------- Name Class Type Location(s) in fpret2.f ---------------------------------------------------------------------------- [CONTINUE_LENGTH, /SPLIT/] VAR INT4 540d 542T I VAR int4 554t= 555 [IN_LENGTH, /LINE/] VAR INT4 536d 538T [LINEIN, /LINE/] VAR CH*132 536d 537T LINEOUT, /LINE/ VAR CH*132 536d 537T 555 [LINE_CONTINUE, /SPLIT/] VAR CH*132 540d 541T MOD() INTRN over 555 OUTSIDE_QUOTES::return VAR LOG4 557= [OUT_LENGTH, /LINE/] VAR INT4 536d 538T point VAR INT4 530T 554 QUOTE VAR CH*1 546T 547d= 555 QUOTE_COUNT VAR INT4 532T 553= 555= 557 START, /SPLIT/ VAR INT4 540d 542T 554
To
LOGICAL*4 FUNCTION OPER(char)
C function to determine if a character is one of
C the following operators: + - * /
CHARACTER*(*), INTENT(IN):: char
* Location: fpret2.f,560-582
END FUNCTION
CROSS REFERENCE FOR FUNCTION OPER() - Primary File Only - [HELP] ---------------------------------------------------------------------------- Name Class Type Location(s) in fpret2.f ---------------------------------------------------------------------------- char VAR CH*1 565T 578 I VAR int4 577t= 578 OPER::return VAR LOG4 576= 580= OPERATOR VAR CH*4 569T 570d= 578
To