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

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

Browse Source
This commit is contained in:
Salvatore Filippone
2019-01-23 17:02:36 +00:00
parent d3c6bfb5f1
commit c29ea43990
4 changed files with 24 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/psb_crwextd.f90
+6 -6
View File
@@ -149,7 +149,7 @@ subroutine psb_cbase_rwextd(nr,a,info,b,rowscale)
end do
end do
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
class default
@@ -159,8 +159,8 @@ subroutine psb_cbase_rwextd(nr,a,info,b,rowscale)
else
do i=ma+2,nr+1
a%irp(i) = a%irp(i-1)
do j=ma+2,nr+1
a%irp(j) = a%irp(j-1)
end do
end if
@@ -354,7 +354,7 @@ subroutine psb_lcbase_rwextd(nr,a,info,b,rowscale)
end do
end do
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
class default
@@ -364,8 +364,8 @@ subroutine psb_lcbase_rwextd(nr,a,info,b,rowscale)
else
do i=ma+2,nr+1
a%irp(i) = a%irp(i-1)
do j=ma+2,nr+1
a%irp(j) = a%irp(j-1)
end do
end if
base/serial/psb_drwextd.f90
+6 -6
View File
@@ -149,7 +149,7 @@ subroutine psb_dbase_rwextd(nr,a,info,b,rowscale)
end do
end do
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
class default
@@ -159,8 +159,8 @@ subroutine psb_dbase_rwextd(nr,a,info,b,rowscale)
else
do i=ma+2,nr+1
a%irp(i) = a%irp(i-1)
do j=ma+2,nr+1
a%irp(j) = a%irp(j-1)
end do
end if
@@ -354,7 +354,7 @@ subroutine psb_ldbase_rwextd(nr,a,info,b,rowscale)
end do
end do
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
class default
@@ -364,8 +364,8 @@ subroutine psb_ldbase_rwextd(nr,a,info,b,rowscale)
else
do i=ma+2,nr+1
a%irp(i) = a%irp(i-1)
do j=ma+2,nr+1
a%irp(j) = a%irp(j-1)
end do
end if
base/serial/psb_srwextd.f90
+6 -6
View File
@@ -149,7 +149,7 @@ subroutine psb_sbase_rwextd(nr,a,info,b,rowscale)
end do
end do
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
class default
@@ -159,8 +159,8 @@ subroutine psb_sbase_rwextd(nr,a,info,b,rowscale)
else
do i=ma+2,nr+1
a%irp(i) = a%irp(i-1)
do j=ma+2,nr+1
a%irp(j) = a%irp(j-1)
end do
end if
@@ -354,7 +354,7 @@ subroutine psb_lsbase_rwextd(nr,a,info,b,rowscale)
end do
end do
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
class default
@@ -364,8 +364,8 @@ subroutine psb_lsbase_rwextd(nr,a,info,b,rowscale)
else
do i=ma+2,nr+1
a%irp(i) = a%irp(i-1)
do j=ma+2,nr+1
a%irp(j) = a%irp(j-1)
end do
end if
base/serial/psb_zrwextd.f90
+6 -6
View File
@@ -149,7 +149,7 @@ subroutine psb_zbase_rwextd(nr,a,info,b,rowscale)
end do
end do
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
class default
@@ -159,8 +159,8 @@ subroutine psb_zbase_rwextd(nr,a,info,b,rowscale)
else
do i=ma+2,nr+1
a%irp(i) = a%irp(i-1)
do j=ma+2,nr+1
a%irp(j) = a%irp(j-1)
end do
end if
@@ -354,7 +354,7 @@ subroutine psb_lzbase_rwextd(nr,a,info,b,rowscale)
end do
end do
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
class default
@@ -364,8 +364,8 @@ subroutine psb_lzbase_rwextd(nr,a,info,b,rowscale)
else
do i=ma+2,nr+1
a%irp(i) = a%irp(i-1)
do j=ma+2,nr+1
a%irp(j) = a%irp(j-1)
end do
end if