LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
lsametst.f
Go to the documentation of this file.
00001 *> \brief \b LSAMETST
00002 *
00003 *  =========== DOCUMENTATION ===========
00004 *
00005 * Online html documentation available at 
00006 *            http://www.netlib.org/lapack/explore-html/ 
00007 *
00008 *  Definition:
00009 *  ===========
00010 *
00011 *      PROGRAM LSAMETST
00012 *
00013 *  Authors:
00014 *  ========
00015 *
00016 *> \author Univ. of Tennessee 
00017 *> \author Univ. of California Berkeley 
00018 *> \author Univ. of Colorado Denver 
00019 *> \author NAG Ltd. 
00020 *
00021 *> \date November 2011
00022 *
00023 *> \ingroup auxOTHERauxiliary
00024 *
00025 *  =====================================================================      PROGRAM LSAMETST
00026 *
00027 *  -- LAPACK test routine (version 3.4.0) --
00028 *
00029 *  -- LAPACK computational routine (version 3.4.0) --
00030 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
00031 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
00032 *     November 2011
00033 *
00034 *  =====================================================================
00035 *     .. Local Scalars ..
00036       INTEGER            I1, I2
00037 *     ..
00038 *     .. External Functions ..
00039       LOGICAL            LSAME
00040       EXTERNAL           LSAME
00041 *     ..
00042 *     .. Intrinsic Functions ..
00043       INTRINSIC          ICHAR
00044 *     ..
00045 *     .. Executable Statements ..
00046 *
00047 *
00048 *     Determine the character set.
00049 *
00050       I1 = ICHAR( 'A' )
00051       I2 = ICHAR( 'a' )
00052       IF( I2-I1.EQ.32 ) THEN
00053          WRITE( *, * ) ' ASCII character set'
00054       ELSE
00055          WRITE( *, * ) ' Non-ASCII character set, IOFF should be ',I2-I1
00056       END IF
00057 *
00058 *     Test LSAME.
00059 *
00060       IF( .NOT. LSAME( 'A', 'A' ) )
00061      $   WRITE( *, 9999 )'A', 'A'
00062       IF( .NOT. LSAME( 'A', 'a' ) )
00063      $   WRITE( *, 9999 )'A', 'a'
00064       IF( .NOT. LSAME( 'a', 'A' ) )
00065      $   WRITE( *, 9999 )'a', 'A'
00066       IF( .NOT. LSAME( 'a', 'a' ) )
00067      $   WRITE( *, 9999 )'a', 'a'
00068       IF( LSAME( 'A', 'B' ) )
00069      $   WRITE( *, 9998 )'A', 'B'
00070       IF( LSAME( 'A', 'b' ) )
00071      $   WRITE( *, 9998 )'A', 'b'
00072       IF( LSAME( 'a', 'B' ) )
00073      $   WRITE( *, 9998 )'a', 'B'
00074       IF( LSAME( 'a', 'b' ) )
00075      $   WRITE( *, 9998 )'a', 'b'
00076       IF( LSAME( 'O', '/' ) )
00077      $   WRITE( *, 9998 )'O', '/'
00078       IF( LSAME( '/', 'O' ) )
00079      $   WRITE( *, 9998 )'/', 'O'
00080       IF( LSAME( 'o', '/' ) )
00081      $   WRITE( *, 9998 )'o', '/'
00082       IF( LSAME( '/', 'o' ) )
00083      $   WRITE( *, 9998 )'/', 'o'
00084       WRITE( *, * )' Tests completed'
00085 *
00086  9999 FORMAT( ' *** Error:  LSAME( ', A1, ', ', A1, ') is .FALSE.' )
00087  9998 FORMAT( ' *** Error:  LSAME( ', A1, ', ', A1, ') is .TRUE.' )
00088       END
 All Files Functions