double precision l(nf),r(nf),le,ln,re,rn,sin2w,q1,l1,r1,q2,l2,r2
      common/zcouple/l,r,q1,l1,r1,q2,l2,r2,le,ln,re,rn,sin2w