Searched refs:tdum1 (Results 1 – 9 of 9) sorted by relevance
/dports/math/sisl/SISL-SISL-4.6.0-44-g9114631/src/ |
H A D | s9iterimp.c | 174 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 D | s1787.c | 141 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 D | s6rotmat.c | 90 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 D | sh1467.c | 323 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 D | s9iterate.c | 151 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 D | s1309.c | 122 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 D | s9conmarch.c | 140 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 D | s9surmarch.c | 140 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 D | s1306.c | 230 double tdum1,tdum2,tafss,tafst,taftt; local 242 tdum1 = tfst*tfst - tfss*tftt; 249 if (DEQUAL(tdum2+tdum1,tdum2) &&
|