lsame

LSAME(l)            LAPACK auxiliary routine (version 1.0)            LSAME(l)



LSAME(l)                         BLAS routine                         LSAME(l)



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



BLAS routine                    16 October 1992                       LSAME(l)