fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Changed name from LSAME to PSB_LSAME to avoid name clashes.

Browse Source
psblas3-type-indexed
Salvatore Filippone 18 years ago
parent f30edc6ed1
commit 5925e6c9e6
7 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File

10
base/psblas/pdtreecomb.F
Unescape Escape View File

@ -106,8 +106,8 @@ C
#endif #endif
* .. * ..
* .. External Functions .. * .. External Functions ..
LOGICAL LSAME LOGICAL PSB_LSAME
EXTERNAL LSAME EXTERNAL PSB_LSAME
* .. * ..
* .. Intrinsic Functions .. * .. Intrinsic Functions ..
INTRINSIC MOD INTRINSIC MOD
@ -133,8 +133,8 @@ C
* *
* Figure scope-dependant variables, or report illegal scope * Figure scope-dependant variables, or report illegal scope
* *
RSCOPE = LSAME( SCOPE, 'R' ) RSCOPE = PSB_LSAME( SCOPE, 'R' )
CSCOPE = LSAME( SCOPE, 'C' ) CSCOPE = PSB_LSAME( SCOPE, 'C' )
* *
IF( RSCOPE ) THEN IF( RSCOPE ) THEN
IF( BCAST ) THEN IF( BCAST ) THEN
@ -152,7 +152,7 @@ C
END IF END IF
NP = NPROW NP = NPROW
MYDIST = MOD( NPROW + MYROW - TRDEST, NPROW ) MYDIST = MOD( NPROW + MYROW - TRDEST, NPROW )
ELSE IF( LSAME( SCOPE, 'A' ) ) THEN ELSE IF( PSB_LSAME( SCOPE, 'A' ) ) THEN
NP = NPROW * NPCOL NP = NPROW * NPCOL
IAM = MYROW*NPCOL + MYCOL IAM = MYROW*NPCOL + MYCOL
DEST = TRDEST*NPCOL + TCDEST DEST = TRDEST*NPCOL + TCDEST

2
base/serial/Makefile
Unescape Escape View File

@ -6,7 +6,7 @@ FOBJS = psb_cest.o psb_dcoins.o psb_dcsmm.o psb_dcsmv.o \
psb_dfixcoo.o psb_dipcoo2csr.o psb_dipcsr2coo.o psb_dneigh.o \ psb_dfixcoo.o psb_dipcoo2csr.o psb_dipcsr2coo.o psb_dneigh.o \
psb_dnumbmm.o psb_drwextd.o psb_dspgtdiag.o psb_dspgtblk.o \ psb_dnumbmm.o psb_drwextd.o psb_dspgtdiag.o psb_dspgtblk.o \
psb_dspscal.o psb_dsymbmm.o psb_dtransp.o psb_dspclip.o psb_dspcnv.o\ psb_dspscal.o psb_dsymbmm.o psb_dtransp.o psb_dspclip.o psb_dspcnv.o\
psb_regen_mod.o psb_dipcoo2csc.o psb_dspgetrow.o lsame.o psb_zspgetrow.o\ psb_regen_mod.o psb_dipcoo2csc.o psb_dspgetrow.o psb_lsame.o psb_zspgetrow.o\
psb_zcsmm.o psb_zcsmv.o psb_zspgtdiag.o psb_zspgtblk.o\ psb_zcsmm.o psb_zcsmv.o psb_zspgtdiag.o psb_zspgtblk.o\
psb_zcsnmi.o psb_zcsrws.o psb_zcssm.o psb_zcssv.o psb_zspcnv.o\ psb_zcsnmi.o psb_zcsrws.o psb_zcssm.o psb_zcssv.o psb_zspcnv.o\
psb_zfixcoo.o psb_zipcoo2csr.o psb_zipcsr2coo.o psb_zipcoo2csc.o \ psb_zfixcoo.o psb_zipcoo2csr.o psb_zipcsr2coo.o psb_zipcoo2csc.o \

8
base/serial/coo/dcoorws.f
Unescape Escape View File

@ -41,11 +41,11 @@ C .. Array Arguments ..
C .. Local scalars .. C .. Local scalars ..
INTEGER I, J, NNZ, K INTEGER I, J, NNZ, K
DOUBLE PRECISION SUM DOUBLE PRECISION SUM
logical lsame logical psb_lsame
external lsame external psb_lsame
NNZ = INFOA(1) NNZ = INFOA(1)
IF (lsame(TRANS,'N')) THEN IF (psb_lsame(TRANS,'N')) THEN
DO I=1, M DO I=1, M
ROWSUM(I) = 0.0D0 ROWSUM(I) = 0.0D0
ENDDO ENDDO
@ -66,7 +66,7 @@ C .. Local scalars ..
I = J I = J
ENDDO ENDDO
ELSE IF (lsame(TRANS,'T').OR.lsame(TRANS,'C')) THEN ELSE IF (psb_lsame(TRANS,'T').OR.psb_lsame(TRANS,'C')) THEN
DO J = 1, N DO J = 1, N
ROWSUM(J) = 0.0D0 ROWSUM(J) = 0.0D0
ENDDO ENDDO

