mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-16 10:52:08 +00:00
Fix sizeof
This commit is contained in:
@@ -386,6 +386,7 @@ contains
|
||||
end subroutine psb_c_prec_free
|
||||
|
||||
function psb_cprec_sizeof(prec, global) result(val)
|
||||
use psb_base_mod, only : psb_sum
|
||||
implicit none
|
||||
class(psb_cprec_type), intent(in) :: prec
|
||||
logical, intent(in), optional :: global
|
||||
|
||||
@@ -386,6 +386,7 @@ contains
|
||||
end subroutine psb_d_prec_free
|
||||
|
||||
function psb_dprec_sizeof(prec, global) result(val)
|
||||
use psb_base_mod, only : psb_sum
|
||||
implicit none
|
||||
class(psb_dprec_type), intent(in) :: prec
|
||||
logical, intent(in), optional :: global
|
||||
|
||||
@@ -386,6 +386,7 @@ contains
|
||||
end subroutine psb_s_prec_free
|
||||
|
||||
function psb_sprec_sizeof(prec, global) result(val)
|
||||
use psb_base_mod, only : psb_sum
|
||||
implicit none
|
||||
class(psb_sprec_type), intent(in) :: prec
|
||||
logical, intent(in), optional :: global
|
||||
|
||||
@@ -386,6 +386,7 @@ contains
|
||||
end subroutine psb_z_prec_free
|
||||
|
||||
function psb_zprec_sizeof(prec, global) result(val)
|
||||
use psb_base_mod, only : psb_sum
|
||||
implicit none
|
||||
class(psb_zprec_type), intent(in) :: prec
|
||||
logical, intent(in), optional :: global
|
||||
|
||||
Reference in New Issue
Block a user