tag_t Create_Csys_From_VecXY(double ori[3],double vecX[3], double vecY[3])
{
tag_t csys = NULL_TAG;
double magnitude = 0.0;
double mtx[9] = { 0.0 };
tag_t matrix_id = NULL_TAG;
UF_MTX3_initialize(vecX, vecY, mtx);
UF_CSYS_create_matrix(mtx, &matrix_id);
UF_CSYS_create_temp_csys(ori, matrix_id, &csys);
return csys;
}