Home
last modified time | relevance | path

Searched refs:tdum2 (Results 1 – 8 of 8) sorted by relevance

/dports/math/sisl/SISL-SISL-4.6.0-44-g9114631/src/
H A Ds1787.c142 double tdum2; /* Max knot value used in DEQUAL comparing. */ local
277 tdum2 = (double)2.0*max(fabs(sval2[0]),fabs(sval2[1]));
280 DEQUAL(spar1[1]+tdum2,sval2[0]+tdum2) || DEQUAL(spar1[1]+tdum2,sval2[1]+tdum2) )
286 DEQUAL(spar2[1]+tdum2,sval2[0]+tdum2) || DEQUAL(spar2[1]+tdum2,sval2[1]+tdum2) )
297 if (DEQUAL(epar[0]+tdum1,spar1[0]+tdum1) && DEQUAL(epar[1]+tdum2,spar1[1]+tdum2) )
303 if (DEQUAL(epar[0]+tdum1,spar2[0]+tdum1) && DEQUAL(epar[1]+tdum2,spar2[1]+tdum2) )
H A Ds9boundit.c155 double tdum2; /* Dummy variables */ local
276 tdum2 = ta11*ta22 - ta12*ta21;
280 if (DNEQUAL(tdum2,DZERO))
282 gpar2[0] += (tb1*ta22-tb2*ta12)/tdum2;
283 gpar2[1] += (ta11*tb2-ta21*tb1)/tdum2;
394 tdum2 = ta11*ta22 - ta12*ta21;
399 if (DNEQUAL(tdum2,DZERO))
401 gpar1[0] += (tb1*ta22-tb2*ta12)/tdum2;
402 gpar1[1] += (ta11*tb2-ta21*tb1)/tdum2;
435 if (DEQUAL(tdum2,DZERO)) goto war02;
[all …]
H A Ds9iterate.c151 double tdum1,tdum2; /* Dummy variables */ local
265 tdum2 = ta11*ta22 - ta12*ta21;
267 tdum2 = ta11*ta22 - ta12*ta21;
272 if (DEQUAL((tdum+tdum2),tdum)) tdum2 =DZERO;
277 if (DNEQUAL(tdum2,DZERO))
279 gpar2[0] += (tb1*ta22-tb2*ta12)/tdum2;
280 gpar2[1] += (ta11*tb2-ta21*tb1)/tdum2;
315 if (DEQUAL(tdum1,DZERO) || DEQUAL(tdum2,DZERO)) goto war02;
333 if (DEQUAL(tdum1,DZERO) || DEQUAL(tdum2,DZERO))
H A Dsh1467.c324 tnom2 += (double)2.0*tdum*tdum2;
408 tdum2 = sd2bar[kk] + sd2bar[kj];
414 sd22x1[ki] = (double)2.0*(ebar[kj]*tdum2*tdum2/tdum
415 - sd2bar[kj]*tdum2)/(tdum*tdum);
421 tdum2 = sd2bar[kk] + sd2bar[kj];
427 sd22x2[ki] = (double)2.0*(ebar[kj]*tdum2*tdum2/tdum
428 - sd2bar[kj]*tdum2)/(tdum*tdum);
451 tnom12 += (double)2.0*(tdum1*tdum2 + tdum*tdum12);
452 tnom22 += (double)2.0*(tdum2*tdum2 + tdum*tdum22);
477 sd22alpha[ki] = (double)2.0*(tdum2*tdum2 + tdum*tdum22)/tdenom
[all …]
H A Ds6rotmat.c90 double tdum, tdum1, tdum2, tdum3; local
123 tdum2 = sqrt (tdum);
124 if (tdum2 < teps)
136 ematrix[4 * kp + 1] = syaxis[kp] / tdum2;
H A Ds1306.c230 double tdum1,tdum2,tafss,tafst,taftt; local
243 tdum2 = MAX(tafss,taftt);
244 tdum2 = MAX(tafst,tdum2);
249 if (DEQUAL(tdum2+tdum1,tdum2) &&
H A Ds9conmarch.c141 double tdum2; /* Max knot value used in DEQUAL comparing. */ local
155 tdum2 = (double)2.0*max(fabs(tstart2),fabs(tend2));
198 DEQUAL(sq[1]+tdum2,scand2[1]+tdum2))
H A Ds9surmarch.c141 double tdum2; /* Max knot value used in DEQUAL comparing. */ local
157 tdum2 = (double)2.0*max(fabs(tstart2),fabs(tend2));
215 DEQUAL(sq[1]+tdum2,scand2[1]+tdum2) &&