From d0d4e458771e50c4af63ef8e1d1f9184a0d46b60 Mon Sep 17 00:00:00 2001 From: sfilippone Date: Fri, 29 Sep 2023 13:59:40 +0200 Subject: [PATCH] Fix for I gpu types from template: use psb_sizeof_ip --- gpu/psb_i_csrg_mat_mod.F90 | 2 +- gpu/psb_i_diag_mat_mod.F90 | 2 +- gpu/psb_i_elg_mat_mod.F90 | 2 +- gpu/psb_i_hlg_mat_mod.F90 | 2 +- gpu/psb_i_hybg_mat_mod.F90 | 2 +- 5 files changed, 5 insertions(+), 5 deletions(-) diff --git a/gpu/psb_i_csrg_mat_mod.F90 b/gpu/psb_i_csrg_mat_mod.F90 index de25370f..9a4a3852 100644 --- a/gpu/psb_i_csrg_mat_mod.F90 +++ b/gpu/psb_i_csrg_mat_mod.F90 @@ -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 diff --git a/gpu/psb_i_diag_mat_mod.F90 b/gpu/psb_i_diag_mat_mod.F90 index 3559c09a..b54ee8d5 100644 --- a/gpu/psb_i_diag_mat_mod.F90 +++ b/gpu/psb_i_diag_mat_mod.F90 @@ -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 diff --git a/gpu/psb_i_elg_mat_mod.F90 b/gpu/psb_i_elg_mat_mod.F90 index afc71662..a421e611 100644 --- a/gpu/psb_i_elg_mat_mod.F90 +++ b/gpu/psb_i_elg_mat_mod.F90 @@ -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) diff --git a/gpu/psb_i_hlg_mat_mod.F90 b/gpu/psb_i_hlg_mat_mod.F90 index 92917d47..2ec881ce 100644 --- a/gpu/psb_i_hlg_mat_mod.F90 +++ b/gpu/psb_i_hlg_mat_mod.F90 @@ -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) diff --git a/gpu/psb_i_hybg_mat_mod.F90 b/gpu/psb_i_hybg_mat_mod.F90 index 9e682365..388a8801 100644 --- a/gpu/psb_i_hybg_mat_mod.F90 +++ b/gpu/psb_i_hybg_mat_mod.F90 @@ -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