Fix sizeof

newG2L
Salvatore Filippone 4 years ago
parent abf486077c
commit 3c6dcddfea

@ -400,13 +400,8 @@ contains
global_ = .false. global_ = .false.
end if end if
val = 0 val = 0
val = val + psb_sizeof_int val = val + prec%prec%sizeof()
if (allocated(prec%precv)) then
do i=1, size(prec%precv)
val = val + prec%precv(i)%sizeof()
end do
end if
if (global_) then if (global_) then
ctxt = prec%ctxt ctxt = prec%ctxt
call psb_sum(ctxt,val) call psb_sum(ctxt,val)

@ -400,13 +400,8 @@ contains
global_ = .false. global_ = .false.
end if end if
val = 0 val = 0
val = val + psb_sizeof_int val = val + prec%prec%sizeof()
if (allocated(prec%precv)) then
do i=1, size(prec%precv)
val = val + prec%precv(i)%sizeof()
end do
end if
if (global_) then if (global_) then
ctxt = prec%ctxt ctxt = prec%ctxt
call psb_sum(ctxt,val) call psb_sum(ctxt,val)

@ -400,13 +400,8 @@ contains
global_ = .false. global_ = .false.
end if end if
val = 0 val = 0
val = val + psb_sizeof_int val = val + prec%prec%sizeof()
if (allocated(prec%precv)) then
do i=1, size(prec%precv)
val = val + prec%precv(i)%sizeof()
end do
end if
if (global_) then if (global_) then
ctxt = prec%ctxt ctxt = prec%ctxt
call psb_sum(ctxt,val) call psb_sum(ctxt,val)

@ -400,13 +400,8 @@ contains
global_ = .false. global_ = .false.
end if end if
val = 0 val = 0
val = val + psb_sizeof_int val = val + prec%prec%sizeof()
if (allocated(prec%precv)) then
do i=1, size(prec%precv)
val = val + prec%precv(i)%sizeof()
end do
end if
if (global_) then if (global_) then
ctxt = prec%ctxt ctxt = prec%ctxt
call psb_sum(ctxt,val) call psb_sum(ctxt,val)

Loading…
Cancel
Save