Fix sizeof

newG2L
Salvatore Filippone 4 years ago
parent 3c6dcddfea
commit 01ee753b18

@ -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

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

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

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

Loading…
Cancel
Save