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