lsame(3)
NAME
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