SUBROUTINE SCAN(start,last)
C Subroutine to find next nonblank character past a starting point.
INTEGER*4, INTENT(IN):: start
INTEGER*4, INTENT(OUT):: last
* Location: fpret2.f,307-339
* Commons: /LINE/:R
END SUBROUTINE
CROSS REFERENCE FOR SUBROUTINE SCAN() - Primary File Only - [HELP] ---------------------------------------------------------------------------- Name Class Type Location(s) in fpret2.f ---------------------------------------------------------------------------- I VAR int4 329t= 330 331 IN_LENGTH, /LINE/ VAR INT4 319d 321T 327 328 329 last VAR INT4 311T 327= 331= LINEIN, /LINE/ VAR CH*132 319d 320T 330 [LINEOUT, /LINE/] VAR CH*132 319d 320T [OUT_LENGTH, /LINE/] VAR INT4 319d 321T SPACE() FUNCT LOG4 315T 330 start VAR INT4 311T 328 329
To
LOGICAL*4 FUNCTION SPACE(char)
C Function to determine if a character is a space.
C Either a blank or a tab is considered to be a space.
CHARACTER*(*), INTENT(IN):: char
* Location: fpret2.f,340-354
END FUNCTION
CROSS REFERENCE FOR FUNCTION SPACE() - Primary File Only - [HELP] ---------------------------------------------------------------------------- Name Class Type Location(s) in fpret2.f ---------------------------------------------------------------------------- char VAR CH*1 345T 351 SPACE::return VAR LOG4 351=
To
SUBROUTINE SPLITLN(success)
C Subroutine to determine where to split a line of
C FORTRAN code which extends beyond column 72.
LOGICAL*4, INTENT(OUT):: success
* Location: fpret2.f,419-497
* Commons: /LINE/:SR /SPLIT/:SR
* I/O Units: 6[W]
END SUBROUTINE
CROSS REFERENCE FOR SUBROUTINE SPLITLN() - Primary File Only - [HELP]
----------------------------------------------------------------------------
Name Class Type Location(s) in fpret2.f
----------------------------------------------------------------------------
CONTINUE_LENGTH, /SPLIT/ VAR INT4 440d 442T 485= 487= 488
DIVIDER() FUNCT LOG4 431T 476
END VAR INT4 426T 469= 470 475
I VAR int4 462t= 463 468 475= 476 486
490
INDEX() INTRN int4 457
[IN_LENGTH, /LINE/] VAR INT4 436d 438T
JJ VAR int4 457t= 458
K VAR int4 481t= 482 486= 488
[LINEIN, /LINE/] VAR CH*132 436d 437T
LINEOUT, /LINE/ VAR CH*132 436d 437T 457 463 476= 488
LINE_CONTINUE, /SPLIT/ VAR CH*132 440d 441T 482= 484= 488=
MIN() INTRN over 469
OUTLENGTH, /LINE/ VAR INT4 436d 438T 462 469 486 490=
OUTSIDE_QUOTES() FUNCT LOG4 432T 476
START, /SPLIT/ VAR INT4 440d 442T 468= 470 475
success VAR LOG4 427T 448= 491=
[SUM] VAR INT4 426T
UNUSED LOCAL NAMES IN SUBROUTINE SPLITLN() - Primary File Only - [HELP]
----------------------------------------------------------------------------
Name Class Type Location Decl'd in fpret2.f
----------------------------------------------------------------------------
[SUM] VAR INT4 426T
To