Changed lsame implementation.
parent
7de3b99b49
commit
49a1cdec3a
@ -1,57 +0,0 @@
|
|||||||
/*
|
|
||||||
* Parallel Sparse BLAS v2.0
|
|
||||||
* (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata
|
|
||||||
* Alfredo Buttari University of Rome Tor Vergata
|
|
||||||
*
|
|
||||||
* Redistribution and use in source and binary forms, with or without
|
|
||||||
* modification, are permitted provided that the following conditions
|
|
||||||
* are met:
|
|
||||||
* 1. Redistributions of source code must retain the above copyright
|
|
||||||
* notice, this list of conditions and the following disclaimer.
|
|
||||||
* 2. Redistributions in binary form must reproduce the above copyright
|
|
||||||
* notice, this list of conditions, and the following disclaimer in the
|
|
||||||
* documentation and/or other materials provided with the distribution.
|
|
||||||
* 3. The name of the PSBLAS group or the names of its contributors may
|
|
||||||
* not be used to endorse or promote products derived from this
|
|
||||||
* software without specific written permission.
|
|
||||||
*
|
|
||||||
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
|
||||||
* ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
|
|
||||||
* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
|
|
||||||
* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS
|
|
||||||
* BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
|
|
||||||
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
|
|
||||||
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
|
||||||
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
|
||||||
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
|
|
||||||
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
|
|
||||||
* POSSIBILITY OF SUCH DAMAGE.
|
|
||||||
*
|
|
||||||
*/
|
|
||||||
#include <ctype.h>
|
|
||||||
#define FTRUE 1
|
|
||||||
#define FFALSE 0
|
|
||||||
|
|
||||||
#ifdef Add_
|
|
||||||
#define lsame lsame_
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#ifdef UpCase
|
|
||||||
#define lsame LSAME
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#ifdef NoChange
|
|
||||||
#define lsame lsame
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
int lsame(a,b,la,lb)
|
|
||||||
char *a, *b;
|
|
||||||
int la,lb;
|
|
||||||
{
|
|
||||||
if ((tolower(*a))==(tolower(*b))) {
|
|
||||||
return(FTRUE);
|
|
||||||
} else {
|
|
||||||
return(FFALSE);
|
|
||||||
}
|
|
||||||
}
|
|
@ -0,0 +1,7 @@
|
|||||||
|
function lsame(a,b)
|
||||||
|
use psb_string_mod
|
||||||
|
logical :: lsame
|
||||||
|
character(len=1) :: a, b
|
||||||
|
|
||||||
|
lsame = (tolower(a) == tolower(b))
|
||||||
|
end function lsame
|
Loading…
Reference in New Issue