Changed lsame implementation.

src/serial/Makefile

@@ -6,7 +6,7 @@ FOBJS = psb_cest.o psb_dcoins.o psb_dcsdp.o psb_dcsmm.o psb_dcsmv.o \
 	psb_dfixcoo.o psb_dipcoo2csr.o psb_dipcsr2coo.o psb_dneigh.o \
 	psb_dnumbmm.o psb_drwextd.o psb_dspgtdiag.o psb_dspgtrow.o \
 	psb_dspinfo.o psb_dspscal.o psb_dsymbmm.o psb_dtransp.o \
-	psb_dipcoo2csc.o \
+	psb_dipcoo2csc.o lsame.o\
 	psb_zcsmm.o psb_zcsmv.o  psb_zspgtdiag.o psb_zspgtrow.o\
 	psb_zcsnmi.o psb_zcsrws.o psb_zcssm.o psb_zcssv.o psb_zcsdp.o\
 	psb_zfixcoo.o psb_zipcoo2csr.o psb_zipcsr2coo.o psb_zipcoo2csc.o \

src/serial/aux/Makefile

@@ -3,7 +3,7 @@ include ../../../Make.inc
 # The object files
 #
 
-FOBJS  = isr.o isrx.o lsame.o \
+FOBJS  = isr.o isrx.o \
 	mrgsrt.o isaperm.o ibsrch.o
 
 

src/serial/aux/ibsrch.f

@@ -31,10 +31,10 @@ C
       subroutine ibsrch(ipos,key,n,v)
       integer ipos, key, n
       integer v(n)
-
+      
       integer lb, ub, m
       
-
+      
       lb = 1 
       ub = n
       ipos = -1 

src/serial/aux/lsame.c

@@ -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);
-  }
-}

src/serial/lsame.f90

@@ -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