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

Take out IBASE from exscan, makes no sense.

Browse Source
This commit is contained in:
sfilippone
2023-04-20 12:31:32 +02:00
parent 08ff37332a
commit f3efea0a89
22 changed files with 59 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_csc_impl.F90
+2 -2
View File
@@ -2243,7 +2243,7 @@ subroutine psb_c_mv_csc_from_coo(a,b,info)
!$OMP END ATOMIC
end do
!$OMP END DO
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione)
call psi_exscan(nc+1,a%icp,info,shift=ione)
!$OMP END PARALLEL
#else
a%icp(:) = 0
@@ -2251,7 +2251,7 @@ subroutine psb_c_mv_csc_from_coo(a,b,info)
i = itemp(k)
a%icp(i) = a%icp(i) + 1
end do
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione)
call psi_exscan(nc+1,a%icp,info,shift=ione)
#endif
call a%set_host()
base/serial/impl/psb_c_csr_impl.F90
+4 -4
View File
@@ -2935,7 +2935,7 @@ subroutine psb_c_cp_csr_from_coo(a,b,info)
!$OMP END ATOMIC
end do
!$OMP END DO
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione)
call psi_exscan(nr+1,a%irp,info,shift=ione)
!$OMP END PARALLEL
#else
a%irp(:) = 0
@@ -2943,7 +2943,7 @@ subroutine psb_c_cp_csr_from_coo(a,b,info)
i = itemp(k)
a%irp(i) = a%irp(i) + 1
end do
call psi_exscan(nr+1,a%irp,info,shift=cone,ibase=ione)
call psi_exscan(nr+1,a%irp,info,shift=ione)
#endif
call a%set_host()
@@ -3103,7 +3103,7 @@ subroutine psb_c_mv_csr_from_coo(a,b,info)
!$OMP END ATOMIC
end do
!$OMP END DO
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione)
call psi_exscan(nr+1,a%irp,info,shift=ione)
!$OMP END PARALLEL
#else
a%irp(:) = 0
@@ -3111,7 +3111,7 @@ subroutine psb_c_mv_csr_from_coo(a,b,info)
i = itemp(k)
a%irp(i) = a%irp(i) + 1
end do
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione)
call psi_exscan(nr+1,a%irp,info,shift=ione)
#endif
call a%set_host()
base/serial/impl/psb_d_csc_impl.F90
+2 -2
View File
@@ -2243,7 +2243,7 @@ subroutine psb_d_mv_csc_from_coo(a,b,info)
!$OMP END ATOMIC
end do
!$OMP END DO
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione)
call psi_exscan(nc+1,a%icp,info,shift=ione)
!$OMP END PARALLEL
#else
a%icp(:) = 0
@@ -2251,7 +2251,7 @@ subroutine psb_d_mv_csc_from_coo(a,b,info)
i = itemp(k)
a%icp(i) = a%icp(i) + 1
end do
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione)
call psi_exscan(nc+1,a%icp,info,shift=ione)
#endif
call a%set_host()
base/serial/impl/psb_d_csr_impl.F90
+4 -4
View File
@@ -2935,7 +2935,7 @@ subroutine psb_d_cp_csr_from_coo(a,b,info)
!$OMP END ATOMIC
end do
!$OMP END DO
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione)
call psi_exscan(nr+1,a%irp,info,shift=ione)
!$OMP END PARALLEL
#else
a%irp(:) = 0
@@ -2943,7 +2943,7 @@ subroutine psb_d_cp_csr_from_coo(a,b,info)
i = itemp(k)
a%irp(i) = a%irp(i) + 1
end do
call psi_exscan(nr+1,a%irp,info,shift=done,ibase=ione)
call psi_exscan(nr+1,a%irp,info,shift=ione)
#endif
call a%set_host()
@@ -3103,7 +3103,7 @@ subroutine psb_d_mv_csr_from_coo(a,b,info)
!$OMP END ATOMIC
end do
!$OMP END DO
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione)
call psi_exscan(nr+1,a%irp,info,shift=ione)
!$OMP END PARALLEL
#else
a%irp(:) = 0
@@ -3111,7 +3111,7 @@ subroutine psb_d_mv_csr_from_coo(a,b,info)
i = itemp(k)
a%irp(i) = a%irp(i) + 1
end do
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione)
call psi_exscan(nr+1,a%irp,info,shift=ione)
#endif
call a%set_host()
base/serial/impl/psb_s_csc_impl.F90
+2 -2
View File
@@ -2243,7 +2243,7 @@ subroutine psb_s_mv_csc_from_coo(a,b,info)
!$OMP END ATOMIC
end do
!$OMP END DO
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione)
call psi_exscan(nc+1,a%icp,info,shift=ione)
!$OMP END PARALLEL
#else
a%icp(:) = 0
@@ -2251,7 +2251,7 @@ subroutine psb_s_mv_csc_from_coo(a,b,info)
i = itemp(k)
a%icp(i) = a%icp(i) + 1
end do
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione)
call psi_exscan(nc+1,a%icp,info,shift=ione)
#endif
call a%set_host()
base/serial/impl/psb_s_csr_impl.F90
+4 -4
View File
@@ -2935,7 +2935,7 @@ subroutine psb_s_cp_csr_from_coo(a,b,info)
!$OMP END ATOMIC
end do
!$OMP END DO
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione)
call psi_exscan(nr+1,a%irp,info,shift=ione)
!$OMP END PARALLEL
#else
a%irp(:) = 0
@@ -2943,7 +2943,7 @@ subroutine psb_s_cp_csr_from_coo(a,b,info)
i = itemp(k)
a%irp(i) = a%irp(i) + 1
end do
call psi_exscan(nr+1,a%irp,info,shift=sone,ibase=ione)
call psi_exscan(nr+1,a%irp,info,shift=ione)
#endif
call a%set_host()
@@ -3103,7 +3103,7 @@ subroutine psb_s_mv_csr_from_coo(a,b,info)
!$OMP END ATOMIC
end do
!$OMP END DO
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione)
call psi_exscan(nr+1,a%irp,info,shift=ione)
!$OMP END PARALLEL
#else
a%irp(:) = 0
@@ -3111,7 +3111,7 @@ subroutine psb_s_mv_csr_from_coo(a,b,info)
i = itemp(k)
a%irp(i) = a%irp(i) + 1
end do
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione)
call psi_exscan(nr+1,a%irp,info,shift=ione)
#endif
call a%set_host()
base/serial/impl/psb_z_csc_impl.F90
+2 -2
View File
@@ -2243,7 +2243,7 @@ subroutine psb_z_mv_csc_from_coo(a,b,info)
!$OMP END ATOMIC
end do
!$OMP END DO
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione)
call psi_exscan(nc+1,a%icp,info,shift=ione)
!$OMP END PARALLEL
#else
a%icp(:) = 0
@@ -2251,7 +2251,7 @@ subroutine psb_z_mv_csc_from_coo(a,b,info)
i = itemp(k)
a%icp(i) = a%icp(i) + 1
end do
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione)
call psi_exscan(nc+1,a%icp,info,shift=ione)
#endif
call a%set_host()
base/serial/impl/psb_z_csr_impl.F90
+4 -4
View File
@@ -2935,7 +2935,7 @@ subroutine psb_z_cp_csr_from_coo(a,b,info)
!$OMP END ATOMIC
end do
!$OMP END DO
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione)
call psi_exscan(nr+1,a%irp,info,shift=ione)
!$OMP END PARALLEL
#else
a%irp(:) = 0
@@ -2943,7 +2943,7 @@ subroutine psb_z_cp_csr_from_coo(a,b,info)
i = itemp(k)
a%irp(i) = a%irp(i) + 1
end do
call psi_exscan(nr+1,a%irp,info,shift=zone,ibase=ione)
call psi_exscan(nr+1,a%irp,info,shift=ione)
#endif
call a%set_host()
@@ -3103,7 +3103,7 @@ subroutine psb_z_mv_csr_from_coo(a,b,info)
!$OMP END ATOMIC
end do
!$OMP END DO
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione)
call psi_exscan(nr+1,a%irp,info,shift=ione)
!$OMP END PARALLEL
#else
a%irp(:) = 0
@@ -3111,7 +3111,7 @@ subroutine psb_z_mv_csr_from_coo(a,b,info)
i = itemp(k)
a%irp(i) = a%irp(i) + 1
end do
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione)
call psi_exscan(nr+1,a%irp,info,shift=ione)
#endif
call a%set_host()