LSAME(3) LAPACK auxiliary routine (version 1.0) LSAME(3)LSAME(3) BLAS routine LSAME(3)NAME
LSAME - return .TRUE
SYNOPSIS
LOGICAL FUNCTION LSAME( CA, CB )
CHARACTER CA, CB
PURPOSE
LSAME returns .TRUE. if CA is the same letter as CB regardless of case.
ARGUMENTS
CA (input) CHARACTER*1
CB (input) CHARACTER*1 CA and CB specify the single characters to be compared.
Test if the characters are equal
Now test for equivalence if both characters are alphabetic.
Use 'Z' rather than 'A' so that ASCII can be detected on Prime machines, on which ICHAR returns a value with bit 8 set. ICHAR('A')
on Prime machines returns 193 which is the same as ICHAR('A') on an EBCDIC machine.
ASCII is assumed - ZCODE is the ASCII code of either lower or upper case 'Z'.
EBCDIC is assumed - ZCODE is the EBCDIC code of either lower or upper case 'Z'.
ASCII is assumed, on Prime machines - ZCODE is the ASCII code plus 128 of either lower or upper case 'Z'.
RETURN
End of LSAME
BLAS routine 16 October 1992 LSAME(3)
Check Out this Related Man Page
INTERCAL::Charset::EBCDIC(3pm) User Contributed Perl Documentation INTERCAL::Charset::EBCDIC(3pm)NAME
Charset::EBCDIC - allows to use EBCDIC string constants in ASCII programs (and v.v.)
SYNOPSIS
use Charset::EBCDIC 'ascii2abcdic';
my $a = ebcdic2ascii "(EBCDIC text)";
DESCRIPTION
Charset::EBCDIC defines functions to convert between a subset of ASCII and a subset of nonstandard EBCDIC (since there isn't such a thing
as a standard EBCDIC we defined our own variant which is guaranteed to be incompatible with all versions of EBCDIC used by IBM hardware -
however, when we have chosen a code for a character, we have made sure that at least one - but certainly not all - IBM models used that
same code, so the choice cannot be criticised). If you really want to know, several variants of EBCDIC are listed in RFC 1345, which is
available from the usual sources.
Two functions, ebcdic2ascii and ascii2ebcdic are exportable but not exported by default. They do the obvious thing to their first argument
and return the transformed string.
EBCDIC CHARACTER TABLE
The following are the characters recognised. The ones shown as 2 letter abbreviations cannot be translated to ASCII (except for the control
characters, which do have an ASCII equivalent).
+ 0 1 2 3 4 5 6 7 8 9 a b c d e f Notes
00 OV TA LF CR OV=overstrike
10 TA=tab
20 LF=linefeed
30 CR=carr-return
40 SP CT . < ( + ! SP=space
50 & ] $ * ) ; NO CT=cents
60 - / XO | , % _ > ? NO=not-sign
70 : # @ ' = " XO=XOR(1)
80 a b c d e f g h i
90 j k l m n o p q r { [
a0 ~ s t u v w x y z RE RE=registered
b0 ^ PO CO PO=pound
c0 A B C D E F G H I CO=copyright
d0 J K L M N O P Q R }
e0 S T U V W X Y Z
f0 0 1 2 3 4 5 6 7 8 9 DE DE=delete(1) The symbol for the INTECAL XOR operator, "V overstrike -".
COPYRIGHT
This module is part of CLC-INTERCAL.
Copyright (C) 1999, 2000, 2002, 2006, 2007 Claudio Calvelli, all rights reserved
See the files README and COPYING in the distribution for information.
SEE ALSO
A qualified psychiatrist.
perl v5.8.8 2008-03-29 INTERCAL::Charset::EBCDIC(3pm)