|
|
|
@ -613,8 +613,10 @@ contains
|
|
|
|
if (allocated(desc%indxmap)) then
|
|
|
|
if (allocated(desc%indxmap)) then
|
|
|
|
val = desc%indxmap%get_ctxt()
|
|
|
|
val = desc%indxmap%get_ctxt()
|
|
|
|
else
|
|
|
|
else
|
|
|
|
call psb_errpush(psb_err_invalid_cd_state_,'psb_cd_get_context')
|
|
|
|
! At this point, val should a non-ALLOCATED
|
|
|
|
call psb_error()
|
|
|
|
! ctxt component, which suits us just fine.
|
|
|
|
|
|
|
|
!call psb_errpush(psb_err_invalid_cd_state_,'psb_cd_get_context')
|
|
|
|
|
|
|
|
!call psb_error()
|
|
|
|
end if
|
|
|
|
end if
|
|
|
|
end function psb_cd_get_context
|
|
|
|
end function psb_cd_get_context
|
|
|
|
|
|
|
|
|
|
|
|
|