*KEEP,CXPD.
      COMMON / CXPD / NPSG(2,176), PIPSG(2,126), HSIGMX(7),
     +  LOCX(4,4), ETH(4,4), DE
      REAL*4 NPSG
C