double precision VV(-nf:nf,-nf:nf),gl(-nf:nf,-nf:nf),
     & gr(-nf:nf,-nf:nf),e(-nf:nf,-nf:nf),fl,fr
      double precision glsq(-nf:nf,-nf:nf),grsq(-nf:nf,-nf:nf),
     & flsq,frsq
      common/CKM1/VV,gl,gr,fl,fr,e,glsq,grsq,flsq,frsq