lsametst man page on Scientific
[printable version]
LSAMETST(1) LAPACK test routine (version 3.2) LSAMETST(1)
NAME
SYNOPSIS
PROGRAM TEST1
INTEGER I1, I2
LOGICAL LSAME
EXTERNAL LSAME
INTRINSIC ICHAR
I1 = ICHAR( 'A' )
I2 = ICHAR( 'a' )
IF( I2-I1.EQ.32 ) THEN
WRITE( *, * ) ' ASCII character set'
ELSE
WRITE( *, * ) ' Non-ASCII character set, IOFF should be ',I2-I1
END IF
IF( WRITE( *, 9999 )'A', 'A'
IF( WRITE( *, 9999 )'A', 'a'
IF( WRITE( *, 9999 )'a', 'A'
IF( WRITE( *, 9999 )'a', 'a'
IF( LSAME( 'A', 'B' ) ) WRITE( *, 9998 )'A', 'B'
IF( LSAME( 'A', 'b' ) ) WRITE( *, 9998 )'A', 'b'
IF( LSAME( 'a', 'B' ) ) WRITE( *, 9998 )'a', 'B'
IF( LSAME( 'a', 'b' ) ) WRITE( *, 9998 )'a', 'b'
IF( LSAME( 'O', '/' ) ) WRITE( *, 9998 )'O', '/'
IF( LSAME( '/', 'O' ) ) WRITE( *, 9998 )'/', 'O'
IF( LSAME( 'o', '/' ) ) WRITE( *, 9998 )'o', '/'
IF( LSAME( '/', 'o' ) ) WRITE( *, 9998 )'/', 'o'
WRITE( *, * )' Tests completed'
9999 FORMAT( ' *** Error: LSAME( ', A1, ', ', A1, ') is
.FALSE.' )
9998 FORMAT( ' *** Error: LSAME( ', A1, ', ', A1, ') is
.TRUE.' )
END
PURPOSE
LAPACK test routine (version 3.2November 2008 LSAMETST(1)
[top]
List of man pages available for Scientific
Copyright (c) for man pages and the logo by the respective OS vendor.
For those who want to learn more, the polarhome community provides shell access and support.
[legal]
[privacy]
[GNU]
[policy]
[cookies]
[netiquette]
[sponsors]
[FAQ]
Polarhome, production since 1999.
Member of Polarhome portal.
Based on Fawad Halim's script.
....................................................................
|
|
Vote for polarhome
|
