reference/lsamef.f

   1       LOGICAL          FUNCTION LSAME( CA, CB )
   2 *
   3 *  -- LAPACK auxiliary routine (version 2.0) --
   4 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
   5 *     Courant Institute, Argonne National Lab, and Rice University
   6 *     January 31, 1994
   7 *
   8 *     .. Scalar Arguments ..
   9       CHARACTER          CA, CB
  10 *     ..
  11 *
  12 *  Purpose
  13 *  =======
  14 *
  15 *  LSAME returns .TRUE. if CA is the same letter as CB regardless of
  16 *  case.
  17 *
  18 *  Arguments
  19 *  =========
  20 *
  21 *  CA      (input) CHARACTER*1
  22 *  CB      (input) CHARACTER*1
  23 *          CA and CB specify the single characters to be compared.
  24 *
  25 * =====================================================================
  26 *
  27 *     .. Intrinsic Functions ..
  28       INTRINSIC          ICHAR
  29 *     ..
  30 *     .. Local Scalars ..
  31       INTEGER            INTA, INTB, ZCODE
  32 *     ..
  33 *     .. Executable Statements ..
  34 *
  35 *     Test if the characters are equal
  36 *
  37       LSAME = CA.EQ.CB
  38       IF( LSAME )
  39      $   RETURN
  40 *
  41 *     Now test for equivalence if both characters are alphabetic.
  42 *
  43       ZCODE = ICHAR( 'Z' )
  44 *
  45 *     Use 'Z' rather than 'A' so that ASCII can be detected on Prime
  46 *     machines, on which ICHAR returns a value with bit 8 set.
  47 *     ICHAR('A') on Prime machines returns 193 which is the same as
  48 *     ICHAR('A') on an EBCDIC machine.
  49 *
  50       INTA = ICHAR( CA )
  51       INTB = ICHAR( CB )
  52 *
  53       IF( ZCODE.EQ.90 .OR. ZCODE.EQ.122 ) THEN
  54 *
  55 *        ASCII is assumed - ZCODE is the ASCII code of either lower or
  56 *        upper case 'Z'.
  57 *
  58          IF( INTA.GE.97 .AND. INTA.LE.122 ) INTA = INTA - 32
  59          IF( INTB.GE.97 .AND. INTB.LE.122 ) INTB = INTB - 32
  60 *
  61       ELSE IF( ZCODE.EQ.233 .OR. ZCODE.EQ.169 ) THEN
  62 *
  63 *        EBCDIC is assumed - ZCODE is the EBCDIC code of either lower or
  64 *        upper case 'Z'.
  65 *
  66          IF( INTA.GE.129 .AND. INTA.LE.137 .OR.
  67      $       INTA.GE.145 .AND. INTA.LE.153 .OR.
  68      $       INTA.GE.162 .AND. INTA.LE.169 ) INTA = INTA + 64
  69          IF( INTB.GE.129 .AND. INTB.LE.137 .OR.
  70      $       INTB.GE.145 .AND. INTB.LE.153 .OR.
  71      $       INTB.GE.162 .AND. INTB.LE.169 ) INTB = INTB + 64
  72 *
  73       ELSE IF( ZCODE.EQ.218 .OR. ZCODE.EQ.250 ) THEN
  74 *
  75 *        ASCII is assumed, on Prime machines - ZCODE is the ASCII code
  76 *        plus 128 of either lower or upper case 'Z'.
  77 *
  78          IF( INTA.GE.225 .AND. INTA.LE.250 ) INTA = INTA - 32
  79          IF( INTB.GE.225 .AND. INTB.LE.250 ) INTB = INTB - 32
  80       END IF
  81       LSAME = INTA.EQ.INTB
  82 *
  83 *     RETURN
  84 *
  85 *     End of LSAME
  86 *
  87       END