INTEGER*4 FUNCTION DEDENT_WORD(end_flag)
C determine if the current line should be dedented a level
C (i.e., indented one less level).
LOGICAL*4, INTENT(OUT):: end_flag
* Location: fpret1.f,425-536
* Commons: /LINE/:R /STACK/:SR
END FUNCTION
CROSS REFERENCE FOR FUNCTION DEDENT_WORD() - Primary File Only - [HELP]
----------------------------------------------------------------------------
Name Class Type Location(s) in fpret1.f
----------------------------------------------------------------------------
DEDENT_WORD::return VAR INT4 468= 479= 497= 502= 509= 532=
DO VAR CH*2 456T 459d= 499
DOSTACK1(10), /STACK/ [eqv] ARRAY INT4 444d 446T 447d 478e 500e 504e
DOSTACK11(10), /STACK/ ARRAY INT4 444d 446T 462
DO_STACK(20) [eqv /STACK/DOSTACK1] ARRAY INT4 445T 447d 478 500 504
ELSE VAR CH*4 456T 460d= 531
END VAR CH*3 456T 457d= 489
end_flag VAR LOG4 430T 523=
ERROR() SUBR 506 520
I VAR int4 462t= 494= 495 496 499
IF VAR CH*2 456T 458d= 496
IN_LENGTH, /LINE/ VAR INT4 440d 442T 493 494 518
LABEL() FUNCT INT4 435T 472 504
LINEIN, /LINE/ VAR CH*132 440d 441T 495
[LINEOUT, /LINE/] VAR CH*132 440d 441T
LINE_NUMBER VAR int4 472t= 473 478
MATCH() FUNCT LOG4 434T 489 496 499 531
[OUT_LENGTH, /LINE/] VAR INT4 440d 442T
SPACE() FUNCT LOG4 436T 495
STACK_POINTER, /STACK/ VAR INT4 444d 445T 477 478 480= 481
500 501= 504 508= 519 521=
To
SUBROUTINE ERROR(number)
C Subroutine to print error messages and
C to stop execution when fatal error encountered.
INTEGER*4, INTENT(IN):: number
* Location: fpret2.f,164-234
* I/O Units: 4[W]
END SUBROUTINE
CROSS REFERENCE FOR SUBROUTINE ERROR() - Primary File Only - [HELP]
----------------------------------------------------------------------------
Name Class Type Location(s) in fpret2.f
----------------------------------------------------------------------------
number VAR INT4 169T 176 185 194 202 210
220
To
INTEGER*4 FUNCTION DO_LABEL()
C Convert DO-loop label into integer value.
C Return 0 (zero) if no label.
* Location: fpret2.f,235-293
* Commons: /LINE/:R /CHARS/:R
END FUNCTION
CROSS REFERENCE FOR FUNCTION DO_LABEL() - Primary File Only - [HELP]
----------------------------------------------------------------------------
Name Class Type Location(s) in fpret2.f
----------------------------------------------------------------------------
[BLANK, /CHARS/] VAR INT4 253d 254T
DO_LABEL::return VAR INT4 261= 290=
I VAR int4 266t= 267 273 279 282= 283
289= 290
ICHAR() INTRN over 279
IN_LENGTH, /LINE/ VAR INT4 249d 251T 266 283
J VAR int4 278t= 279 289
LINEIN, /LINE/ VAR CH*132 249d 250T 267 273 279 283
[LINEOUT, /LINE/] VAR CH*132 249d 250T
NUMBER() FUNCT LOG4 245T 273 283
[OUT_LENGTH, /LINE/] VAR INT4 249d 251T
SAVE(5) ARRAY INT4 240T 279= 290
SPACE() FUNCT LOG4 244T 267
ZERO, /CHARS/ VAR INT4 253d 254T 279
To
LOGICAL*4 FUNCTION DIVIDER(char)
C Function to determine if a character is a valid "divider"
C for splitting a line of FORTRAN code.
CHARACTER*(*), INTENT(INOUT)::char
* Location: fpret2.f,498-519
END FUNCTION
CROSS REFERENCE FOR FUNCTION DIVIDER() - Primary File Only - [HELP] ---------------------------------------------------------------------------- Name Class Type Location(s) in fpret2.f ---------------------------------------------------------------------------- char VAR CH*1 503T 513 DIVIDER::return VAR LOG4 514= 516= OPER() FUNCT LOG4 507T 513
To