diff --git a/base/modules/psb_desc_type.f90 b/base/modules/psb_desc_type.f90 index 3b384895..4e7272fc 100644 --- a/base/modules/psb_desc_type.f90 +++ b/base/modules/psb_desc_type.f90 @@ -991,7 +991,7 @@ contains name = 'psb_cdtransfer' debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() - ictxt = psb_cd_get_icontxt(desc_in) + ictxt = psb_cd_get_context(desc_in) call psb_info(ictxt,me,np) ! Should not require ictxt to be present: this ! function might be called even when desc_in is