![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
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