common/rates_vt/ k7a(4),k7b(4), k7ap(4),k7bp(4), @ k3aa(4),k3ab(4),k3ac(4), k3aap(4),k3abp(4),k3acp(4), @ k3ba(4),k3bb(4),k3bc(4), k3bap(4),k3bbp(4),k3bcp(4), @ k19aa(4),k19ab(4),k19ac(4), k19aap(4),k19abp(4),k19acp(4), @ k19ba(4),k19bb(4),k19bc(4), k19bap(4),k19bbp(4),k19bcp(4), @ k19ca(4),k19cb(4),k19cc(4), k19cap(4),k19cbp(4),k19ccp(4), @ k20a(4),k20b(4),k20c(4), k20ap(4),k20bp(4),k20cp(4), @ k27a,k27b,k27c, k27ap,k27bp,k27cp real*8 k7a,k7b, k7ap,k7bp real*8 k3aa,k3ab,k3ac, k3aap,k3abp,k3acp real*8 k3ba,k3bb,k3bc, k3bap,k3bbp,k3bcp real*8 k19aa,k19ab,k19ac, k19aap,k19abp,k19acp real*8 k19ba,k19bb,k19bc, k19bap,k19bbp,k19bcp real*8 k19ca,k19cb,k19cc, k19cap,k19cbp,k19ccp real*8 k20a,k20b,k20c, k20ap,k20bp,k20cp real*8 k27a,k27b,k27c, k27ap,k27bp,k27cp common/rates_vv/ k1(4),k1p(4), @ k2a,k2b, k2x,k2y,k2z, k2xp,k2yp,k2zp, @ k6,k6p, k6a(2:4),k6b(2:4), k6ap(2:4),k6bp(2:4), @ k21a,k21ap, k21a1(2:4),k21a2(2:4), k21a1p(2:4),k21a2p(2:4), @ k21b(4),k21c(4), k21bp(4),k21cp(4), @ k31,k32, @ k33a1,k33a2,k33b1,k33b2,k33c, @ k33a1p(2:4),k33a2p(2:4),k33b1p(2:4),k33b2p(2:4),k33cp(2:4), @ k28a,k28b,k28c, k28ap,k28bp,k28cp, @ k26a,k26b,k26c,k26d, k26ap(4),k26bp(4),k26cp(4),k26dp(4), @ k41p_taylor, k41p_shved, k41p_starr_hannock, @ k41_1,k41p_1, k41_2,k41p_2, k42,k42p real*8 k1,k1p real*8 k2a,k2b, k2x,k2y,k2z, k2xp,k2yp,k2zp real*8 k6,k6p, k6a,k6b, k6ap,k6bp real*8 k21a,k21ap, k21a1,k21a2, k21a1p,k21a2p real*8 k21b,k21c, k21bp,k21cp real*8 k31,k32 real*8 k33a1,k33a2,k33b1,k33b2,k33c real*8 k33a1p,k33a2p,k33b1p,k33b2p,k33cp real*8 k28a,k28b,k28c, k28ap,k28bp,k28cp real*8 k26a,k26b,k26c,k26d, k26ap,k26bp,k26cp,k26dp real*8 k41p_taylor, k41p_shved, k41p_starr_hannock real*8 k41_1,k41p_1, k41_2,k41p_2, k42,k42p common/rates_k26isot/ k26a21,k26c21,k26d21, @ k26a22,k26c22,k26d22, k26a23,k26c23,k26d23, @ k26a24,k26c24,k26d24, @ k26a32,k26c32,k26d32, k26a33,k26c33,k26d33, @ k26a31,k26c31,k26d31, @ k26a34,k26c34,k26d34, k26a42,k26c42,k26d42, @ k26a41,k26c41,k26d41, @ k26a43,k26c43,k26d43, k26a44,k26c44,k26d44 real*8 k26a21,k26c21,k26d21, @ k26a22,k26c22,k26d22, k26a23,k26c23,k26d23, @ k26a24,k26c24,k26d24, @ k26a32,k26c32,k26d32, k26a33,k26c33,k26d33, @ k26a31,k26c31,k26d31, @ k26a34,k26c34,k26d34, k26a42,k26c42,k26d42, @ k26a41,k26c41,k26d41, @ k26a43,k26c43,k26d43, k26a44,k26c44,k26d44 common/rates_last/ k23k21c, k24k21c, k34k21c, @ k23k21cp, k24k21cp, k34k21cp, k43,k43p, k_vthcl real*8 k23k21c,k24k21c,k34k21c, k23k21cp,k24k21cp,k34k21cp real*8 k43,k43p, k_vthcl common/rates_V09/ k41_3,k41p_3, k41_4,k41p_4, k41iso_1,k41iso_1p, @ k41iso_2,k41iso_2p, k41iso_3,k41iso_3p, @ k42b, k42c, k42bp, k42cp, k43iso,k43isop, @ k44a,k44b,k44c,k44d, k44ap,k44bp,k44cp,k44dp, @ k42iso,k42isop, k42isob,k42isobp real*8 k41_3,k41p_3, k41_4,k41p_4, k41iso_1,k41iso_1p real*8 k41iso_2,k41iso_2p, k41iso_3,k41iso_3p real*8 k42b, k42c, k42bp, k42cp, k43iso,k43isop real*8 k44a,k44b,k44c,k44d, k44ap,k44bp,k44cp,k44dp real*8 k42iso,k42isop, k42isob,k42isobp