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