real    dtfac, eps_err, h1, hmin, ceject, cke, R0p, R0s,
     &        teject1, teject2, zeject, secdk, secdiff, zgfi
      integer kmax

      common /ige/ dtfac, eps_err, h1, hmin, ceject, cke, R0p, R0s,
     &             teject1, teject2, zeject, secdk, secdiff, zgfi,
     &             kmax