LSAME - return .TRUE
SYNOPSIS
LOGICAL FUNCTION LSAME( CA, CB )
CHARACTER CA, CB
PURPOSE
LSAME returns .TRUE. if CA is the same letter as CB
regardless of case.
ARGUMENTS
CA (input) CHARACTER*1
CB (input) CHARACTER*1 CA and CB specify the
single characters to be compared.
Test if the characters are equal
Now test for equivalence if both characters are
alphabetic.
Use 'Z' rather than 'A' so that ASCII can be
detected on Prime machines, on which ICHAR returns
a value with bit 8 set. ICHAR('A') on Prime
machines returns 193 which is the same as
ICHAR('A') on an EBCDIC machine.
ASCII is assumed - ZCODE is the ASCII code of
either lower or upper case 'Z'.
EBCDIC is assumed - ZCODE is the EBCDIC code of
either lower or upper case 'Z'.
ASCII is assumed, on Prime machines - ZCODE is the
ASCII code plus 128 of either lower or upper case
'Z'.
RETURN
End of LSAME
Man(1) output converted with
man2html