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

Walk back some generic method changes made for NVHPC.

Browse Source
randomized
sfilippone 1 year ago
parent 55518f5553
commit 3c53066a04
12 changed files with 24 additions and 24 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 class(psb_c_base_vect_type) :: x
if (idx%is_dev()) call idx%sync() if (idx%is_dev()) call idx%sync()
call x%gthzv(n,idx%v(i:),y) call x%gth(n,idx%v(i:),y)
end subroutine c_base_gthzv_x end subroutine c_base_gthzv_x
@ -1877,7 +1877,7 @@ contains
end if end if
if (idx%is_dev()) call idx%sync() if (idx%is_dev()) call idx%sync()
if (x%is_dev()) call x%sync() if (x%is_dev()) call x%sync()
call x%gthzv(n,idx%v(i:),x%combuf(i:)) call x%gth(n,idx%v(i:),x%combuf(i:))
end subroutine c_base_gthzbuf end subroutine c_base_gthzbuf
! !

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

@ -507,7 +507,7 @@ contains
class(psb_c_vect_type) :: x class(psb_c_vect_type) :: x
if (allocated(x%v)) & if (allocated(x%v)) &
& call x%v%gthzv(n,idx,y) & call x%v%gth(n,idx,y)
end subroutine c_vect_gthzv end subroutine c_vect_gthzv
@ -1677,7 +1677,7 @@ contains
class(psb_c_multivect_type) :: x class(psb_c_multivect_type) :: x
if (allocated(x%v)) & if (allocated(x%v)) &
& call x%v%gthzv_x(i,n,idx,y) & call x%v%gth(i,n,idx,y)
end subroutine c_mvect_gthzv_x 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 class(psb_d_base_vect_type) :: x
if (idx%is_dev()) call idx%sync() if (idx%is_dev()) call idx%sync()
call x%gthzv(n,idx%v(i:),y) call x%gth(n,idx%v(i:),y)
end subroutine d_base_gthzv_x end subroutine d_base_gthzv_x
@ -1964,7 +1964,7 @@ contains
end if end if
if (idx%is_dev()) call idx%sync() if (idx%is_dev()) call idx%sync()
if (x%is_dev()) call x%sync() if (x%is_dev()) call x%sync()
call x%gthzv(n,idx%v(i:),x%combuf(i:)) call x%gth(n,idx%v(i:),x%combuf(i:))
end subroutine d_base_gthzbuf end subroutine d_base_gthzbuf
! !

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

@ -514,7 +514,7 @@ contains
class(psb_d_vect_type) :: x class(psb_d_vect_type) :: x
if (allocated(x%v)) & if (allocated(x%v)) &
& call x%v%gthzv(n,idx,y) & call x%v%gth(n,idx,y)
end subroutine d_vect_gthzv end subroutine d_vect_gthzv
@ -1756,7 +1756,7 @@ contains
class(psb_d_multivect_type) :: x class(psb_d_multivect_type) :: x
if (allocated(x%v)) & if (allocated(x%v)) &
& call x%v%gthzv_x(i,n,idx,y) & call x%v%gth(i,n,idx,y)
end subroutine d_mvect_gthzv_x 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 class(psb_i_base_vect_type) :: x
if (idx%is_dev()) call idx%sync() if (idx%is_dev()) call idx%sync()
call x%gthzv(n,idx%v(i:),y) call x%gth(n,idx%v(i:),y)
end subroutine i_base_gthzv_x end subroutine i_base_gthzv_x
@ -887,7 +887,7 @@ contains
end if end if
if (idx%is_dev()) call idx%sync() if (idx%is_dev()) call idx%sync()
if (x%is_dev()) call x%sync() if (x%is_dev()) call x%sync()
call x%gthzv(n,idx%v(i:),x%combuf(i:)) call x%gth(n,idx%v(i:),x%combuf(i:))
end subroutine i_base_gthzbuf end subroutine i_base_gthzbuf
! !

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

