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

Fix for I gpu types from template: use psb_sizeof_ip

Browse Source
repack-precuda
sfilippone 1 year ago
parent 3a9116bc42
commit d0d4e45877
5 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File

2
gpu/psb_i_csrg_mat_mod.F90
Unescape Escape View File

@ -258,7 +258,7 @@ contains
integer(psb_epk_) :: res integer(psb_epk_) :: res
if (a%is_dev()) call a%sync() if (a%is_dev()) call a%sync()
res = 8 res = 8
res = res + psb_sizeof_int * size(a%val) res = res + psb_sizeof_ip * size(a%val)
res = res + psb_sizeof_ip * size(a%irp) res = res + psb_sizeof_ip * size(a%irp)
res = res + psb_sizeof_ip * size(a%ja) res = res + psb_sizeof_ip * size(a%ja)
! Should we account for the shadow data structure ! Should we account for the shadow data structure

2
gpu/psb_i_diag_mat_mod.F90
Unescape Escape View File

@ -236,7 +236,7 @@ contains
integer(psb_epk_) :: res integer(psb_epk_) :: res
res = 8 res = 8
res = res + psb_sizeof_int * size(a%data) res = res + psb_sizeof_ip * size(a%data)
res = res + psb_sizeof_ip * size(a%offset) res = res + psb_sizeof_ip * size(a%offset)
! Should we account for the shadow data structure ! Should we account for the shadow data structure

2
gpu/psb_i_elg_mat_mod.F90
Unescape Escape View File

@ -294,7 +294,7 @@ contains
if (a%is_dev()) call a%sync() if (a%is_dev()) call a%sync()
res = 8 res = 8
res = res + psb_sizeof_int * size(a%val) res = res + psb_sizeof_ip * size(a%val)
res = res + psb_sizeof_ip * size(a%irn) res = res + psb_sizeof_ip * size(a%irn)
res = res + psb_sizeof_ip * size(a%idiag) res = res + psb_sizeof_ip * size(a%idiag)
res = res + psb_sizeof_ip * size(a%ja) res = res + psb_sizeof_ip * size(a%ja)

2
gpu/psb_i_hlg_mat_mod.F90
Unescape Escape View File

@ -260,7 +260,7 @@ contains
if (a%is_dev()) call a%sync() if (a%is_dev()) call a%sync()
res = 8 res = 8
res = res + psb_sizeof_int * size(a%val) res = res + psb_sizeof_ip * size(a%val)
res = res + psb_sizeof_ip * size(a%irn) res = res + psb_sizeof_ip * size(a%irn)
res = res + psb_sizeof_ip * size(a%idiag) res = res + psb_sizeof_ip * size(a%idiag)
res = res + psb_sizeof_ip * size(a%hkoffs) res = res + psb_sizeof_ip * size(a%hkoffs)

2
gpu/psb_i_hybg_mat_mod.F90
Unescape Escape View File

@ -236,7 +236,7 @@ contains
class(psb_i_hybg_sparse_mat), intent(in) :: a class(psb_i_hybg_sparse_mat), intent(in) :: a
integer(psb_epk_) :: res integer(psb_epk_) :: res
res = 8 res = 8
res = res + psb_sizeof_int * size(a%val) res = res + psb_sizeof_ip * size(a%val)
res = res + psb_sizeof_ip * size(a%irp) res = res + psb_sizeof_ip * size(a%irp)
res = res + psb_sizeof_ip * size(a%ja) res = res + psb_sizeof_ip * size(a%ja)
! Should we account for the shadow data structure ! Should we account for the shadow data structure

Write Preview
Loading…
Cancel
Save