|
|
@ -991,7 +991,7 @@ contains
|
|
|
|
name = 'psb_cdtransfer'
|
|
|
|
name = 'psb_cdtransfer'
|
|
|
|
debug_unit = psb_get_debug_unit()
|
|
|
|
debug_unit = psb_get_debug_unit()
|
|
|
|
debug_level = psb_get_debug_level()
|
|
|
|
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)
|
|
|
|
call psb_info(ictxt,me,np)
|
|
|
|
! Should not require ictxt to be present: this
|
|
|
|
! Should not require ictxt to be present: this
|
|
|
|
! function might be called even when desc_in is
|
|
|
|
! function might be called even when desc_in is
|
|
|
|