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

Fix silly bug in rw_extd cleanup code when NR > MA+MB.

Browse Source
scr-persistent-collective
Salvatore Filippone 6 years ago
parent d3c6bfb5f1
commit c29ea43990
4 changed files with 24 additions and 24 deletions
Show Stats Download Patch File Download Diff File

12
base/serial/psb_crwextd.f90
Unescape Escape View File

@ -149,7 +149,7 @@ subroutine psb_cbase_rwextd(nr,a,info,b,rowscale)
end do end do
end do end do
do j=i,nr-ma do j=i,nr-ma
a%irp(ma+i+1) = a%irp(ma+i) a%irp(ma+j+1) = a%irp(ma+j)
end do end do
class default class default
@ -159,8 +159,8 @@ subroutine psb_cbase_rwextd(nr,a,info,b,rowscale)
else else
do i=ma+2,nr+1 do j=ma+2,nr+1
a%irp(i) = a%irp(i-1) a%irp(j) = a%irp(j-1)
end do end do
end if end if
@ -354,7 +354,7 @@ subroutine psb_lcbase_rwextd(nr,a,info,b,rowscale)
end do end do
end do end do
do j=i,nr-ma do j=i,nr-ma
a%irp(ma+i+1) = a%irp(ma+i) a%irp(ma+j+1) = a%irp(ma+j)
end do end do
class default class default
@ -364,8 +364,8 @@ subroutine psb_lcbase_rwextd(nr,a,info,b,rowscale)
else else
do i=ma+2,nr+1 do j=ma+2,nr+1
a%irp(i) = a%irp(i-1) a%irp(j) = a%irp(j-1)
end do end do
end if end if

12
base/serial/psb_drwextd.f90
Unescape Escape View File

@ -149,7 +149,7 @@ subroutine psb_dbase_rwextd(nr,a,info,b,rowscale)
end do end do
end do end do
do j=i,nr-ma do j=i,nr-ma
a%irp(ma+i+1) = a%irp(ma+i) a%irp(ma+j+1) = a%irp(ma+j)
end do end do
class default class default
@ -159,8 +159,8 @@ subroutine psb_dbase_rwextd(nr,a,info,b,rowscale)
else else
do i=ma+2,nr+1 do j=ma+2,nr+1
a%irp(i) = a%irp(i-1) a%irp(j) = a%irp(j-1)
end do end do
end if end if
@ -354,7 +354,7 @@ subroutine psb_ldbase_rwextd(nr,a,info,b,rowscale)
end do end do
end do end do
do j=i,nr-ma do j=i,nr-ma
a%irp(ma+i+1) = a%irp(ma+i) a%irp(ma+j+1) = a%irp(ma+j)
end do end do
class default class default
@ -364,8 +364,8 @@ subroutine psb_ldbase_rwextd(nr,a,info,b,rowscale)
else else
do i=ma+2,nr+1 do j=ma+2,nr+1
a%irp(i) = a%irp(i-1) a%irp(j) = a%irp(j-1)
end do end do
end if end if

12
base/serial/psb_srwextd.f90
Unescape Escape View File

@ -149,7 +149,7 @@ subroutine psb_sbase_rwextd(nr,a,info,b,rowscale)
end do end do
end do end do
do j=i,nr-ma do j=i,nr-ma
a%irp(ma+i+1) = a%irp(ma+i) a%irp(ma+j+1) = a%irp(ma+j)
end do end do
class default class default
@ -159,8 +159,8 @@ subroutine psb_sbase_rwextd(nr,a,info,b,rowscale)
else else
do i=ma+2,nr+1 do j=ma+2,nr+1
a%irp(i) = a%irp(i-1) a%irp(j) = a%irp(j-1)
end do end do
end if end if
@ -354,7 +354,7 @@ subroutine psb_lsbase_rwextd(nr,a,info,b,rowscale)
end do end do
end do end do
do j=i,nr-ma do j=i,nr-ma
a%irp(ma+i+1) = a%irp(ma+i) a%irp(ma+j+1) = a%irp(ma+j)
end do end do
class default class default
@ -364,8 +364,8 @@ subroutine psb_lsbase_rwextd(nr,a,info,b,rowscale)
else else
do i=ma+2,nr+1 do j=ma+2,nr+1
a%irp(i) = a%irp(i-1) a%irp(j) = a%irp(j-1)
end do end do
end if end if

12
base/serial/psb_zrwextd.f90
Unescape Escape View File

@ -149,7 +149,7 @@ subroutine psb_zbase_rwextd(nr,a,info,b,rowscale)
end do end do
end do end do
do j=i,nr-ma do j=i,nr-ma
a%irp(ma+i+1) = a%irp(ma+i) a%irp(ma+j+1) = a%irp(ma+j)
end do end do
class default class default
@ -159,8 +159,8 @@ subroutine psb_zbase_rwextd(nr,a,info,b,rowscale)
else else
do i=ma+2,nr+1 do j=ma+2,nr+1
a%irp(i) = a%irp(i-1) a%irp(j) = a%irp(j-1)
end do end do
end if end if
@ -354,7 +354,7 @@ subroutine psb_lzbase_rwextd(nr,a,info,b,rowscale)
end do end do
end do end do
do j=i,nr-ma do j=i,nr-ma
a%irp(ma+i+1) = a%irp(ma+i) a%irp(ma+j+1) = a%irp(ma+j)
end do end do
class default class default
@ -364,8 +364,8 @@ subroutine psb_lzbase_rwextd(nr,a,info,b,rowscale)
else else
do i=ma+2,nr+1 do j=ma+2,nr+1
a%irp(i) = a%irp(i-1) a%irp(j) = a%irp(j-1)
end do end do
end if end if

Write Preview
Loading…
Cancel
Save