INTEGER*4 FUNCTION LABEL()
C Convert statement label in columns 1-5 into integer value.
C Return 0 (zero) if all spaces.
* Location: fpret1.f,229-281
* Commons: /LINE/:R /CHARS/:R
END FUNCTION
CROSS REFERENCE FOR FUNCTION LABEL() - Primary File Only - [HELP]
----------------------------------------------------------------------------
Name Class Type Location(s) in fpret1.f
----------------------------------------------------------------------------
[BLANK, /CHARS/] VAR INT4 246d 247T
I VAR int4 259t= 260 262 276= 277
ICHAR() INTRN over 262
[IN_LENGTH, /LINE/] VAR INT4 242d 244T
J VAR int4 258t= 261= 262 270 276
LABEL::return VAR INT4 254= 277=
LINEIN, /LINE/ VAR CH*132 242d 243T 260 262
[LINEOUT, /LINE/] VAR CH*132 242d 243T
[OUT_LENGTH, /LINE/] VAR INT4 242d 244T
SAVE(5) !save(5)89 123456789 123456789 123456789 123456789
ARRAY INT4 234T 262= 277
SPACE() !space6789 123456789 123456789 123456789 123456789 1
FUNCT LOG4 238T 260
ZERO, /CHARS/ VAR INT4 246d 247T 262
To
SUBROUTINE INDENT_WORD(next_line)
C determine if the next line should be indented one more level.
INTEGER*4, INTENT(OUT):: next_line
* Location: fpret1.f,282-369
* Commons: /LINE/:R /ERR/:R /STACK/:SR
END SUBROUTINE
CROSS REFERENCE FOR SUBROUTINE INDENT_WORD() - Primary File Only - [HELP] ---------------------------------------------------------------------------- Name Class Type Location(s) in fpret1.f ---------------------------------------------------------------------------- DO VAR CH*2 317T 321d= 354 DO_LABEL() FUNCT INT4 292T 365 DO_STACK(20), /STACK/ ARRAY INT4 303d 304T 365= ELSE VAR CH*4 317T 320d= 347 ERR_NUM, /ERR/ VAR INT4 306d 307T 331 336 FINISH VAR real 335t= 336 337 [FLAG] VAR LOG4 286T IF VAR CH*2 317T 318d= 331 IN_LENGTH [eqv /LINE/LENGTH] VAR INT4 300T 301d 336 LENGTH(2), /LINE/ [eqv] ARRAY INT4 297d 299T 301d 336e LINEIN, /LINE/ VAR CH*132 297d 298T 354 [LINEOUT, /LINE/] VAR CH*132 297d 298T LOG_EXPR() SUBR 335 MATCH() FUNCT LOG4 291T 331 337 347 354 next_line VAR int4 327t= 338= 348= 355= [NUM_PARENS, /ERR/] VAR INT4 306d 307T [NUM_SPACES] VAR INT4 287T [OUT_LENGTH] [eqv /LINE/LENGTH+4] VAR INT4 300T 301d [QUOTE_OUT, /ERR/] VAR LOG4 306d 308T SPACE() FUNCT LOG4 293T 354 STACK_POINTER, /STACK/ VAR INT4 303d 304T 364= 365 THEN VAR CH*4 317T 319d= 337 UNUSED LOCAL NAMES IN SUBROUTINE INDENT_WORD() - Primary File Only - [HELP] ---------------------------------------------------------------------------- Name Class Type Location Decl'd in fpret1.f ---------------------------------------------------------------------------- [FLAG] VAR LOG4 286T [NUM_SPACES] VAR INT4 287T [OUT_LENGTH] [eqv /LINE/LENGTH+4] VAR INT4 300T 301d
To
SUBROUTINE LOWER()
C LOWERCASE THE INPUT LINE (ASCII ASSUMED)
* Location: fpret1.f,573-589
* Commons: /LINE/:SR
END SUBROUTINE
CROSS REFERENCE FOR SUBROUTINE LOWER() - Primary File Only - [HELP] ---------------------------------------------------------------------------- Name Class Type Location(s) in fpret1.f ---------------------------------------------------------------------------- I VAR int4 583t= 584 585 ICHAR() INTRN over 580 581 582 IN_LENGTH, /LINE/ VAR INT4 575d 577T 583 LINE(132) [eqv /LINE/LINEIN] ARRAY INT1 578T 579d 584 585= LINEIN, /LINE/ [eqv] VAR CH*132 575d 576T 579d 584e 585e=e [LINEOUT, /LINE/] VAR CH*132 575d 576T LOWA = 0 PARAM INT1 578T 580d= 585 [LOWZ] VAR INT1 578T [OUT_LENGTH, /LINE/] VAR INT4 575d 577T UPPA = 0 PARAM INT1 578T 581d= 584 585 UPPZ = 0 PARAM INT1 578T 582d= 584 UNUSED LOCAL NAMES IN SUBROUTINE LOWER() - Primary File Only - [HELP] ---------------------------------------------------------------------------- Name Class Type Location Decl'd in fpret1.f ---------------------------------------------------------------------------- [LOWZ] VAR INT1 578T
To
SUBROUTINE LOG_EXPR(last)
C Subroutine to find the end of the logical
C expression following an IF.
INTEGER*4, INTENT(INOUT)::last
* Location: fpret2.f,355-418
* Commons: /LINE/:R /ERR/:SR
END SUBROUTINE
CROSS REFERENCE FOR SUBROUTINE LOG_EXPR() - Primary File Only - [HELP]
----------------------------------------------------------------------------
Name Class Type Location(s) in fpret2.f
----------------------------------------------------------------------------
ERR_NUM, /ERR/ VAR INT4 374d 375T 382 387 389= 405=
409= 416=
I VAR int4 397t= 398 399 401 402 404
408
IN_LENGTH, /LINE/ VAR INT4 370d 372T 395 396 397 404
last VAR INT4 360T 388= 395= 408=
LINEIN, /LINE/ VAR CH*132 370d 371T 398 399 401 402
[LINEOUT, /LINE/] VAR CH*132 370d 371T
NUM_PARENS, /ERR/ VAR INT4 374d 375T 384= 401= 402= 403
[OUT_LENGTH, /LINE/] VAR INT4 370d 372T
QUOTE_OUT, /ERR/ VAR LOG4 374d 376T 383= 399= 400
SCAN() SUBR 408
SPACE() FUNCT LOG4 366T 398
START VAR INT4 362T 385= 392= 396 397
To