fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 10:52:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas2-dev:

Browse Source 
base/psblas/psb_damax.f90
 base/psblas/psb_zamax.f90

Merged fix for uninitialized values.
This commit is contained in:
Salvatore Filippone
2008-03-31 11:31:01 +00:00
parent 4e0c233a48
commit 75ab90328d
2 changed files with 16 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/psblas/psb_damax.f90
+8
View File
@@ -107,6 +107,8 @@ function psb_damax (x,desc_a, info, jx)
if ((psb_cd_get_local_rows(desc_a) > 0).and.(m /= 0)) then
imax=idamax(psb_cd_get_local_rows(desc_a)-iix+1,x(iix,jjx),1)
amax=abs(x(iix+imax-1,jjx))
else
amax = dzero
end if
! compute global max
@@ -230,6 +232,8 @@ function psb_damaxv (x,desc_a, info)
if ((psb_cd_get_local_rows(desc_a) > 0).and.(m /= 0)) then
imax=idamax(psb_cd_get_local_rows(desc_a)-iix+1,x(iix),1)
amax=abs(x(iix+imax-1))
else
amax = dzero
end if
! compute global max
@@ -354,6 +358,8 @@ subroutine psb_damaxvs (res,x,desc_a, info)
if ((psb_cd_get_local_rows(desc_a) > 0).and.(m /= 0)) then
imax=idamax(psb_cd_get_local_rows(desc_a)-iix+1,x(iix),1)
amax=abs(x(iix+imax-1))
else
amax = dzero
end if
! compute global max
@@ -484,6 +490,8 @@ subroutine psb_dmamaxs (res,x,desc_a, info,jx)
imax=idamax(psb_cd_get_local_rows(desc_a)-iix+1,x(iix,jjx+i-1),1)
res(i)=abs(x(iix+imax-1,jjx+i-1))
end do
else
amax = dzero
end if
! compute global max
base/psblas/psb_zamax.f90
+8
View File
@@ -110,6 +110,8 @@ function psb_zamax (x,desc_a, info, jx)
if ((psb_cd_get_local_rows(desc_a) > 0).and.(m /= 0)) then
imax=izamax(psb_cd_get_local_rows(desc_a)-iix+1,x(iix,jjx),1)
amax=cabs1(x(iix+imax-1,jjx))
else
amax = dzero
end if
! compute global max
@@ -238,6 +240,8 @@ function psb_zamaxv (x,desc_a, info)
imax=izamax(psb_cd_get_local_rows(desc_a)-iix+1,x(iix),1)
cmax=(x(iix+imax-1))
amax=cabs1(cmax)
else
amax = dzero
end if
! compute global max
@@ -366,6 +370,8 @@ subroutine psb_zamaxvs(res,x,desc_a, info)
imax=izamax(psb_cd_get_local_rows(desc_a)-iix+1,x(iix),1)
cmax=(x(iix+imax-1))
amax=cabs1(cmax)
else
amax = dzero
end if
! compute global max
@@ -501,6 +507,8 @@ subroutine psb_zmamaxs(res,x,desc_a, info,jx)
cmax=(x(iix+imax-1,jjx+i-1))
res(i)=cabs1(cmax)
end do
else
amax = dzero
end if
! compute global max