double precision eneps_temp(2,nntyp)
      integer n_ene
      common /weightder/ eneps_temp,n_ene