C
      COMMON/SEED/XSEED
      SAVE /SEED/
      CHARACTER*24 XSEED
C