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

New global argument in sizeof()

Browse Source
This commit is contained in:
Salvatore Filippone
2021-03-16 16:40:33 +01:00
parent f6e01658b5
commit abf486077c
4 changed files with 88 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/psb_c_prec_type.f90
+22 -5
View File
@@ -385,14 +385,31 @@ contains
end subroutine psb_c_prec_free
function psb_cprec_sizeof(prec) result(val)
function psb_cprec_sizeof(prec, global) result(val)
implicit none
class(psb_cprec_type), intent(in) :: prec
integer(psb_epk_) :: val
integer(psb_ipk_) :: i
logical, intent(in), optional :: global
integer(psb_epk_) :: val
integer(psb_ipk_) :: i
type(psb_ctxt_type) :: ctxt
logical :: global_
if (present(global)) then
global_ = global
else
global_ = .false.
end if
val = 0
if (allocated(prec%prec)) then
val = val + prec%prec%sizeof()
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
if (global_) then
ctxt = prec%ctxt
call psb_sum(ctxt,val)
end if
end function psb_cprec_sizeof
prec/psb_d_prec_type.f90
+22 -5
View File
@@ -385,14 +385,31 @@ contains
end subroutine psb_d_prec_free
function psb_dprec_sizeof(prec) result(val)
function psb_dprec_sizeof(prec, global) result(val)
implicit none
class(psb_dprec_type), intent(in) :: prec
integer(psb_epk_) :: val
integer(psb_ipk_) :: i
logical, intent(in), optional :: global
integer(psb_epk_) :: val
integer(psb_ipk_) :: i
type(psb_ctxt_type) :: ctxt
logical :: global_
if (present(global)) then
global_ = global
else
global_ = .false.
end if
val = 0
if (allocated(prec%prec)) then
val = val + prec%prec%sizeof()
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
if (global_) then
ctxt = prec%ctxt
call psb_sum(ctxt,val)
end if
end function psb_dprec_sizeof
prec/psb_s_prec_type.f90
+22 -5
View File
@@ -385,14 +385,31 @@ contains
end subroutine psb_s_prec_free
function psb_sprec_sizeof(prec) result(val)
function psb_sprec_sizeof(prec, global) result(val)
implicit none
class(psb_sprec_type), intent(in) :: prec
integer(psb_epk_) :: val
integer(psb_ipk_) :: i
logical, intent(in), optional :: global
integer(psb_epk_) :: val
integer(psb_ipk_) :: i
type(psb_ctxt_type) :: ctxt
logical :: global_
if (present(global)) then
global_ = global
else
global_ = .false.
end if
val = 0
if (allocated(prec%prec)) then
val = val + prec%prec%sizeof()
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
if (global_) then
ctxt = prec%ctxt
call psb_sum(ctxt,val)
end if
end function psb_sprec_sizeof
prec/psb_z_prec_type.f90
+22 -5
View File
@@ -385,14 +385,31 @@ contains
end subroutine psb_z_prec_free
function psb_zprec_sizeof(prec) result(val)
function psb_zprec_sizeof(prec, global) result(val)
implicit none
class(psb_zprec_type), intent(in) :: prec
integer(psb_epk_) :: val
integer(psb_ipk_) :: i
logical, intent(in), optional :: global
integer(psb_epk_) :: val
integer(psb_ipk_) :: i
type(psb_ctxt_type) :: ctxt
logical :: global_
if (present(global)) then
global_ = global
else
global_ = .false.
end if
val = 0
if (allocated(prec%prec)) then
val = val + prec%prec%sizeof()
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
if (global_) then
ctxt = prec%ctxt
call psb_sum(ctxt,val)
end if
end function psb_zprec_sizeof