From abdf7fc05afc571e13b0c34c17609a16ce79973f Mon Sep 17 00:00:00 2001 From: sfilippone Date: Wed, 9 Oct 2024 13:32:29 +0200 Subject: [PATCH] Fix constructor name for multivector --- cuda/psb_c_cuda_vect_mod.F90 | 8 ++++---- cuda/psb_d_cuda_vect_mod.F90 | 8 ++++---- cuda/psb_i_cuda_vect_mod.F90 | 8 ++++---- cuda/psb_s_cuda_vect_mod.F90 | 8 ++++---- cuda/psb_z_cuda_vect_mod.F90 | 8 ++++---- 5 files changed, 20 insertions(+), 20 deletions(-) diff --git a/cuda/psb_c_cuda_vect_mod.F90 b/cuda/psb_c_cuda_vect_mod.F90 index 9755b386..752d2bf1 100644 --- a/cuda/psb_c_cuda_vect_mod.F90 +++ b/cuda/psb_c_cuda_vect_mod.F90 @@ -1377,14 +1377,14 @@ module psb_c_cuda_multivect_mod end type psb_c_multivect_cuda public :: psb_c_multivect_cuda - private :: constructor + private :: mconstructor interface psb_c_multivect_cuda - module procedure constructor + module procedure mconstructor end interface contains - function constructor(x) result(this) + function mconstructor(x) result(this) complex(psb_spk_) :: x(:,:) type(psb_c_multivect_cuda) :: this integer(psb_ipk_) :: info @@ -1392,7 +1392,7 @@ contains this%v = x call this%asb(size(x,1),size(x,2),info) - end function constructor + end function mconstructor !!$ subroutine c_cuda_multi_gthzv_x(i,n,idx,x,y) diff --git a/cuda/psb_d_cuda_vect_mod.F90 b/cuda/psb_d_cuda_vect_mod.F90 index dfa83c60..4e17be02 100644 --- a/cuda/psb_d_cuda_vect_mod.F90 +++ b/cuda/psb_d_cuda_vect_mod.F90 @@ -1377,14 +1377,14 @@ module psb_d_cuda_multivect_mod end type psb_d_multivect_cuda public :: psb_d_multivect_cuda - private :: constructor + private :: mconstructor interface psb_d_multivect_cuda - module procedure constructor + module procedure mconstructor end interface contains - function constructor(x) result(this) + function mconstructor(x) result(this) real(psb_dpk_) :: x(:,:) type(psb_d_multivect_cuda) :: this integer(psb_ipk_) :: info @@ -1392,7 +1392,7 @@ contains this%v = x call this%asb(size(x,1),size(x,2),info) - end function constructor + end function mconstructor !!$ subroutine d_cuda_multi_gthzv_x(i,n,idx,x,y) diff --git a/cuda/psb_i_cuda_vect_mod.F90 b/cuda/psb_i_cuda_vect_mod.F90 index 4be4679c..eeafe90e 100644 --- a/cuda/psb_i_cuda_vect_mod.F90 +++ b/cuda/psb_i_cuda_vect_mod.F90 @@ -937,14 +937,14 @@ module psb_i_cuda_multivect_mod end type psb_i_multivect_cuda public :: psb_i_multivect_cuda - private :: constructor + private :: mconstructor interface psb_i_multivect_cuda - module procedure constructor + module procedure mconstructor end interface contains - function constructor(x) result(this) + function mconstructor(x) result(this) integer(psb_ipk_) :: x(:,:) type(psb_i_multivect_cuda) :: this integer(psb_ipk_) :: info @@ -952,7 +952,7 @@ contains this%v = x call this%asb(size(x,1),size(x,2),info) - end function constructor + end function mconstructor !!$ subroutine i_cuda_multi_gthzv_x(i,n,idx,x,y) diff --git a/cuda/psb_s_cuda_vect_mod.F90 b/cuda/psb_s_cuda_vect_mod.F90 index 39a108ab..3006ebd8 100644 --- a/cuda/psb_s_cuda_vect_mod.F90 +++ b/cuda/psb_s_cuda_vect_mod.F90 @@ -1377,14 +1377,14 @@ module psb_s_cuda_multivect_mod end type psb_s_multivect_cuda public :: psb_s_multivect_cuda - private :: constructor + private :: mconstructor interface psb_s_multivect_cuda - module procedure constructor + module procedure mconstructor end interface contains - function constructor(x) result(this) + function mconstructor(x) result(this) real(psb_spk_) :: x(:,:) type(psb_s_multivect_cuda) :: this integer(psb_ipk_) :: info @@ -1392,7 +1392,7 @@ contains this%v = x call this%asb(size(x,1),size(x,2),info) - end function constructor + end function mconstructor !!$ subroutine s_cuda_multi_gthzv_x(i,n,idx,x,y) diff --git a/cuda/psb_z_cuda_vect_mod.F90 b/cuda/psb_z_cuda_vect_mod.F90 index d4318bea..f4860911 100644 --- a/cuda/psb_z_cuda_vect_mod.F90 +++ b/cuda/psb_z_cuda_vect_mod.F90 @@ -1377,14 +1377,14 @@ module psb_z_cuda_multivect_mod end type psb_z_multivect_cuda public :: psb_z_multivect_cuda - private :: constructor + private :: mconstructor interface psb_z_multivect_cuda - module procedure constructor + module procedure mconstructor end interface contains - function constructor(x) result(this) + function mconstructor(x) result(this) complex(psb_dpk_) :: x(:,:) type(psb_z_multivect_cuda) :: this integer(psb_ipk_) :: info @@ -1392,7 +1392,7 @@ contains this%v = x call this%asb(size(x,1),size(x,2),info) - end function constructor + end function mconstructor !!$ subroutine z_cuda_multi_gthzv_x(i,n,idx,x,y)