Fix for I gpu types from template: use psb_sizeof_ip

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

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

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)

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)

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