Home
last modified time | relevance | path

Searched refs:tdum1 (Results 1 – 9 of 9) sorted by relevance

/dports/math/sisl/SISL-SISL-4.6.0-44-g9114631/src/
H A Ds9iterimp.c174 double tdum,tdum1; /* Dummy variables */ local
271 tdum1 = ta11*ta22 - ta12*ta21;
276 if (DEQUAL((tdum+tdum1),tdum)) tdum1 =DZERO;
282 if (tdum1 == DZERO && ideg < 1003)
298 tdum1 = ta11*ta22 - ta12*ta21;
303 if (DEQUAL((tdum+tdum1),tdum)) tdum1 =DZERO;
306 if (DNEQUAL(tdum1,DZERO))
308 gpar1[0] += (tb1*ta22-tb2*ta12)/tdum1;
309 gpar1[1] += (ta11*tb2-ta21*tb1)/tdum1;
366 if (DEQUAL(tdum1,DZERO)) goto war02;
[all …]
H A Ds1787.c141 double tdum1; /* Max knot value used in DEQUAL comparing. */ local
276 tdum1 = (double)2.0*max(fabs(sval1[0]),fabs(sval1[1]));
279 if (DEQUAL(spar1[0]+tdum1,sval1[0]+tdum1) || DEQUAL(spar1[0]+tdum1,sval1[1]+tdum1) ||
285 if (DEQUAL(spar2[0]+tdum1,sval1[0]+tdum1) || DEQUAL(spar2[0]+tdum1,sval1[1]+tdum1) ||
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 Ds6rotmat.c90 double tdum, tdum1, tdum2, tdum3; local
118 tdum1 = sqrt (tdum);
119 if (tdum1 < teps)
135 ematrix[4 * kp] = sxaxis[kp] / tdum1;
137 ematrix[4 * kp + 2] = enorm[kp] / tdum1;
H A Dsh1467.c323 tnom1 += (double)2.0*tdum*tdum1;
407 tdum1 = sd1bar[kk] + sd1bar[kj];
410 sd11x1[ki] = (double)2.0*(ebar[kj]*tdum1*tdum1/tdum
411 - sd1bar[kj]*tdum1)/(tdum*tdum);
420 tdum1 = sd1bar[kk] + sd1bar[kj];
423 sd11x2[ki] = (double)2.0*(ebar[kj]*tdum1*tdum1/tdum
424 - sd1bar[kj]*tdum1)/(tdum*tdum);
450 tnom11 += (double)2.0*(tdum1*tdum1 + tdum*tdum11);
451 tnom12 += (double)2.0*(tdum1*tdum2 + tdum*tdum12);
467 sd11alpha[ki] = (double)2.0*(tdum1*tdum1 + tdum*tdum11)/tdenom
[all …]
H A Ds9iterate.c151 double tdum1,tdum2; /* Dummy variables */ local
228 tdum1 = ta11*ta22 - ta12*ta21;
233 if (DEQUAL((tdum+tdum1),tdum)) tdum1 =DZERO;
239 if (DNEQUAL(tdum1,DZERO))
241 gpar1[0] += (tb1*ta22-tb2*ta12)/tdum1;
242 gpar1[1] += (ta11*tb2-ta21*tb1)/tdum1;
315 if (DEQUAL(tdum1,DZERO) || DEQUAL(tdum2,DZERO)) goto war02;
333 if (DEQUAL(tdum1,DZERO) || DEQUAL(tdum2,DZERO))
H A Ds1309.c122 double tsum,t1,t2,tdum1;/* Dummy variables */ local
218 tdum1 = ta11*ta11 - (double)4.0*ta12*tb1;
219 if (tdum1 < DZERO) goto war02;
220 tdum1 = sqrt(tdum1);
221 t1 = (-ta11 + tdum1)/((double)2.0*ta12);
222 t2 = (-ta11 - tdum1)/((double)2.0*ta12);
H A Ds9conmarch.c140 double tdum1; /* Max knot value used in DEQUAL comparing. */ local
154 tdum1 = (double)2.0*max(fabs(tstart1),fabs(tend1));
197 if (DEQUAL(sq[0]+tdum1,scand2[0]+tdum1) &&
H A Ds9surmarch.c140 double tdum1; /* Max knot value used in DEQUAL comparing. */ local
156 tdum1 = (double)2.0*max(fabs(tstart1),fabs(tend1));
214 if (DEQUAL(sq[0]+tdum1,scand2[0]+tdum1) &&
H A Ds1306.c230 double tdum1,tdum2,tafss,tafst,taftt; local
242 tdum1 = tfst*tfst - tfss*tftt;
249 if (DEQUAL(tdum2+tdum1,tdum2) &&