Home
last modified time | relevance | path

Searched refs:DEQUAL (Results 1 – 25 of 107) sorted by relevance

12345

/dports/math/sisl/SISL-SISL-4.6.0-44-g9114631/src/
H A Ds9iterimp.c206 if (DEQUAL(tlnorm,DZERO)) tlnorm = (double)1.0;
246 if (DEQUAL(tdum,DZERO)) tdum = (double)1.0;
263 if (DEQUAL(tdum,DZERO)) tdum = (double)1.0;
276 if (DEQUAL((tdum+tdum1),tdum)) tdum1 =DZERO;
291 if (DEQUAL(tdum,DZERO)) tdum = (double)1.0;
303 if (DEQUAL((tdum+tdum1),tdum)) tdum1 =DZERO;
355 if (DEQUAL(tcurdst,DZERO) && DEQUAL(tdiststep,DZERO))
366 if (DEQUAL(tdum1,DZERO)) goto war02;
397 if (DEQUAL(tdum,DZERO)) tdum = (double)1.0;
401 if (DEQUAL(tdum1,DZERO) || ksing == 1)
H A Ds1787.c279 if (DEQUAL(spar1[0]+tdum1,sval1[0]+tdum1) || DEQUAL(spar1[0]+tdum1,sval1[1]+tdum1) ||
280 DEQUAL(spar1[1]+tdum2,sval2[0]+tdum2) || DEQUAL(spar1[1]+tdum2,sval2[1]+tdum2) )
285 if (DEQUAL(spar2[0]+tdum1,sval1[0]+tdum1) || DEQUAL(spar2[0]+tdum1,sval1[1]+tdum1) ||
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 Ds1834.c224 if (DEQUAL(MIN(*smin1,*smin2),MAX(*smax1,*smax2)))
232 else if (DEQUAL(*smin1,*smax2) || DEQUAL(*smin2,*smax1))
386 if ((DEQUAL(tleng1,DZERO) || DEQUAL(tl1,DZERO)) && DEQUAL(tleng2,DZERO))
391 else if (DEQUAL(tleng1,DZERO) || DEQUAL(tl1,DZERO))
402 if (DEQUAL(tl3,DZERO)) emat[0] = emat[4] = emat[8] = (double)1.0;
423 if (DEQUAL(tl2,DZERO))
H A Dsh1922.c139 for (kmu=in+ik-1; DEQUAL(etau[kmu-1],etau[kmu]); kmu--);
144 if (DEQUAL(et[kjh+ik],etau[kmu]))
146 for (; DEQUAL(et[ki-1+ik],et[kjh+ik]); ki--);
153 for (kmu=0; DEQUAL(etau[kmu+1],etau[kmu]); kmu++);
158 if (DEQUAL(et[kjh],etau[kmu]))
160 for (; DEQUAL(et[ki+1],et[kjh]); ki++);
H A Ds1330.c176 if ((DEQUAL(eval11[0],epar11[0]) && epar21[0] < eval11[0]) ||
177 (DEQUAL(epar11[0],eval11[1]) && eval11[1] < epar21[0]) ||
178 (DEQUAL(eval12[0],epar11[1]) && epar21[1] < eval12[0]) ||
179 (DEQUAL(epar11[1],eval12[1]) && eval12[1] < epar21[1]) ||
180 (DEQUAL(eval21[0],epar12[0]) && epar22[0] < eval21[0]) ||
181 (DEQUAL(epar12[0],eval21[1]) && eval21[1] < epar22[0]) ||
182 (DEQUAL(eval22[0],epar12[1]) && epar22[1] < eval22[0]) ||
183 (DEQUAL(epar12[1],eval22[1]) && eval22[1] < epar22[1]))
H A Ds1788.c263 if (DEQUAL(epar[0],spar11[0]) && DEQUAL(epar[1],spar11[1]) &&
264 DEQUAL(epar[2],spar12[0]) && DEQUAL(epar[3],spar12[1]) ) kmatch1 = 1;
269 if (DEQUAL(epar[0],spar21[0]) && DEQUAL(epar[1],spar21[1]) &&
270 DEQUAL(epar[2],spar22[0]) && DEQUAL(epar[3],spar22[1]) ) kmatch2 = 1;
H A Ds1789.c206 if (DEQUAL(sders[kdims]+tref,tref) &&
207 DEQUAL(sders[kdims+1]+tref,tref) &&
208 DEQUAL(sders[kdims+2]+tref,tref)) break;
212 if (DEQUAL(sders[4]+tref,sders[2]+tref))
219 if (DEQUAL(sders[5]+tref,sders[3]+tref))
278 if (DEQUAL(tlengthend+tref,tref))
601 while (DEQUAL(et[*jmy], et[kleft1])) (*jmy)--;
606 DEQUAL(et[*jmy]+tref, ax2+tref) ||
607 (DEQUAL(et[kleft1]+tref, ax1+tref) && kleft2 == (*jmy) &&
608 DEQUAL(et[kleft2]+tref, ax2+tref)))
H A Dsh1780_at.c133 if (DEQUAL (sptpar[0] + tref, st1[kn1] + tref))
137 if (DEQUAL (sptpar[0] + tref, st1[kk1 - 1] + tref))
141 if (DEQUAL (sptpar[1] + tref, st2[kn2] + tref))
145 if (DEQUAL (sptpar[1] + tref, st2[kk2 - 1] + tref))
H A Ds1173.c242 if (DEQUAL(enext[0],psurf->et1[kleft1]))
244 else if (DEQUAL(enext[0],psurf->et1[kleft1+1]))
249 if (DEQUAL(enext[1],psurf->et2[kleft2]))
251 else if (DEQUAL(enext[1],psurf->et2[kleft2+1]))
455 if (DEQUAL(tb1,DZERO) && DEQUAL(tb2,DZERO))
561 if (DEQUAL(t4,DZERO)) /* The second degree part is degenerated. */
563 if (DEQUAL(t2,DZERO))
565 if (DEQUAL(t3,DZERO)) return DZERO;
H A Ds6findfac.c140 if (DEQUAL(tdiv,DZERO))
142 if (DEQUAL(tdotuu,DZERO) && DEQUAL(tdotvv,DZERO));
143 else if (DEQUAL(tdotuu,DZERO))
H A Ds9iterate.c233 if (DEQUAL((tdum+tdum1),tdum)) tdum1 =DZERO;
272 if (DEQUAL((tdum+tdum2),tdum)) tdum2 =DZERO;
315 if (DEQUAL(tdum1,DZERO) || DEQUAL(tdum2,DZERO)) goto war02;
333 if (DEQUAL(tdum1,DZERO) || DEQUAL(tdum2,DZERO))
H A Dpickcrvsf.c151 if (DEQUAL(pt1->epar[index], pick_crv->et[pick_crv->ik-1]) &&
152 DEQUAL(pt2->epar[index], pick_crv->et[pick_crv->in]))
160 else if(DEQUAL(pt1->epar[index], pick_crv->et[pick_crv->in]) &&
161 DEQUAL(pt2->epar[index], pick_crv->et[pick_crv->ik-1]))
H A Ds1162.c1161 if(DEQUAL(tpar,tstart) || DEQUAL(tpar,tend)) goto out;
1246 if ((DEQUAL(up[0]->epar[0],sstart[0]) &&
1253 DEQUAL(up[1]->epar[1],send[1])))
1334 if(DEQUAL(spar[0],sstart[0]) ||
1335 DEQUAL(spar[0],send[0]) ||
1336 DEQUAL(spar[1],sstart[1]) ||
1337 DEQUAL(spar[1],send[1])) goto out;
1571 if(DEQUAL(tpar,tstart) || DEQUAL(tpar,tend))
1576 if(DEQUAL(tpar,tstart) || DEQUAL(tpar,tend))
1705 if (DEQUAL(spar[0],sstart[0]) || DEQUAL(spar[0],send[0]))
[all …]
H A Ds1312.c232 if (DEQUAL(tangle,DZERO) || *scurr < DZERO)
267 DEQUAL(*scurr,(double)-1.0))
271 else if (DEQUAL(*sprevr,(double)-1.0) &&
283 if (DEQUAL((epar[ki-1]+tpar),epar[ki-1]))
288 if (DEQUAL(tpar,DZERO))
H A Ds1119.c185 if (DEQUAL(tdiff,DZERO) )
189 else if (DEQUAL(tfirst,DZERO) )
240 if (DEQUAL(tdiff,DZERO) )
244 else if (DEQUAL(tfirst,DZERO) )
H A Ds1359.c257 if (DEQUAL(tangle,DZERO) || *sprevr < DZERO)
271 if (DEQUAL(tangle,DZERO) || *scurr < DZERO)
313 DEQUAL(*scurr,(double)-1.0))
317 else if (DEQUAL(*sprevr,(double)-1.0) &&
343 if (DEQUAL((epar[ki-1]+tpar),epar[ki-1]))
348 if (DEQUAL(tpar,DZERO))
H A Ds6idint.c174 if (DEQUAL(sstart1[kj],pintdat->vpoint[ki]->epar[kj]) ||
175 DEQUAL(send1[kj],pintdat->vpoint[ki]->epar[kj]))
181 if (DEQUAL(sstart2[kj],pintdat->vpoint[ki]->epar[kpar1+kj]) ||
182 DEQUAL(send2[kj],pintdat->vpoint[ki]->epar[kpar1+kj]))
H A Ds9surmarch.c214 if (DEQUAL(sq[0]+tdum1,scand2[0]+tdum1) &&
215 DEQUAL(sq[1]+tdum2,scand2[1]+tdum2) &&
216 DEQUAL(sq[2]+tdum3,scand2[2]+tdum3) &&
217 DEQUAL(sq[3]+tdum4,scand2[3]+tdum4))
H A Dsh1780.c201 if (DEQUAL (sptpar[0] + tref, st1[kn1] + tref) ||
202 (kdir2 == 1 && DEQUAL (sptpar[1] + tref, st2[kn2] + tref)) ||
203 (kdir2 == -1 && DEQUAL (sptpar[1] + tref, st2[kk2 - 1] + tref)))
286 if (DEQUAL (sptpar[0] + tref, st1[kk1 - 1] + tref) ||
287 (kdir2 == 1 && DEQUAL (sptpar[1] + tref, st2[kn2] + tref)) ||
288 (kdir2 == -1 && DEQUAL (sptpar[1] + tref, st2[kk2 - 1] + tref)))
H A Ds1791.c103 if (DEQUAL(tmid,tstart) || DEQUAL(tmid,tend))
H A Dsh1834.c473 if ((DEQUAL(tleng1,DZERO) || DEQUAL(tl1,DZERO)) && DEQUAL(tleng2,DZERO))
478 else if (DEQUAL(tleng1,DZERO) || DEQUAL(tl1,DZERO))
489 if (DEQUAL(tl3,DZERO)) emat[0] = emat[4] = emat[8] = (double)1.0;
510 if (DEQUAL(tl2,DZERO))
H A Dsh_1d_div.c193 if (DEQUAL(up2[ki]->epar[0], up2[kj]->epar[0]))
215 if (DEQUAL(up2[ki]->epar[0],po1->s1->et1[0]))
242 if (DEQUAL(up2[ki]->epar[1],po1->s1->et2[0]))
339 DEQUAL(uintpt[ki]->epar[0], pt_arr_1[0]->epar[0]) &&
340 DEQUAL(uintpt[ki]->epar[0], pt_arr_1[1]->epar[0]))
365 DEQUAL(uintpt[ki]->epar[1], pt_arr_2[0]->epar[1]) &&
366 DEQUAL(uintpt[ki]->epar[1], pt_arr_2[1]->epar[1]))
H A Ds1714.c127 if (DEQUAL (apar1, apar2))
137 while(apar1 > pc->et[pc->in] || DEQUAL(apar1, pc->et[pc->in]))
140 while (apar2 < apar1 || DEQUAL(apar2, apar1))
H A Dsh1262.c297 (DEQUAL(tnorm1+tref,tref) &&
300 (DEQUAL(tnorm2+tref,tref) &&
303 (DEQUAL(tnorm1+tref,tref) && DEQUAL(tnorm2+tref,tref)))
464 if (DEQUAL(tdiv,DZERO))
466 if (DEQUAL(tdotuu,DZERO) && DEQUAL(tdotvv,DZERO));
467 else if (DEQUAL(tdotuu,DZERO))
688 if (DEQUAL(sdet[kh],DZERO)) sdet[kh] = (double)1.0;
/dports/math/sisl/SISL-SISL-4.6.0-44-g9114631/examples/viewer/include/
H A Daux2.h124 #define DEQUAL(a, b) (fabs((a)-(b))<=1e-12 * std::max(std::max(fabs(a), fabs(b)), 1.0)) macro
125 #define NDEQUAL(a, b) (!DEQUAL(a, b))
129 #define DLESSEQ(a, b) (((a)<(b)) || (DEQUAL((a), (b))))
130 #define DGREATEREQ(a, b) (((a)>(b)) || (DEQUAL((a), (b))))

12345