*KEEP,CGEOS.
C
      COMMON/CGEOS/ GEOSIG(240),SGPIMX,SGMUMX
C