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 sizeof

Browse Source
This commit is contained in:
Salvatore Filippone
2021-03-16 16:43:41 +01:00
parent abf486077c
commit 3c6dcddfea
4 changed files with 8 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/psb_c_prec_type.f90
+2 -7
View File
@@ -400,13 +400,8 @@ contains
global_ = .false.
end if
val = 0
val = val + psb_sizeof_int
if (allocated(prec%precv)) then
do i=1, size(prec%precv)
val = val + prec%precv(i)%sizeof()
end do
end if
val = 0
val = val + prec%prec%sizeof()
if (global_) then
ctxt = prec%ctxt
call psb_sum(ctxt,val)
prec/psb_d_prec_type.f90
+2 -7
View File
@@ -400,13 +400,8 @@ contains
global_ = .false.
end if
val = 0
val = val + psb_sizeof_int
if (allocated(prec%precv)) then
do i=1, size(prec%precv)
val = val + prec%precv(i)%sizeof()
end do
end if
val = 0
val = val + prec%prec%sizeof()
if (global_) then
ctxt = prec%ctxt
call psb_sum(ctxt,val)
prec/psb_s_prec_type.f90
+2 -7
View File
@@ -400,13 +400,8 @@ contains
global_ = .false.
end if
val = 0
val = val + psb_sizeof_int
if (allocated(prec%precv)) then
do i=1, size(prec%precv)
val = val + prec%precv(i)%sizeof()
end do
end if
val = 0
val = val + prec%prec%sizeof()
if (global_) then
ctxt = prec%ctxt
call psb_sum(ctxt,val)
prec/psb_z_prec_type.f90
+2 -7
View File
@@ -400,13 +400,8 @@ contains
global_ = .false.
end if
val = 0
val = val + psb_sizeof_int
if (allocated(prec%precv)) then
do i=1, size(prec%precv)
val = val + prec%precv(i)%sizeof()
end do
end if
val = 0
val = val + prec%prec%sizeof()
if (global_) then
ctxt = prec%ctxt
call psb_sum(ctxt,val)