COMMON/ANALC/COMPF,RNU0X,CETAX,CETAPX,CALPHX,CBETAX,
     1RMU1X,CHROMX,ALPH1X,BETA1X,
     1RMU0Y,RNU0Y,CETAY,CETAPY,CALPHY,CBETAY,
     1RMU1Y,CHROMY,ALPH1Y,BETA1Y,RMU0X,
     >COSX,ALX1,ALX2,VX1,VXP1,VX2,VXP2,
     >COSY,ALY1,ALY2,VY1,VYP1,VY2,VYP2,NSTABX,NSTABY,NSTAB,NWRNCP
	dimension p39(35),intp(4)
	equivalence (compf,p39(1))