Searched refs:Adotp (Results 1 – 1 of 1) sorted by relevance
158 double Adotp; /* scalar product of A and base */ local222 Adotp = s6scpr(A,base,idim);263 temp = -cosT2*(Adotp*a1+r*Bdotp*b1)+(asize*cosTsinT+sinT2*ndotp)*n1;270 temp = -cosT2*(Adotp*a2+r*Bdotp*b2)+(asize*cosTsinT+sinT2*ndotp)*n2;277 temp = -cosT2*(Adotp*a3+r*Bdotp*b3)+(asize*cosTsinT+sinT2*ndotp)*n3;284 carray[15] = cosT2*(Adotp*Adotp+r*Bdotp*Bdotp)-temp*temp;