Fixed intent out on cdovr (aka bld_ext)

psblas3-type-indexed
Salvatore Filippone 17 years ago
parent 07790aab16
commit e059235257

@ -340,7 +340,7 @@ Module psb_tools_mod
integer, intent(in) :: novr
Type(psb_dspmat_type), Intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a
Type(psb_desc_type), Intent(inout) :: desc_ov
Type(psb_desc_type), Intent(out) :: desc_ov
integer, intent(out) :: info
integer, intent(in),optional :: extype
end Subroutine psb_dcdovr
@ -350,7 +350,7 @@ Module psb_tools_mod
integer, intent(in) :: novr
Type(psb_zspmat_type), Intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a
Type(psb_desc_type), Intent(inout) :: desc_ov
Type(psb_desc_type), Intent(out) :: desc_ov
integer, intent(out) :: info
integer, intent(in),optional :: extype
end Subroutine psb_zcdovr

@ -80,7 +80,7 @@ Subroutine psb_dcdovr(a,desc_a,novr,desc_ov,info, extype)
integer, intent(in) :: novr
Type(psb_dspmat_type), Intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a
Type(psb_desc_type), Intent(inout) :: desc_ov
Type(psb_desc_type), Intent(out) :: desc_ov
integer, intent(out) :: info
integer, intent(in),optional :: extype

@ -79,7 +79,7 @@ Subroutine psb_zcdovr(a,desc_a,novr,desc_ov,info, extype)
integer, intent(in) :: novr
Type(psb_zspmat_type), Intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a
Type(psb_desc_type), Intent(inout) :: desc_ov
Type(psb_desc_type), Intent(out) :: desc_ov
integer, intent(out) :: info
integer, intent(in),optional :: extype

Loading…
Cancel
Save