|
|
@ -386,6 +386,7 @@ contains
|
|
|
|
end subroutine psb_c_prec_free
|
|
|
|
end subroutine psb_c_prec_free
|
|
|
|
|
|
|
|
|
|
|
|
function psb_cprec_sizeof(prec, global) result(val)
|
|
|
|
function psb_cprec_sizeof(prec, global) result(val)
|
|
|
|
|
|
|
|
use psb_base_mod, only : psb_sum
|
|
|
|
implicit none
|
|
|
|
implicit none
|
|
|
|
class(psb_cprec_type), intent(in) :: prec
|
|
|
|
class(psb_cprec_type), intent(in) :: prec
|
|
|
|
logical, intent(in), optional :: global
|
|
|
|
logical, intent(in), optional :: global
|
|
|
|