(pa, pb, pc, pd, permanent)
| 2650 | } |
| 2651 | |
| 2652 | REAL incircleadapt(pa, pb, pc, pd, permanent) |
| 2653 | REAL *pa; |
| 2654 | REAL *pb; |
| 2655 | REAL *pc; |
| 2656 | REAL *pd; |
| 2657 | REAL permanent; |
| 2658 | { |
| 2659 | INEXACT REAL adx, bdx, cdx, ady, bdy, cdy; |
| 2660 | REAL det, errbound; |
| 2661 | |
| 2662 | INEXACT REAL bdxcdy1, cdxbdy1, cdxady1, adxcdy1, adxbdy1, bdxady1; |
| 2663 | REAL bdxcdy0, cdxbdy0, cdxady0, adxcdy0, adxbdy0, bdxady0; |
| 2664 | REAL bc[4], ca[4], ab[4]; |
| 2665 | INEXACT REAL bc3, ca3, ab3; |
| 2666 | REAL axbc[8], axxbc[16], aybc[8], ayybc[16], adet[32]; |
| 2667 | int axbclen, axxbclen, aybclen, ayybclen, alen; |
| 2668 | REAL bxca[8], bxxca[16], byca[8], byyca[16], bdet[32]; |
| 2669 | int bxcalen, bxxcalen, bycalen, byycalen, blen; |
| 2670 | REAL cxab[8], cxxab[16], cyab[8], cyyab[16], cdet[32]; |
| 2671 | int cxablen, cxxablen, cyablen, cyyablen, clen; |
| 2672 | REAL abdet[64]; |
| 2673 | int ablen; |
| 2674 | REAL fin1[1152], fin2[1152]; |
| 2675 | REAL *finnow, *finother, *finswap; |
| 2676 | int finlength; |
| 2677 | |
| 2678 | REAL adxtail, bdxtail, cdxtail, adytail, bdytail, cdytail; |
| 2679 | INEXACT REAL adxadx1, adyady1, bdxbdx1, bdybdy1, cdxcdx1, cdycdy1; |
| 2680 | REAL adxadx0, adyady0, bdxbdx0, bdybdy0, cdxcdx0, cdycdy0; |
| 2681 | REAL aa[4], bb[4], cc[4]; |
| 2682 | INEXACT REAL aa3, bb3, cc3; |
| 2683 | INEXACT REAL ti1, tj1; |
| 2684 | REAL ti0, tj0; |
| 2685 | REAL u[4], v[4]; |
| 2686 | INEXACT REAL u3, v3; |
| 2687 | REAL temp8[8], temp16a[16], temp16b[16], temp16c[16]; |
| 2688 | REAL temp32a[32], temp32b[32], temp48[48], temp64[64]; |
| 2689 | int temp8len, temp16alen, temp16blen, temp16clen; |
| 2690 | int temp32alen, temp32blen, temp48len, temp64len; |
| 2691 | REAL axtbb[8], axtcc[8], aytbb[8], aytcc[8]; |
| 2692 | int axtbblen, axtcclen, aytbblen, aytcclen; |
| 2693 | REAL bxtaa[8], bxtcc[8], bytaa[8], bytcc[8]; |
| 2694 | int bxtaalen, bxtcclen, bytaalen, bytcclen; |
| 2695 | REAL cxtaa[8], cxtbb[8], cytaa[8], cytbb[8]; |
| 2696 | int cxtaalen, cxtbblen, cytaalen, cytbblen; |
| 2697 | REAL axtbc[8], aytbc[8], bxtca[8], bytca[8], cxtab[8], cytab[8]; |
| 2698 | int axtbclen, aytbclen, bxtcalen, bytcalen, cxtablen, cytablen; |
| 2699 | REAL axtbct[16], aytbct[16], bxtcat[16], bytcat[16], cxtabt[16], cytabt[16]; |
| 2700 | int axtbctlen, aytbctlen, bxtcatlen, bytcatlen, cxtabtlen, cytabtlen; |
| 2701 | REAL axtbctt[8], aytbctt[8], bxtcatt[8]; |
| 2702 | REAL bytcatt[8], cxtabtt[8], cytabtt[8]; |
| 2703 | int axtbcttlen, aytbcttlen, bxtcattlen, bytcattlen, cxtabttlen, cytabttlen; |
| 2704 | REAL abt[8], bct[8], cat[8]; |
| 2705 | int abtlen, bctlen, catlen; |
| 2706 | REAL abtt[4], bctt[4], catt[4]; |
| 2707 | int abttlen, bcttlen, cattlen; |
| 2708 | INEXACT REAL abtt3, bctt3, catt3; |
| 2709 | REAL negate; |
no test coverage detected