(pa, pb, pc, pd, permanent)
| 1885 | } |
| 1886 | |
| 1887 | REAL orient3dadapt(pa, pb, pc, pd, permanent) |
| 1888 | REAL *pa; |
| 1889 | REAL *pb; |
| 1890 | REAL *pc; |
| 1891 | REAL *pd; |
| 1892 | REAL permanent; |
| 1893 | { |
| 1894 | INEXACT REAL adx, bdx, cdx, ady, bdy, cdy, adz, bdz, cdz; |
| 1895 | REAL det, errbound; |
| 1896 | |
| 1897 | INEXACT REAL bdxcdy1, cdxbdy1, cdxady1, adxcdy1, adxbdy1, bdxady1; |
| 1898 | REAL bdxcdy0, cdxbdy0, cdxady0, adxcdy0, adxbdy0, bdxady0; |
| 1899 | REAL bc[4], ca[4], ab[4]; |
| 1900 | INEXACT REAL bc3, ca3, ab3; |
| 1901 | REAL adet[8], bdet[8], cdet[8]; |
| 1902 | int alen, blen, clen; |
| 1903 | REAL abdet[16]; |
| 1904 | int ablen; |
| 1905 | REAL *finnow, *finother, *finswap; |
| 1906 | REAL fin1[192], fin2[192]; |
| 1907 | int finlength; |
| 1908 | |
| 1909 | REAL adxtail, bdxtail, cdxtail; |
| 1910 | REAL adytail, bdytail, cdytail; |
| 1911 | REAL adztail, bdztail, cdztail; |
| 1912 | INEXACT REAL at_blarge, at_clarge; |
| 1913 | INEXACT REAL bt_clarge, bt_alarge; |
| 1914 | INEXACT REAL ct_alarge, ct_blarge; |
| 1915 | REAL at_b[4], at_c[4], bt_c[4], bt_a[4], ct_a[4], ct_b[4]; |
| 1916 | int at_blen, at_clen, bt_clen, bt_alen, ct_alen, ct_blen; |
| 1917 | INEXACT REAL bdxt_cdy1, cdxt_bdy1, cdxt_ady1; |
| 1918 | INEXACT REAL adxt_cdy1, adxt_bdy1, bdxt_ady1; |
| 1919 | REAL bdxt_cdy0, cdxt_bdy0, cdxt_ady0; |
| 1920 | REAL adxt_cdy0, adxt_bdy0, bdxt_ady0; |
| 1921 | INEXACT REAL bdyt_cdx1, cdyt_bdx1, cdyt_adx1; |
| 1922 | INEXACT REAL adyt_cdx1, adyt_bdx1, bdyt_adx1; |
| 1923 | REAL bdyt_cdx0, cdyt_bdx0, cdyt_adx0; |
| 1924 | REAL adyt_cdx0, adyt_bdx0, bdyt_adx0; |
| 1925 | REAL bct[8], cat[8], abt[8]; |
| 1926 | int bctlen, catlen, abtlen; |
| 1927 | INEXACT REAL bdxt_cdyt1, cdxt_bdyt1, cdxt_adyt1; |
| 1928 | INEXACT REAL adxt_cdyt1, adxt_bdyt1, bdxt_adyt1; |
| 1929 | REAL bdxt_cdyt0, cdxt_bdyt0, cdxt_adyt0; |
| 1930 | REAL adxt_cdyt0, adxt_bdyt0, bdxt_adyt0; |
| 1931 | REAL u[4], v[12], w[16]; |
| 1932 | INEXACT REAL u3; |
| 1933 | int vlength, wlength; |
| 1934 | REAL negate; |
| 1935 | |
| 1936 | INEXACT REAL bvirt; |
| 1937 | REAL avirt, bround, around; |
| 1938 | INEXACT REAL c; |
| 1939 | INEXACT REAL abig; |
| 1940 | REAL ahi, alo, bhi, blo; |
| 1941 | REAL err1, err2, err3; |
| 1942 | INEXACT REAL _i, _j, _k; |
| 1943 | REAL _0; |
| 1944 |
no test coverage detected