DEF REAL CUR_X
DEF REAL CUR_Y
DEF REAL CUR_Z

CUR_X=$VA_IW[X]
CUR_Y=$VA_IW[Y]
CUR_Z=$VA_IW[Z]
 


$P_UIFR[2]=CTRANS(X,CUR_X,Y,CUR_Y,Z,CUR_Z):CROT(X,0.000000,Y,-0.000000,Z,0.000000)

M17