real*8 ksi1,ksi2,ksi3
      common/coords/cor(6,imaa),cord(7,imaa),gam(imaa),
     1              weight(imaa),phizero(imaa),
     2              ksi1(imaa),ksi2(imaa),ksi3(imaa)