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

Silence some NVIDIA warnings. Do we really want to do it this way?

Browse Source
openacc
sfilippone 1 week ago
parent 4dd9ee9866
commit 2062886c46
13 changed files with 59 additions and 59 deletions
Show Stats Download Patch File Download Diff File

4
base/modules/serial/psb_c_base_vect_mod.F90
Unescape Escape View File

@ -1857,7 +1857,7 @@ contains
class(psb_c_base_vect_type) :: x
if (idx%is_dev()) call idx%sync()
call x%gth(n,idx%v(i:),y)
call x%gthzv(n,idx%v(i:),y)
end subroutine c_base_gthzv_x
@ -1877,7 +1877,7 @@ contains
end if
if (idx%is_dev()) call idx%sync()
if (x%is_dev()) call x%sync()
call x%gth(n,idx%v(i:),x%combuf(i:))
call x%gthzv(n,idx%v(i:),x%combuf(i:))
end subroutine c_base_gthzbuf
!

18
base/modules/serial/psb_c_vect_mod.F90
Unescape Escape View File

@ -496,7 +496,7 @@ contains
class(psb_c_vect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,alpha,beta,y)
& call x%v%gthab(n,idx,alpha,beta,y)
end subroutine c_vect_gthab
@ -507,7 +507,7 @@ contains
class(psb_c_vect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,y)
& call x%v%gthzv(n,idx,y)
end subroutine c_vect_gthzv
@ -943,7 +943,7 @@ contains
info = 0
if (allocated(x%v).and.allocated(y%v)) &
& call x%v%div(y%v,info,flag)
& call x%v%div_v_check(y%v,info,flag)
end subroutine c_vect_div_v_check
@ -959,7 +959,7 @@ contains
info = 0
if (allocated(x%v).and.allocated(y%v).and.allocated(z%v)) &
& call z%v%div(x%v,y%v,info,flag)
& call z%v%div_v2_check(x%v,y%v,info,flag)
end subroutine c_vect_div_v2_check
@ -974,7 +974,7 @@ contains
info = 0
if (allocated(z%v)) &
& call z%v%div(x,y,info)
& call z%v%div_a2(x,y,info)
end subroutine c_vect_div_a2
@ -990,7 +990,7 @@ contains
info = 0
if (allocated(z%v)) &
& call z%v%div(x,y,info,flag)
& call z%v%div_a2_check(x,y,info,flag)
end subroutine c_vect_div_a2_check
@ -1654,7 +1654,7 @@ contains
class(psb_c_multivect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,alpha,beta,y)
& call x%v%gthab(n,idx,alpha,beta,y)
end subroutine c_mvect_gthab
@ -1665,7 +1665,7 @@ contains
class(psb_c_multivect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,y)
& call x%v%gthzv(n,idx,y)
end subroutine c_mvect_gthzv
@ -1677,7 +1677,7 @@ contains
class(psb_c_multivect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(i,n,idx,y)
& call x%v%gthzv_x(i,n,idx,y)
end subroutine c_mvect_gthzv_x

4
base/modules/serial/psb_d_base_vect_mod.F90
Unescape Escape View File

@ -1944,7 +1944,7 @@ contains
class(psb_d_base_vect_type) :: x
if (idx%is_dev()) call idx%sync()
call x%gth(n,idx%v(i:),y)
call x%gthzv(n,idx%v(i:),y)
end subroutine d_base_gthzv_x
@ -1964,7 +1964,7 @@ contains
end if
if (idx%is_dev()) call idx%sync()
if (x%is_dev()) call x%sync()
call x%gth(n,idx%v(i:),x%combuf(i:))
call x%gthzv(n,idx%v(i:),x%combuf(i:))
end subroutine d_base_gthzbuf
!

18
base/modules/serial/psb_d_vect_mod.F90
Unescape Escape View File

@ -503,7 +503,7 @@ contains
class(psb_d_vect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,alpha,beta,y)
& call x%v%gthab(n,idx,alpha,beta,y)
end subroutine d_vect_gthab
@ -514,7 +514,7 @@ contains
class(psb_d_vect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,y)
& call x%v%gthzv(n,idx,y)
end subroutine d_vect_gthzv
@ -950,7 +950,7 @@ contains
info = 0
if (allocated(x%v).and.allocated(y%v)) &
& call x%v%div(y%v,info,flag)
& call x%v%div_v_check(y%v,info,flag)
end subroutine d_vect_div_v_check
@ -966,7 +966,7 @@ contains
info = 0
if (allocated(x%v).and.allocated(y%v).and.allocated(z%v)) &
& call z%v%div(x%v,y%v,info,flag)
& call z%v%div_v2_check(x%v,y%v,info,flag)
end subroutine d_vect_div_v2_check
@ -981,7 +981,7 @@ contains
info = 0
if (allocated(z%v)) &
& call z%v%div(x,y,info)
& call z%v%div_a2(x,y,info)
end subroutine d_vect_div_a2
@ -997,7 +997,7 @@ contains
info = 0
if (allocated(z%v)) &
& call z%v%div(x,y,info,flag)
& call z%v%div_a2_check(x,y,info,flag)
end subroutine d_vect_div_a2_check
@ -1733,7 +1733,7 @@ contains
class(psb_d_multivect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,alpha,beta,y)
& call x%v%gthab(n,idx,alpha,beta,y)
end subroutine d_mvect_gthab
@ -1744,7 +1744,7 @@ contains
class(psb_d_multivect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,y)
& call x%v%gthzv(n,idx,y)
end subroutine d_mvect_gthzv
@ -1756,7 +1756,7 @@ contains
class(psb_d_multivect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(i,n,idx,y)
& call x%v%gthzv_x(i,n,idx,y)
end subroutine d_mvect_gthzv_x

4
base/modules/serial/psb_i_base_vect_mod.F90
Unescape Escape View File

@ -867,7 +867,7 @@ contains
class(psb_i_base_vect_type) :: x
if (idx%is_dev()) call idx%sync()
call x%gth(n,idx%v(i:),y)
call x%gthzv(n,idx%v(i:),y)
end subroutine i_base_gthzv_x
@ -887,7 +887,7 @@ contains
end if
if (idx%is_dev()) call idx%sync()
if (x%is_dev()) call x%sync()
call x%gth(n,idx%v(i:),x%combuf(i:))
call x%gthzv(n,idx%v(i:),x%combuf(i:))
end subroutine i_base_gthzbuf
!

10
base/modules/serial/psb_i_vect_mod.F90
Unescape Escape View File

@ -441,7 +441,7 @@ contains
class(psb_i_vect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,alpha,beta,y)
& call x%v%gthab(n,idx,alpha,beta,y)
end subroutine i_vect_gthab
@ -452,7 +452,7 @@ contains
class(psb_i_vect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,y)
& call x%v%gthzv(n,idx,y)
end subroutine i_vect_gthzv
@ -977,7 +977,7 @@ contains
class(psb_i_multivect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,alpha,beta,y)
& call x%v%gthab(n,idx,alpha,beta,y)
end subroutine i_mvect_gthab
@ -988,7 +988,7 @@ contains
class(psb_i_multivect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,y)
& call x%v%gthzv(n,idx,y)
end subroutine i_mvect_gthzv
@ -1000,7 +1000,7 @@ contains
class(psb_i_multivect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(i,n,idx,y)
& call x%v%gthzv_x(i,n,idx,y)
end subroutine i_mvect_gthzv_x

4
base/modules/serial/psb_l_base_vect_mod.F90
Unescape Escape View File

@ -868,7 +868,7 @@ contains
class(psb_l_base_vect_type) :: x
if (idx%is_dev()) call idx%sync()
call x%gth(n,idx%v(i:),y)
call x%gthzv(n,idx%v(i:),y)
end subroutine l_base_gthzv_x
@ -888,7 +888,7 @@ contains
end if
if (idx%is_dev()) call idx%sync()
if (x%is_dev()) call x%sync()
call x%gth(n,idx%v(i:),x%combuf(i:))
call x%gthzv(n,idx%v(i:),x%combuf(i:))
end subroutine l_base_gthzbuf
!

10
base/modules/serial/psb_l_vect_mod.F90
Unescape Escape View File

@ -442,7 +442,7 @@ contains
class(psb_l_vect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,alpha,beta,y)
& call x%v%gthab(n,idx,alpha,beta,y)
end subroutine l_vect_gthab
@ -453,7 +453,7 @@ contains
class(psb_l_vect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,y)
& call x%v%gthzv(n,idx,y)
end subroutine l_vect_gthzv
@ -978,7 +978,7 @@ contains
class(psb_l_multivect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,alpha,beta,y)
& call x%v%gthab(n,idx,alpha,beta,y)
end subroutine l_mvect_gthab
@ -989,7 +989,7 @@ contains
class(psb_l_multivect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,y)
& call x%v%gthzv(n,idx,y)
end subroutine l_mvect_gthzv
@ -1001,7 +1001,7 @@ contains
class(psb_l_multivect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(i,n,idx,y)
& call x%v%gthzv_x(i,n,idx,y)
end subroutine l_mvect_gthzv_x

4
base/modules/serial/psb_s_base_vect_mod.F90
Unescape Escape View File

@ -1944,7 +1944,7 @@ contains
class(psb_s_base_vect_type) :: x
if (idx%is_dev()) call idx%sync()
call x%gth(n,idx%v(i:),y)
call x%gthzv(n,idx%v(i:),y)
end subroutine s_base_gthzv_x
@ -1964,7 +1964,7 @@ contains
end if
if (idx%is_dev()) call idx%sync()
if (x%is_dev()) call x%sync()
call x%gth(n,idx%v(i:),x%combuf(i:))
call x%gthzv(n,idx%v(i:),x%combuf(i:))
end subroutine s_base_gthzbuf
!

18
base/modules/serial/psb_s_vect_mod.F90
Unescape Escape View File

@ -503,7 +503,7 @@ contains
class(psb_s_vect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,alpha,beta,y)
& call x%v%gthab(n,idx,alpha,beta,y)
end subroutine s_vect_gthab
@ -514,7 +514,7 @@ contains
class(psb_s_vect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,y)
& call x%v%gthzv(n,idx,y)
end subroutine s_vect_gthzv
@ -950,7 +950,7 @@ contains
info = 0
if (allocated(x%v).and.allocated(y%v)) &
& call x%v%div(y%v,info,flag)
& call x%v%div_v_check(y%v,info,flag)
end subroutine s_vect_div_v_check
@ -966,7 +966,7 @@ contains
info = 0
if (allocated(x%v).and.allocated(y%v).and.allocated(z%v)) &
& call z%v%div(x%v,y%v,info,flag)
& call z%v%div_v2_check(x%v,y%v,info,flag)
end subroutine s_vect_div_v2_check
@ -981,7 +981,7 @@ contains
info = 0
if (allocated(z%v)) &
& call z%v%div(x,y,info)
& call z%v%div_a2(x,y,info)
end subroutine s_vect_div_a2
@ -997,7 +997,7 @@ contains
info = 0
if (allocated(z%v)) &
& call z%v%div(x,y,info,flag)
& call z%v%div_a2_check(x,y,info,flag)
end subroutine s_vect_div_a2_check
@ -1733,7 +1733,7 @@ contains
class(psb_s_multivect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,alpha,beta,y)
& call x%v%gthab(n,idx,alpha,beta,y)
end subroutine s_mvect_gthab
@ -1744,7 +1744,7 @@ contains
class(psb_s_multivect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,y)
& call x%v%gthzv(n,idx,y)
end subroutine s_mvect_gthzv
@ -1756,7 +1756,7 @@ contains
class(psb_s_multivect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(i,n,idx,y)
& call x%v%gthzv_x(i,n,idx,y)
end subroutine s_mvect_gthzv_x

4
base/modules/serial/psb_z_base_vect_mod.F90
Unescape Escape View File

@ -1857,7 +1857,7 @@ contains
class(psb_z_base_vect_type) :: x
if (idx%is_dev()) call idx%sync()
call x%gth(n,idx%v(i:),y)
call x%gthzv(n,idx%v(i:),y)
end subroutine z_base_gthzv_x
@ -1877,7 +1877,7 @@ contains
end if
if (idx%is_dev()) call idx%sync()
if (x%is_dev()) call x%sync()
call x%gth(n,idx%v(i:),x%combuf(i:))
call x%gthzv(n,idx%v(i:),x%combuf(i:))
end subroutine z_base_gthzbuf
!

18
base/modules/serial/psb_z_vect_mod.F90
Unescape Escape View File

@ -496,7 +496,7 @@ contains
class(psb_z_vect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,alpha,beta,y)
& call x%v%gthab(n,idx,alpha,beta,y)
end subroutine z_vect_gthab
@ -507,7 +507,7 @@ contains
class(psb_z_vect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,y)
& call x%v%gthzv(n,idx,y)
end subroutine z_vect_gthzv
@ -943,7 +943,7 @@ contains
info = 0
if (allocated(x%v).and.allocated(y%v)) &
& call x%v%div(y%v,info,flag)
& call x%v%div_v_check(y%v,info,flag)
end subroutine z_vect_div_v_check
@ -959,7 +959,7 @@ contains
info = 0
if (allocated(x%v).and.allocated(y%v).and.allocated(z%v)) &
& call z%v%div(x%v,y%v,info,flag)
& call z%v%div_v2_check(x%v,y%v,info,flag)
end subroutine z_vect_div_v2_check
@ -974,7 +974,7 @@ contains
info = 0
if (allocated(z%v)) &
& call z%v%div(x,y,info)
& call z%v%div_a2(x,y,info)
end subroutine z_vect_div_a2
@ -990,7 +990,7 @@ contains
info = 0
if (allocated(z%v)) &
& call z%v%div(x,y,info,flag)
& call z%v%div_a2_check(x,y,info,flag)
end subroutine z_vect_div_a2_check
@ -1654,7 +1654,7 @@ contains
class(psb_z_multivect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,alpha,beta,y)
& call x%v%gthab(n,idx,alpha,beta,y)
end subroutine z_mvect_gthab
@ -1665,7 +1665,7 @@ contains
class(psb_z_multivect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(n,idx,y)
& call x%v%gthzv(n,idx,y)
end subroutine z_mvect_gthzv
@ -1677,7 +1677,7 @@ contains
class(psb_z_multivect_type) :: x
if (allocated(x%v)) &
& call x%v%gth(i,n,idx,y)
& call x%v%gthzv_x(i,n,idx,y)
end subroutine z_mvect_gthzv_x

2
base/serial/impl/psb_s_base_mat_impl.F90
Unescape Escape View File

@ -584,7 +584,7 @@ subroutine psb_s_base_csclip(a,b,info,&
nb = a%get_ncols() ! Should this be jmax_ ??
endif
call b%allocate(mb,nb)
call a%csget(imin_,imax_,nzout,b%ia,b%ja,b%val,info,&
call a%csgetrow(imin_,imax_,nzout,b%ia,b%ja,b%val,info,&
& jmin=jmin_, jmax=jmax_, append=.false., &
& nzin=nzin, rscale=rscale_, cscale=cscale_)
if (info /= psb_success_) goto 9999

Write Preview
Loading…
Cancel
Save