** sequence use in several immersol examples
INTEGER(IDIR,I1,I2,J1,J2,K1,K3)
MESG(  The problem may be stated and solved in any direction
MESG(  ENTER  1 for X; 2 (or RETURN) for Y, 3 for Z.
READVDU(IDIR,INT,2)