*KEEP,CXYINC.
       COMMON/CXYINC/X,Y
       REAL*8 X,Y
C