integer*4 np,kgenev
      real*4 tecm,amass(18),pcm(5,18),wt

      COMMON /ABSGENIN / NP, TECM, AMASS, KGENEV
      COMMON /ABSGENOUT/ PCM, WT