From 3c53066a0489b0e9cf5216f96a9008dbf97ca88b Mon Sep 17 00:00:00 2001 From: sfilippone Date: Wed, 26 Feb 2025 11:24:40 +0100 Subject: [PATCH] Walk back some generic method changes made for NVHPC. --- base/modules/serial/psb_c_base_vect_mod.F90 | 4 ++-- base/modules/serial/psb_c_vect_mod.F90 | 4 ++-- base/modules/serial/psb_d_base_vect_mod.F90 | 4 ++-- base/modules/serial/psb_d_vect_mod.F90 | 4 ++-- base/modules/serial/psb_i_base_vect_mod.F90 | 4 ++-- base/modules/serial/psb_i_vect_mod.F90 | 4 ++-- base/modules/serial/psb_l_base_vect_mod.F90 | 4 ++-- base/modules/serial/psb_l_vect_mod.F90 | 4 ++-- base/modules/serial/psb_s_base_vect_mod.F90 | 4 ++-- base/modules/serial/psb_s_vect_mod.F90 | 4 ++-- base/modules/serial/psb_z_base_vect_mod.F90 | 4 ++-- base/modules/serial/psb_z_vect_mod.F90 | 4 ++-- 12 files changed, 24 insertions(+), 24 deletions(-) diff --git a/base/modules/serial/psb_c_base_vect_mod.F90 b/base/modules/serial/psb_c_base_vect_mod.F90 index ed03555c..4dac86d6 100644 --- a/base/modules/serial/psb_c_base_vect_mod.F90 +++ b/base/modules/serial/psb_c_base_vect_mod.F90 @@ -1857,7 +1857,7 @@ contains class(psb_c_base_vect_type) :: x 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 @@ -1877,7 +1877,7 @@ contains end if if (idx%is_dev()) call idx%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 ! diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index 919b86a9..737ba26d 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/base/modules/serial/psb_c_vect_mod.F90 @@ -507,7 +507,7 @@ contains class(psb_c_vect_type) :: x if (allocated(x%v)) & - & call x%v%gthzv(n,idx,y) + & call x%v%gth(n,idx,y) end subroutine c_vect_gthzv @@ -1677,7 +1677,7 @@ contains class(psb_c_multivect_type) :: x 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 diff --git a/base/modules/serial/psb_d_base_vect_mod.F90 b/base/modules/serial/psb_d_base_vect_mod.F90 index dbe65d80..f07b5aed 100644 --- a/base/modules/serial/psb_d_base_vect_mod.F90 +++ b/base/modules/serial/psb_d_base_vect_mod.F90 @@ -1944,7 +1944,7 @@ contains class(psb_d_base_vect_type) :: x 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 @@ -1964,7 +1964,7 @@ contains end if if (idx%is_dev()) call idx%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 ! diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index c8ab69fa..2564c714 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -514,7 +514,7 @@ contains class(psb_d_vect_type) :: x if (allocated(x%v)) & - & call x%v%gthzv(n,idx,y) + & call x%v%gth(n,idx,y) end subroutine d_vect_gthzv @@ -1756,7 +1756,7 @@ contains class(psb_d_multivect_type) :: x 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 diff --git a/base/modules/serial/psb_i_base_vect_mod.F90 b/base/modules/serial/psb_i_base_vect_mod.F90 index baeafa75..a5cddeb5 100644 --- a/base/modules/serial/psb_i_base_vect_mod.F90 +++ b/base/modules/serial/psb_i_base_vect_mod.F90 @@ -867,7 +867,7 @@ contains class(psb_i_base_vect_type) :: x 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 @@ -887,7 +887,7 @@ contains end if if (idx%is_dev()) call idx%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 ! diff --git a/base/modules/serial/psb_i_vect_mod.F90 b/base/modules/serial/psb_i_vect_mod.F90 index 820613bf..0ff16c54 100644 --- a/base/modules/serial/psb_i_vect_mod.F90 +++ b/base/modules/serial/psb_i_vect_mod.F90 @@ -452,7 +452,7 @@ contains class(psb_i_vect_type) :: x if (allocated(x%v)) & - & call x%v%gthzv(n,idx,y) + & call x%v%gth(n,idx,y) end subroutine i_vect_gthzv @@ -1000,7 +1000,7 @@ contains class(psb_i_multivect_type) :: x 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 diff --git a/base/modules/serial/psb_l_base_vect_mod.F90 b/base/modules/serial/psb_l_base_vect_mod.F90 index ebb03164..93b29e17 100644 --- a/base/modules/serial/psb_l_base_vect_mod.F90 +++ b/base/modules/serial/psb_l_base_vect_mod.F90 @@ -868,7 +868,7 @@ contains class(psb_l_base_vect_type) :: x 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 @@ -888,7 +888,7 @@ contains end if if (idx%is_dev()) call idx%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 ! diff --git a/base/modules/serial/psb_l_vect_mod.F90 b/base/modules/serial/psb_l_vect_mod.F90 index 79fcc7d3..2490d7a2 100644 --- a/base/modules/serial/psb_l_vect_mod.F90 +++ b/base/modules/serial/psb_l_vect_mod.F90 @@ -453,7 +453,7 @@ contains class(psb_l_vect_type) :: x if (allocated(x%v)) & - & call x%v%gthzv(n,idx,y) + & call x%v%gth(n,idx,y) end subroutine l_vect_gthzv @@ -1001,7 +1001,7 @@ contains class(psb_l_multivect_type) :: x 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 diff --git a/base/modules/serial/psb_s_base_vect_mod.F90 b/base/modules/serial/psb_s_base_vect_mod.F90 index 3c8707eb..596cd634 100644 --- a/base/modules/serial/psb_s_base_vect_mod.F90 +++ b/base/modules/serial/psb_s_base_vect_mod.F90 @@ -1944,7 +1944,7 @@ contains class(psb_s_base_vect_type) :: x 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 @@ -1964,7 +1964,7 @@ contains end if if (idx%is_dev()) call idx%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 ! diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index c684d7c2..259081a6 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -514,7 +514,7 @@ contains class(psb_s_vect_type) :: x if (allocated(x%v)) & - & call x%v%gthzv(n,idx,y) + & call x%v%gth(n,idx,y) end subroutine s_vect_gthzv @@ -1756,7 +1756,7 @@ contains class(psb_s_multivect_type) :: x 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 diff --git a/base/modules/serial/psb_z_base_vect_mod.F90 b/base/modules/serial/psb_z_base_vect_mod.F90 index c749b5d5..1bbdfba1 100644 --- a/base/modules/serial/psb_z_base_vect_mod.F90 +++ b/base/modules/serial/psb_z_base_vect_mod.F90 @@ -1857,7 +1857,7 @@ contains class(psb_z_base_vect_type) :: x 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 @@ -1877,7 +1877,7 @@ contains end if if (idx%is_dev()) call idx%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 ! diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index 98074bd5..5342cc74 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/base/modules/serial/psb_z_vect_mod.F90 @@ -507,7 +507,7 @@ contains class(psb_z_vect_type) :: x if (allocated(x%v)) & - & call x%v%gthzv(n,idx,y) + & call x%v%gth(n,idx,y) end subroutine z_vect_gthzv @@ -1677,7 +1677,7 @@ contains class(psb_z_multivect_type) :: x 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