*KEEP,CMASS.
      REAL*4 XMASS(0:11)
      COMMON/CMASS/XMASS
      DIMENSION PMASS(12)
      EQUIVALENCE(PMASS(1),XMASS(0))
C