Updated use of exscan in CSC

base/serial/impl/psb_c_csc_impl.F90

@@ -2228,16 +2228,14 @@ subroutine psb_c_mv_csc_from_coo(a,b,info)
 
 #if defined(OPENMP)
 
-  !$OMP PARALLEL default(none) &
-  !$OMP shared(nr,a,itemp,nza) &
-  !$OMP private(i,info)
+  !$OMP PARALLEL default(shared)
 
   !$OMP WORKSHARE
   a%icp(:) = 0
   !$OMP END WORKSHARE
 
   !$OMP DO schedule(STATIC) &
-  !$OMP private(k)
+  !$OMP private(k,i)
   do k=1,nza
     i = itemp(k)
     !$OMP ATOMIC UPDATE 
@@ -2245,16 +2243,16 @@ 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) 
   !$OMP END PARALLEL
-
 #else
   a%icp(:) = 0
   do k=1,nza
     i = itemp(k)
     a%icp(i) = a%icp(i) + 1
   end do
-#endif
   call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione) 
+#endif
   call a%set_host()
 
 

base/serial/impl/psb_d_csc_impl.F90

@@ -2228,16 +2228,14 @@ subroutine psb_d_mv_csc_from_coo(a,b,info)
 
 #if defined(OPENMP)
 
-  !$OMP PARALLEL default(none) &
-  !$OMP shared(nr,a,itemp,nza) &
-  !$OMP private(i,info)
+  !$OMP PARALLEL default(shared)
 
   !$OMP WORKSHARE
   a%icp(:) = 0
   !$OMP END WORKSHARE
 
   !$OMP DO schedule(STATIC) &
-  !$OMP private(k)
+  !$OMP private(k,i)
   do k=1,nza
     i = itemp(k)
     !$OMP ATOMIC UPDATE 
@@ -2245,16 +2243,16 @@ 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) 
   !$OMP END PARALLEL
-
 #else
   a%icp(:) = 0
   do k=1,nza
     i = itemp(k)
     a%icp(i) = a%icp(i) + 1
   end do
-#endif
   call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione) 
+#endif
   call a%set_host()
 
 

base/serial/impl/psb_s_csc_impl.F90

@@ -2228,16 +2228,14 @@ subroutine psb_s_mv_csc_from_coo(a,b,info)
 
 #if defined(OPENMP)
 
-  !$OMP PARALLEL default(none) &
-  !$OMP shared(nr,a,itemp,nza) &
-  !$OMP private(i,info)
+  !$OMP PARALLEL default(shared)
 
   !$OMP WORKSHARE
   a%icp(:) = 0
   !$OMP END WORKSHARE
 
   !$OMP DO schedule(STATIC) &
-  !$OMP private(k)
+  !$OMP private(k,i)
   do k=1,nza
     i = itemp(k)
     !$OMP ATOMIC UPDATE 
@@ -2245,16 +2243,16 @@ 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) 
   !$OMP END PARALLEL
-
 #else
   a%icp(:) = 0
   do k=1,nza
     i = itemp(k)
     a%icp(i) = a%icp(i) + 1
   end do
-#endif
   call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione) 
+#endif
   call a%set_host()
 
 

base/serial/impl/psb_z_csc_impl.F90

@@ -2228,16 +2228,14 @@ subroutine psb_z_mv_csc_from_coo(a,b,info)
 
 #if defined(OPENMP)
 
-  !$OMP PARALLEL default(none) &
-  !$OMP shared(nr,a,itemp,nza) &
-  !$OMP private(i,info)
+  !$OMP PARALLEL default(shared)
 
   !$OMP WORKSHARE
   a%icp(:) = 0
   !$OMP END WORKSHARE
 
   !$OMP DO schedule(STATIC) &
-  !$OMP private(k)
+  !$OMP private(k,i)
   do k=1,nza
     i = itemp(k)
     !$OMP ATOMIC UPDATE 
@@ -2245,16 +2243,16 @@ 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) 
   !$OMP END PARALLEL
-
 #else
   a%icp(:) = 0
   do k=1,nza
     i = itemp(k)
     a%icp(i) = a%icp(i) + 1
   end do
-#endif
   call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione) 
+#endif
   call a%set_host()