Interface to COMPARE( )

      LOGICAL*4 FUNCTION COMPARE(letter,upper_case_value)
C     Function to compare two characters for match.
      CHARACTER*(*), INTENT(IN)::   letter
      CHARACTER*(*), INTENT(IN)::   upper_case_value
*     Location:  fpret1.f,403-424
*     Commons:   /CHARS/:R
      END FUNCTION

HELP

CROSS REFERENCE FOR FUNCTION COMPARE() - Primary File Only - [HELP]
----------------------------------------------------------------------------
Name                        Class Type   Location(s) in fpret1.f
----------------------------------------------------------------------------
BLANK, /CHARS/              VAR   INT4   413d  414T  420
CHAR()                      INTRN over   420
COMPARE::return             VAR   LOG4   421=
ICHAR()                     INTRN over   420
letter                      VAR   CH*1   407T  421
LOWER_CASE_VALUE            VAR   CH*1   409T  420=  421
upper_case_value            VAR   CH*1   407T  420   421
[ZERO, /CHARS/]             VAR   INT4   413d  414T

To