character*4 hdecaymode,hdecaymode2
      common/hdecaymode/hdecaymode,hdecaymode2