8
base/serial/coo/zcoorws.f
Unescape Escape View File

@ -11,11 +11,11 @@ C .. Array Arguments ..
C .. Local scalars .. C .. Local scalars ..
INTEGER I, J, NNZ, K INTEGER I, J, NNZ, K
DOUBLE PRECISION SUM DOUBLE PRECISION SUM
logical lsame logical psb_lsame
external lsame external psb_lsame
NNZ = INFOA(1) NNZ = INFOA(1)
IF (lsame(TRANS,'N')) THEN IF (psb_lsame(TRANS,'N')) THEN
DO I=1, M DO I=1, M
ROWSUM(I) = 0.0D0 ROWSUM(I) = 0.0D0
ENDDO ENDDO
@ -36,7 +36,7 @@ C .. Local scalars ..
I = J I = J
ENDDO ENDDO
ELSE IF (lsame(TRANS,'T').OR.lsame(TRANS,'C')) THEN ELSE IF (psb_lsame(TRANS,'T').OR.psb_lsame(TRANS,'C')) THEN
DO J = 1, N DO J = 1, N
ROWSUM(J) = 0.0D0 ROWSUM(J) = 0.0D0
ENDDO ENDDO

8
base/serial/f77/dgelp.f
Unescape Escape View File

@ -104,8 +104,8 @@ C .. Local Arrays..
INTEGER INT_VAL INTEGER INT_VAL
C .. Intrinsic Functions .. C .. Intrinsic Functions ..
INTRINSIC DBLE INTRINSIC DBLE
logical lsame logical psb_lsame
external lsame external psb_lsame
character*20 name character*20 name
c c
@ -118,8 +118,8 @@ C
IERROR = 0 IERROR = 0
CALL FCPSB_ERRACTIONSAVE(ERR_ACT) CALL FCPSB_ERRACTIONSAVE(ERR_ACT)
isnotran = lsame(trans,'N') isnotran = psb_lsame(trans,'N')
istran = lsame(trans,'T') .or. lsame(trans,'C') istran = psb_lsame(trans,'T') .or. psb_lsame(trans,'C')
IF (M.LT.0) THEN IF (M.LT.0) THEN
IERROR = 7 IERROR = 7
ELSE IF(N.LT.0) THEN ELSE IF(N.LT.0) THEN

8
base/serial/f77/zgelp.f
Unescape Escape View File

@ -104,8 +104,8 @@ C .. Local Arrays..
INTEGER INT_VAL INTEGER INT_VAL
C .. Intrinsic Functions .. C .. Intrinsic Functions ..
INTRINSIC DBLE INTRINSIC DBLE
logical lsame logical psb_lsame
external lsame external psb_lsame
character*20 name character*20 name
c c
@ -118,8 +118,8 @@ C
IERROR = 0 IERROR = 0
CALL FCPSB_ERRACTIONSAVE(ERR_ACT) CALL FCPSB_ERRACTIONSAVE(ERR_ACT)
isnotran = lsame(trans,'N') isnotran = psb_lsame(trans,'N')
istran = lsame(trans,'T') .or. lsame(trans,'C') istran = psb_lsame(trans,'T') .or. psb_lsame(trans,'C')
IF (M.LT.0) THEN IF (M.LT.0) THEN
IERROR = 7 IERROR = 7
ELSE IF(N.LT.0) THEN ELSE IF(N.LT.0) THEN

8
base/serial/lsame.f90 → base/serial/psb_lsame.f90
Unescape Escape View File

@ -28,10 +28,10 @@
!!$ POSSIBILITY OF SUCH DAMAGE. !!$ POSSIBILITY OF SUCH DAMAGE.
!!$ !!$
!!$ !!$
function lsame(a,b) function psb_lsame(a,b)
use psb_string_mod use psb_string_mod
logical :: lsame logical :: psb_lsame
character(len=1) :: a, b character(len=1) :: a, b
lsame = (tolower(a) == tolower(b)) psb_lsame = (tolower(a) == tolower(b))
end function lsame end function psb_lsame
Write Preview
Loading…
Cancel
Save