Searched refs:tltan2 (Results 1 – 2 of 2) sorted by relevance
191 double tltan2=DZERO; /* Length of tangents */ local449 tltan2 = s6length(&sgd1[kl+ 6],kdim,&kstat);456 if (tlnorm == DZERO || tltan1 ==DZERO || tltan2 == DZERO)459 tang1 = tlnorm/(tltan1*tltan2);468 tltan2 = s6length(&sgd2[kl+ 6],kdim,&kstat);475 if (tlnorm == DZERO || tltan1 ==DZERO || tltan2 == DZERO)478 tang2 = tlnorm/(tltan1*tltan2);
293 double tltan1,tltan2; /* Tangent lengths */ local450 tltan2 = s6length(&sgd1[kl+kdim+kdim],kdim,&kstat);457 if (tlnorm == (double)0.0 || tltan1 ==(double)0.0 || tltan2 == (double)0.0)460 tang = tlnorm/(tltan1*tltan2);