@ -452,7 +452,7 @@ contains
class(psb_i_vect_type) :: x class(psb_i_vect_type) :: x
if (allocated(x%v)) & if (allocated(x%v)) &
& call x%v%gthzv(n,idx,y) & call x%v%gth(n,idx,y)
end subroutine i_vect_gthzv end subroutine i_vect_gthzv
@ -1000,7 +1000,7 @@ contains
class(psb_i_multivect_type) :: x class(psb_i_multivect_type) :: x
if (allocated(x%v)) & if (allocated(x%v)) &
& call x%v%gthzv_x(i,n,idx,y) & call x%v%gth(i,n,idx,y)
end subroutine i_mvect_gthzv_x 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 class(psb_l_base_vect_type) :: x
if (idx%is_dev()) call idx%sync() if (idx%is_dev()) call idx%sync()
call x%gthzv(n,idx%v(i:),y) call x%gth(n,idx%v(i:),y)
end subroutine l_base_gthzv_x end subroutine l_base_gthzv_x
@ -888,7 +888,7 @@ contains
end if end if
if (idx%is_dev()) call idx%sync() if (idx%is_dev()) call idx%sync()
if (x%is_dev()) call x%sync() if (x%is_dev()) call x%sync()
call x%gthzv(n,idx%v(i:),x%combuf(i:)) call x%gth(n,idx%v(i:),x%combuf(i:))
end subroutine l_base_gthzbuf end subroutine l_base_gthzbuf
! !

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

@ -453,7 +453,7 @@ contains
class(psb_l_vect_type) :: x class(psb_l_vect_type) :: x
if (allocated(x%v)) & if (allocated(x%v)) &
& call x%v%gthzv(n,idx,y) & call x%v%gth(n,idx,y)
end subroutine l_vect_gthzv end subroutine l_vect_gthzv
@ -1001,7 +1001,7 @@ contains
class(psb_l_multivect_type) :: x class(psb_l_multivect_type) :: x
if (allocated(x%v)) & if (allocated(x%v)) &
& call x%v%gthzv_x(i,n,idx,y) & call x%v%gth(i,n,idx,y)
end subroutine l_mvect_gthzv_x 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 class(psb_s_base_vect_type) :: x
if (idx%is_dev()) call idx%sync() if (idx%is_dev()) call idx%sync()
call x%gthzv(n,idx%v(i:),y) call x%gth(n,idx%v(i:),y)
end subroutine s_base_gthzv_x end subroutine s_base_gthzv_x
@ -1964,7 +1964,7 @@ contains
end if end if
if (idx%is_dev()) call idx%sync() if (idx%is_dev()) call idx%sync()
if (x%is_dev()) call x%sync() if (x%is_dev()) call x%sync()
call x%gthzv(n,idx%v(i:),x%combuf(i:)) call x%gth(n,idx%v(i:),x%combuf(i:))
end subroutine s_base_gthzbuf end subroutine s_base_gthzbuf
! !

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

@ -514,7 +514,7 @@ contains
class(psb_s_vect_type) :: x class(psb_s_vect_type) :: x
if (allocated(x%v)) & if (allocated(x%v)) &
& call x%v%gthzv(n,idx,y) & call x%v%gth(n,idx,y)
end subroutine s_vect_gthzv end subroutine s_vect_gthzv
@ -1756,7 +1756,7 @@ contains
class(psb_s_multivect_type) :: x class(psb_s_multivect_type) :: x
if (allocated(x%v)) & if (allocated(x%v)) &
& call x%v%gthzv_x(i,n,idx,y) & call x%v%gth(i,n,idx,y)
end subroutine s_mvect_gthzv_x 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 class(psb_z_base_vect_type) :: x
if (idx%is_dev()) call idx%sync() if (idx%is_dev()) call idx%sync()
call x%gthzv(n,idx%v(i:),y) call x%gth(n,idx%v(i:),y)
end subroutine z_base_gthzv_x end subroutine z_base_gthzv_x
@ -1877,7 +1877,7 @@ contains
end if end if
if (idx%is_dev()) call idx%sync() if (idx%is_dev()) call idx%sync()
if (x%is_dev()) call x%sync() if (x%is_dev()) call x%sync()
call x%gthzv(n,idx%v(i:),x%combuf(i:)) call x%gth(n,idx%v(i:),x%combuf(i:))
end subroutine z_base_gthzbuf end subroutine z_base_gthzbuf
! !

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

@ -507,7 +507,7 @@ contains
class(psb_z_vect_type) :: x class(psb_z_vect_type) :: x
if (allocated(x%v)) & if (allocated(x%v)) &
& call x%v%gthzv(n,idx,y) & call x%v%gth(n,idx,y)
end subroutine z_vect_gthzv end subroutine z_vect_gthzv
@ -1677,7 +1677,7 @@ contains
class(psb_z_multivect_type) :: x class(psb_z_multivect_type) :: x
if (allocated(x%v)) & if (allocated(x%v)) &
& call x%v%gthzv_x(i,n,idx,y) & call x%v%gth(i,n,idx,y)
end subroutine z_mvect_gthzv_x end subroutine z_mvect_gthzv_x

Write Preview
Loading…
Cancel
Save