1 2 double precision p1, p2, p3, p4, r1, r2, r3, r4 3 double precision e1, e2, e3, e4, v1, v2, v3, v4 4 double precision ru1, ru2, ru3, ru4, et1, et2, et3, et4 5 double precision csubv, gamma, a1, a2, a3, a4, sspd 6 7 common /passit/ p1, p2, p3, p4, r1, r2, r3, r4, e1, e2, e3, e4, v1, v2, v3, v4, ru1, ru2, ru3, ru4, et1, et2, et3, et4,csubv, gamma, a1, a2, a3, a4, sspd 8