# lsame.f

          LOGICAL FUNCTION LSAME (CA, CB)
    C***BEGIN PROLOGUE  LSAME
    ....
    ....
    Warning:   this routine is not intended to be user-callable.
    ....
    ....
    C***SUBSIDIARY
    C***PURPOSE  Test two characters to determine if they are the same
    C            letter, except for case.
    C***LIBRARY   SLATEC
    C***CATEGORY  R, N3
    C***TYPE      LOGICAL (LSAME-L)
    C***KEYWORDS  CHARACTER COMPARISON, LEVEL 2 BLAS, LEVEL 3 BLAS
    C***AUTHOR  Hanson, R., (SNLA)
    C           Du Croz, J., (NAG)
    C***DESCRIPTION
    C
    C  LSAME  tests if CA is the same letter as CB regardless of case.
    C  CB is assumed to be an upper case letter. LSAME returns .TRUE. if
    C  CA is either the same as CB or the equivalent lower case letter.
    C
    C  N.B. This version of the code is correct for both ASCII and EBCDIC
    C       systems.  Installers must modify the routine for other
    C       character-codes.
    C
    C       For CDC systems using 6-12 bit representations, the system-
    C       specific code in comments must be activated.
    C
    C  Parameters
    C  ==========
    C
    C  CA     - CHARACTER*1
    C  CB     - CHARACTER*1
    C           On entry, CA and CB specify characters to be compared.
    C           Unchanged on exit.
    C
    C***REFERENCES  (NONE)
    C***ROUTINES CALLED  (NONE)
    C***REVISION HISTORY  (YYMMDD)
    C   860720  DATE WRITTEN
    C   910606  Modified to meet SLATEC prologue standards.  Only comment
    C           lines were modified.  (BKS)
    C   910607  Modified to handle ASCII and EBCDIC codes.  (WRB)
    C   930201  Tests for equality and equivalence combined.  (RWC and WRB)
    C***END PROLOGUE  LSAME