real    yhv, zhv, halo_fac, sg_fac,
     &        baro_part, wt_rk1, wt_rk2, 
     &        tau, tau_min, tau_rate, t_switch, t_roll,
     &        A_ann, B_ann, C_ann, c_sg1, c_sg2, R_c, z_ige_fac,
     &        grav, pi, tan3, one_third
      integer iflip, n_fit, nrk_max

      common /vpr30/ yhv(6), zhv(6), halo_fac(6,4), sg_fac(6,3),
     &               baro_part(6), wt_rk1(4), wt_rk2(4), 
     &               tau, tau_min, tau_rate, t_switch, t_roll,
     &               A_ann, B_ann, C_ann, c_sg1, c_sg2, R_c, z_ige_fac,
     &               grav, pi, tan3, one_third,
     &               iflip(6), n_fit, nrk_max