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

Fix multivect constructor in CUDA

Browse Source
repack-newsolve
Salvatore Filippone 3 months ago
parent 6972c50542
commit 5430ba0e22
5 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File

8
cuda/psb_c_cuda_vect_mod.F90
Unescape Escape View File

@ -1377,14 +1377,14 @@ module psb_c_cuda_multivect_mod
end type psb_c_multivect_cuda end type psb_c_multivect_cuda
public :: psb_c_multivect_cuda public :: psb_c_multivect_cuda
private :: constructor private :: mconstructor
interface psb_c_multivect_cuda interface psb_c_multivect_cuda
module procedure constructor module procedure mconstructor
end interface end interface
contains contains
function constructor(x) result(this) function mconstructor(x) result(this)
complex(psb_spk_) :: x(:,:) complex(psb_spk_) :: x(:,:)
type(psb_c_multivect_cuda) :: this type(psb_c_multivect_cuda) :: this
integer(psb_ipk_) :: info integer(psb_ipk_) :: info
@ -1392,7 +1392,7 @@ contains
this%v = x this%v = x
call this%asb(size(x,1),size(x,2),info) 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) !!$ subroutine c_cuda_multi_gthzv_x(i,n,idx,x,y)

8
cuda/psb_d_cuda_vect_mod.F90
Unescape Escape View File

@ -1377,14 +1377,14 @@ module psb_d_cuda_multivect_mod
end type psb_d_multivect_cuda end type psb_d_multivect_cuda
public :: psb_d_multivect_cuda public :: psb_d_multivect_cuda
private :: constructor private :: mconstructor
interface psb_d_multivect_cuda interface psb_d_multivect_cuda
module procedure constructor module procedure mconstructor
end interface end interface
contains contains
function constructor(x) result(this) function mconstructor(x) result(this)
real(psb_dpk_) :: x(:,:) real(psb_dpk_) :: x(:,:)
type(psb_d_multivect_cuda) :: this type(psb_d_multivect_cuda) :: this
integer(psb_ipk_) :: info integer(psb_ipk_) :: info
@ -1392,7 +1392,7 @@ contains
this%v = x this%v = x
call this%asb(size(x,1),size(x,2),info) 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) !!$ subroutine d_cuda_multi_gthzv_x(i,n,idx,x,y)

8
cuda/psb_i_cuda_vect_mod.F90
Unescape Escape View File

@ -937,14 +937,14 @@ module psb_i_cuda_multivect_mod
end type psb_i_multivect_cuda end type psb_i_multivect_cuda
public :: psb_i_multivect_cuda public :: psb_i_multivect_cuda
private :: constructor private :: mconstructor
interface psb_i_multivect_cuda interface psb_i_multivect_cuda
module procedure constructor module procedure mconstructor
end interface end interface
contains contains
function constructor(x) result(this) function mconstructor(x) result(this)
integer(psb_ipk_) :: x(:,:) integer(psb_ipk_) :: x(:,:)
type(psb_i_multivect_cuda) :: this type(psb_i_multivect_cuda) :: this
integer(psb_ipk_) :: info integer(psb_ipk_) :: info
@ -952,7 +952,7 @@ contains
this%v = x this%v = x
call this%asb(size(x,1),size(x,2),info) 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) !!$ subroutine i_cuda_multi_gthzv_x(i,n,idx,x,y)

8
cuda/psb_s_cuda_vect_mod.F90
Unescape Escape View File

@ -1377,14 +1377,14 @@ module psb_s_cuda_multivect_mod
end type psb_s_multivect_cuda end type psb_s_multivect_cuda
public :: psb_s_multivect_cuda public :: psb_s_multivect_cuda
private :: constructor private :: mconstructor
interface psb_s_multivect_cuda interface psb_s_multivect_cuda
module procedure constructor module procedure mconstructor
end interface end interface
contains contains
function constructor(x) result(this) function mconstructor(x) result(this)
real(psb_spk_) :: x(:,:) real(psb_spk_) :: x(:,:)
type(psb_s_multivect_cuda) :: this type(psb_s_multivect_cuda) :: this
integer(psb_ipk_) :: info integer(psb_ipk_) :: info
@ -1392,7 +1392,7 @@ contains
this%v = x this%v = x
call this%asb(size(x,1),size(x,2),info) 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) !!$ subroutine s_cuda_multi_gthzv_x(i,n,idx,x,y)

8
cuda/psb_z_cuda_vect_mod.F90
Unescape Escape View File

@ -1377,14 +1377,14 @@ module psb_z_cuda_multivect_mod
end type psb_z_multivect_cuda end type psb_z_multivect_cuda
public :: psb_z_multivect_cuda public :: psb_z_multivect_cuda
private :: constructor private :: mconstructor
interface psb_z_multivect_cuda interface psb_z_multivect_cuda
module procedure constructor module procedure mconstructor
end interface end interface
contains contains
function constructor(x) result(this) function mconstructor(x) result(this)
complex(psb_dpk_) :: x(:,:) complex(psb_dpk_) :: x(:,:)
type(psb_z_multivect_cuda) :: this type(psb_z_multivect_cuda) :: this
integer(psb_ipk_) :: info integer(psb_ipk_) :: info
@ -1392,7 +1392,7 @@ contains
this%v = x this%v = x
call this%asb(size(x,1),size(x,2),info) 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) !!$ subroutine z_cuda_multi_gthzv_x(i,n,idx,x,y)

Write Preview
Loading…
Cancel
Save