double precision e1,e2,e3,u,z,s1,s2
      integer i1,i2,i3,i4
      common /refer/ e1(3),e2(3),e3(3),u(3),z(3),s1,s2,i1,i2,i3,i4