|
|
|
@ -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)
|
|
|
|
|