real    zmf, zgf, gmf, grf, gng,
     &        tlag_fac, tige1_fac, vcdotsc, vbdotsb, 
     &        rte0, rte0_edr, rte0_n2,
     &        rte1, rte1_edr, rte1_n2,
     &        rte2, rte2_edr, rte2_n2,
     &        aeff_b, aeff_s, a_particle, a_db, a_grav, alink,
     &        a_ige_nge, a_ci
      integer linear

      common /vpr20/ zmf, zgf, gmf, grf, gng,
     &               tlag_fac, tige1_fac, vcdotsc, vbdotsb,
     &               rte0, rte0_edr, rte0_n2,
     &               rte1, rte1_edr, rte1_n2,
     &               rte2, rte2_edr, rte2_n2,
     &               aeff_b, aeff_s, a_particle, a_db, a_grav, alink,
     &               a_ige_nge, a_ci, linear