bool Ask_Csys_mtx(tag_t CsysTag, double csysMtx[9])
{
if (CsysTag == NULL_TAG)
{
UF_CSYS_ask_wcs(&CsysTag);
}
tag_t matrix_id = NULL_TAG;
double csys_origin[3] = { 0.0,0.0,0.0 };
UF_CSYS_ask_csys_info(CsysTag, &matrix_id, csys_origin);
UF_CSYS_ask_matrix_values(matrix_id, csysMtx);
return true;
}