1: C 2: COMMON /XPARS/ XRMASK,XDMASK,XFMASK,XFSHFT,XASHFT, 3: & XELNT(4),XNORM,XNO,XCOND,XDOOR,XLFLAG