//Subfunction to specify the vectors
/**************************************
static logical specify_vector(char *prompt, double vec[3], double point[3])
{
int
mode = UF_UI_NO_DEFAULT,
resp;
UF_CALL(UF_UI_specify_vector(prompt, &mode, UF_UI_DISP_TEMP_VECTOR,
vec, point, [$resp))]
if (resp == UF_UI_OK) return TRUE;
else return FALSE;
}
**************************************/ |