fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-07 07:04:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix for I gpu types from template: use psb_sizeof_ip

Browse Source
This commit is contained in:
sfilippone
2023-09-29 13:59:40 +02:00
parent 3a9116bc42
commit d0d4e45877
5 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gpu/psb_i_csrg_mat_mod.F90
+1 -1
View File
@@ -258,7 +258,7 @@ contains
integer(psb_epk_) :: res
if (a%is_dev()) call a%sync()
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%ja)
! Should we account for the shadow data structure
gpu/psb_i_diag_mat_mod.F90
+1 -1
View File
@@ -236,7 +236,7 @@ contains
integer(psb_epk_) :: res
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)
! Should we account for the shadow data structure
gpu/psb_i_elg_mat_mod.F90
+1 -1
View File
@@ -294,7 +294,7 @@ contains
if (a%is_dev()) call a%sync()
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%idiag)
res = res + psb_sizeof_ip * size(a%ja)
gpu/psb_i_hlg_mat_mod.F90
+1 -1
View File
@@ -260,7 +260,7 @@ contains
if (a%is_dev()) call a%sync()
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%idiag)
res = res + psb_sizeof_ip * size(a%hkoffs)
gpu/psb_i_hybg_mat_mod.F90
+1 -1
View File
@@ -236,7 +236,7 @@ contains
class(psb_i_hybg_sparse_mat), intent(in) :: a
integer(psb_epk_) :: res
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%ja)
! Should we account for the shadow data structure