double precision epinv
      common/epinv/epinv