double precision as,bs,cs,ae,be,ce,apn,apq,dk2ks,dksp1,dapks
      common/pol/as,bs,cs,ae,be,ce,apn,apq,dk2ks,dksp1,dapks