/dports/databases/grass7/grass-7.8.6/vector/v.in.dwg/ |
H A D | entity.c | 348 Vect_append_point(Points, aden->line.pt0[0], aden->line.pt0[1], in wrentity() 394 for (ang = aden->arc.stang; ang < aden->arc.endang; in wrentity() 396 x = aden->arc.pt0[0] + aden->arc.radius * cos(ang); in wrentity() 397 y = aden->arc.pt0[1] + aden->arc.radius * sin(ang); in wrentity() 401 x = aden->arc.pt0[0] + aden->arc.radius * cos(aden->arc.endang); in wrentity() 402 y = aden->arc.pt0[1] + aden->arc.radius * sin(aden->arc.endang); in wrentity() 411 aden->circle.pt0[1], aden->circle.pt0[3]); in wrentity() 416 x = aden->circle.pt0[0] + aden->circle.radius * cos(ang); in wrentity() 417 y = aden->circle.pt0[1] + aden->circle.radius * sin(ang); in wrentity() 447 aden->insert.pt0[1], aden->insert.pt0[2]); in wrentity() [all …]
|
/dports/math/e-antic/e-antic-1.0.0-rc.13/libeantic/upstream/antic/nf_elem/ |
H A D | add.c | 100 fmpz * const aden = QNF_ELEM_DENREF(a); in _nf_elem_add_qf() local 111 fmpz_set(aden, bden); in _nf_elem_add_qf() 113 if (can && !fmpz_is_one(aden)) in _nf_elem_add_qf() 119 fmpz_gcd(d, d, aden); in _nf_elem_add_qf() 126 fmpz_divexact(aden, aden, d); in _nf_elem_add_qf() 147 fmpz_mul(aden, bden, cden); in _nf_elem_add_qf() 167 fmpz_one(aden); in _nf_elem_add_qf() 182 fmpz_mul(aden, bden, cden1); in _nf_elem_add_qf() 189 fmpz_mul(aden, bden1, cden1); in _nf_elem_add_qf() 194 fmpz_mul(aden, bden, cden1); in _nf_elem_add_qf()
|
H A D | sub.c | 100 fmpz * const aden = QNF_ELEM_DENREF(a); in _nf_elem_sub_qf() local 110 fmpz_set(aden, bden); in _nf_elem_sub_qf() 112 if (can && !fmpz_is_one(aden)) in _nf_elem_sub_qf() 118 fmpz_gcd(d, d, aden); in _nf_elem_sub_qf() 125 fmpz_divexact(aden, aden, d); in _nf_elem_sub_qf() 146 fmpz_mul(aden, bden, cden); in _nf_elem_sub_qf() 166 fmpz_one(aden); in _nf_elem_sub_qf() 181 fmpz_mul(aden, bden, cden1); in _nf_elem_sub_qf() 188 fmpz_mul(aden, bden1, cden1); in _nf_elem_sub_qf() 193 fmpz_mul(aden, bden, cden1); in _nf_elem_sub_qf()
|
H A D | trace.c | 27 const fmpz * const aden = LNF_ELEM_DENREF(a); in _nf_elem_trace() local 30 fmpz_set(rden, aden); in _nf_elem_trace() 34 const fmpz * const aden = QNF_ELEM_DENREF(a); in _nf_elem_trace() local 53 fmpz_mul(rden, aden, tden); in _nf_elem_trace() 60 const fmpz * const aden = NF_ELEM_DENREF(a); in _nf_elem_trace() local 77 fmpz_mul(rden, aden, tden); in _nf_elem_trace()
|
H A D | equal.c | 28 const fmpz * const aden = LNF_ELEM_DENREF(a); in _nf_elem_equal() local 33 if (fmpz_equal(aden, bden)) in _nf_elem_equal() 36 d = fmpz_bits(aden) - fmpz_bits(bden) + 1; in _nf_elem_equal() 47 fmpz_mul(t2, bnum, aden); in _nf_elem_equal() 63 const fmpz * const aden = QNF_ELEM_DENREF(a); in _nf_elem_equal() local 68 if (fmpz_equal(aden, bden)) in _nf_elem_equal() 71 d = fmpz_bits(aden) - fmpz_bits(bden) + 1; in _nf_elem_equal() 87 fmpz_mul(t2, bnum, aden); in _nf_elem_equal() 96 fmpz_mul(t2, bnum + 1, aden); in _nf_elem_equal()
|
H A D | norm.c | 25 const fmpz * const aden = LNF_ELEM_DENREF(a); in _nf_elem_norm() local 28 fmpz_set(rden, aden); in _nf_elem_norm() 32 const fmpz * const aden = QNF_ELEM_DENREF(a); in _nf_elem_norm() local 51 nf->pol->coeffs, one, 3, anum, aden, alen); in _nf_elem_norm() 70 const fmpz * const aden = NF_ELEM_DENREF(a); in _nf_elem_norm() local 89 nf->pol->coeffs, one, len, anum, aden, alen); in _nf_elem_norm()
|
H A D | norm_div.c | 33 const fmpz * const aden = LNF_ELEM_DENREF(a); in _nf_elem_norm_div() local 38 fmpz_mul(rden, rden, aden); in _nf_elem_norm_div() 47 const fmpz * const aden = QNF_ELEM_DENREF(a); in _nf_elem_norm_div() local 66 nf->pol->coeffs, one, 3, anum, aden, alen, divisor, nbits); in _nf_elem_norm_div() 84 const fmpz * const aden = NF_ELEM_DENREF(a); in _nf_elem_norm_div() local 103 nf->pol->coeffs, one, len, anum, aden, alen, divisor, nbits); in _nf_elem_norm_div()
|
H A D | mul.c | 29 fmpz * const aden = LNF_ELEM_DENREF(a); in _nf_elem_mul_red() local 33 fmpz_mul(aden, bden, cden); in _nf_elem_mul_red() 41 fmpz * const aden = QNF_ELEM_DENREF(a); in _nf_elem_mul_red() local 48 fmpz_mul(aden, bden, cden); in _nf_elem_mul_red() 63 pnum, pnum + 2, 2, anum + 2, aden); in _nf_elem_mul_red() 64 _fmpq_poly_sub_can(anum, aden, anum, aden, 2, prod, prod + 2, 2, 0); in _nf_elem_mul_red()
|
/dports/math/e-antic/antic-f4e8a60/nf_elem/ |
H A D | add.c | 100 fmpz * const aden = QNF_ELEM_DENREF(a); in _nf_elem_add_qf() local 111 fmpz_set(aden, bden); in _nf_elem_add_qf() 113 if (can && !fmpz_is_one(aden)) in _nf_elem_add_qf() 119 fmpz_gcd(d, d, aden); in _nf_elem_add_qf() 126 fmpz_divexact(aden, aden, d); in _nf_elem_add_qf() 147 fmpz_mul(aden, bden, cden); in _nf_elem_add_qf() 167 fmpz_one(aden); in _nf_elem_add_qf() 182 fmpz_mul(aden, bden, cden1); in _nf_elem_add_qf() 189 fmpz_mul(aden, bden1, cden1); in _nf_elem_add_qf() 194 fmpz_mul(aden, bden, cden1); in _nf_elem_add_qf()
|
H A D | sub.c | 100 fmpz * const aden = QNF_ELEM_DENREF(a); in _nf_elem_sub_qf() local 110 fmpz_set(aden, bden); in _nf_elem_sub_qf() 112 if (can && !fmpz_is_one(aden)) in _nf_elem_sub_qf() 118 fmpz_gcd(d, d, aden); in _nf_elem_sub_qf() 125 fmpz_divexact(aden, aden, d); in _nf_elem_sub_qf() 146 fmpz_mul(aden, bden, cden); in _nf_elem_sub_qf() 166 fmpz_one(aden); in _nf_elem_sub_qf() 181 fmpz_mul(aden, bden, cden1); in _nf_elem_sub_qf() 188 fmpz_mul(aden, bden1, cden1); in _nf_elem_sub_qf() 193 fmpz_mul(aden, bden, cden1); in _nf_elem_sub_qf()
|
H A D | trace.c | 27 const fmpz * const aden = LNF_ELEM_DENREF(a); in _nf_elem_trace() local 30 fmpz_set(rden, aden); in _nf_elem_trace() 34 const fmpz * const aden = QNF_ELEM_DENREF(a); in _nf_elem_trace() local 53 fmpz_mul(rden, aden, tden); in _nf_elem_trace() 60 const fmpz * const aden = NF_ELEM_DENREF(a); in _nf_elem_trace() local 77 fmpz_mul(rden, aden, tden); in _nf_elem_trace()
|
H A D | equal.c | 28 const fmpz * const aden = LNF_ELEM_DENREF(a); in _nf_elem_equal() local 33 if (fmpz_equal(aden, bden)) in _nf_elem_equal() 36 d = fmpz_bits(aden) - fmpz_bits(bden) + 1; in _nf_elem_equal() 47 fmpz_mul(t2, bnum, aden); in _nf_elem_equal() 63 const fmpz * const aden = QNF_ELEM_DENREF(a); in _nf_elem_equal() local 68 if (fmpz_equal(aden, bden)) in _nf_elem_equal() 71 d = fmpz_bits(aden) - fmpz_bits(bden) + 1; in _nf_elem_equal() 87 fmpz_mul(t2, bnum, aden); in _nf_elem_equal() 96 fmpz_mul(t2, bnum + 1, aden); in _nf_elem_equal()
|
H A D | norm.c | 25 const fmpz * const aden = LNF_ELEM_DENREF(a); in _nf_elem_norm() local 28 fmpz_set(rden, aden); in _nf_elem_norm() 32 const fmpz * const aden = QNF_ELEM_DENREF(a); in _nf_elem_norm() local 51 nf->pol->coeffs, one, 3, anum, aden, alen); in _nf_elem_norm() 70 const fmpz * const aden = NF_ELEM_DENREF(a); in _nf_elem_norm() local 89 nf->pol->coeffs, one, len, anum, aden, alen); in _nf_elem_norm()
|
H A D | norm_div.c | 33 const fmpz * const aden = LNF_ELEM_DENREF(a); in _nf_elem_norm_div() local 38 fmpz_mul(rden, rden, aden); in _nf_elem_norm_div() 47 const fmpz * const aden = QNF_ELEM_DENREF(a); in _nf_elem_norm_div() local 66 nf->pol->coeffs, one, 3, anum, aden, alen, divisor, nbits); in _nf_elem_norm_div() 84 const fmpz * const aden = NF_ELEM_DENREF(a); in _nf_elem_norm_div() local 103 nf->pol->coeffs, one, len, anum, aden, alen, divisor, nbits); in _nf_elem_norm_div()
|
/dports/math/antic/antic-0.2.4/nf_elem/ |
H A D | add.c | 100 fmpz * const aden = QNF_ELEM_DENREF(a); in _nf_elem_add_qf() local 111 fmpz_set(aden, bden); in _nf_elem_add_qf() 113 if (can && !fmpz_is_one(aden)) in _nf_elem_add_qf() 119 fmpz_gcd(d, d, aden); in _nf_elem_add_qf() 126 fmpz_divexact(aden, aden, d); in _nf_elem_add_qf() 147 fmpz_mul(aden, bden, cden); in _nf_elem_add_qf() 167 fmpz_one(aden); in _nf_elem_add_qf() 182 fmpz_mul(aden, bden, cden1); in _nf_elem_add_qf() 189 fmpz_mul(aden, bden1, cden1); in _nf_elem_add_qf() 194 fmpz_mul(aden, bden, cden1); in _nf_elem_add_qf()
|
H A D | sub.c | 100 fmpz * const aden = QNF_ELEM_DENREF(a); in _nf_elem_sub_qf() local 110 fmpz_set(aden, bden); in _nf_elem_sub_qf() 112 if (can && !fmpz_is_one(aden)) in _nf_elem_sub_qf() 118 fmpz_gcd(d, d, aden); in _nf_elem_sub_qf() 125 fmpz_divexact(aden, aden, d); in _nf_elem_sub_qf() 146 fmpz_mul(aden, bden, cden); in _nf_elem_sub_qf() 166 fmpz_one(aden); in _nf_elem_sub_qf() 181 fmpz_mul(aden, bden, cden1); in _nf_elem_sub_qf() 188 fmpz_mul(aden, bden1, cden1); in _nf_elem_sub_qf() 193 fmpz_mul(aden, bden, cden1); in _nf_elem_sub_qf()
|
H A D | trace.c | 27 const fmpz * const aden = LNF_ELEM_DENREF(a); in _nf_elem_trace() local 30 fmpz_set(rden, aden); in _nf_elem_trace() 34 const fmpz * const aden = QNF_ELEM_DENREF(a); in _nf_elem_trace() local 53 fmpz_mul(rden, aden, tden); in _nf_elem_trace() 60 const fmpz * const aden = NF_ELEM_DENREF(a); in _nf_elem_trace() local 77 fmpz_mul(rden, aden, tden); in _nf_elem_trace()
|
H A D | equal.c | 28 const fmpz * const aden = LNF_ELEM_DENREF(a); in _nf_elem_equal() local 33 if (fmpz_equal(aden, bden)) in _nf_elem_equal() 36 d = fmpz_bits(aden) - fmpz_bits(bden) + 1; in _nf_elem_equal() 47 fmpz_mul(t2, bnum, aden); in _nf_elem_equal() 63 const fmpz * const aden = QNF_ELEM_DENREF(a); in _nf_elem_equal() local 68 if (fmpz_equal(aden, bden)) in _nf_elem_equal() 71 d = fmpz_bits(aden) - fmpz_bits(bden) + 1; in _nf_elem_equal() 87 fmpz_mul(t2, bnum, aden); in _nf_elem_equal() 96 fmpz_mul(t2, bnum + 1, aden); in _nf_elem_equal()
|
H A D | norm.c | 25 const fmpz * const aden = LNF_ELEM_DENREF(a); in _nf_elem_norm() local 28 fmpz_set(rden, aden); in _nf_elem_norm() 32 const fmpz * const aden = QNF_ELEM_DENREF(a); in _nf_elem_norm() local 51 nf->pol->coeffs, one, 3, anum, aden, alen); in _nf_elem_norm() 75 const fmpz * const aden = NF_ELEM_DENREF(a); in _nf_elem_norm() local 94 nf->pol->coeffs, one, len, anum, aden, alen); in _nf_elem_norm()
|
H A D | norm_div.c | 33 const fmpz * const aden = LNF_ELEM_DENREF(a); in _nf_elem_norm_div() local 38 fmpz_mul(rden, rden, aden); in _nf_elem_norm_div() 47 const fmpz * const aden = QNF_ELEM_DENREF(a); in _nf_elem_norm_div() local 66 nf->pol->coeffs, one, 3, anum, aden, alen, divisor, nbits); in _nf_elem_norm_div() 84 const fmpz * const aden = NF_ELEM_DENREF(a); in _nf_elem_norm_div() local 103 nf->pol->coeffs, one, len, anum, aden, alen, divisor, nbits); in _nf_elem_norm_div()
|
/dports/math/e-antic/flint2-ae7ec89/fmpz_poly/ |
H A D | evaluate_fmpq.c | 20 const fmpz_t anum, const fmpz_t aden) in _fmpz_poly_evaluate_fmpq() argument 22 if (len < 40 || fmpz_bits(aden) > 0.003 * len * len) in _fmpz_poly_evaluate_fmpq() 23 _fmpz_poly_evaluate_horner_fmpq(rnum, rden, f, len, anum, aden); in _fmpz_poly_evaluate_fmpq() 25 _fmpz_poly_evaluate_divconquer_fmpq(rnum, rden, f, len, anum, aden); in _fmpz_poly_evaluate_fmpq()
|
/dports/math/e-antic/e-antic-1.0.0-rc.13/libeantic/upstream/antic/fmpz_poly/ |
H A D | evaluate_fmpq.c | 20 const fmpz_t anum, const fmpz_t aden) in _fmpz_poly_evaluate_fmpq() argument 22 if (len < 40 || fmpz_bits(aden) > 0.003 * len * len) in _fmpz_poly_evaluate_fmpq() 23 _fmpz_poly_evaluate_horner_fmpq(rnum, rden, f, len, anum, aden); in _fmpz_poly_evaluate_fmpq() 25 _fmpz_poly_evaluate_divconquer_fmpq(rnum, rden, f, len, anum, aden); in _fmpz_poly_evaluate_fmpq()
|
/dports/math/flint2/flint-2.8.4/fmpz_poly/ |
H A D | evaluate_fmpq.c | 20 const fmpz_t anum, const fmpz_t aden) in _fmpz_poly_evaluate_fmpq() argument 22 if (len < 40 || fmpz_bits(aden) > 0.003 * len * len) in _fmpz_poly_evaluate_fmpq() 23 _fmpz_poly_evaluate_horner_fmpq(rnum, rden, f, len, anum, aden); in _fmpz_poly_evaluate_fmpq() 25 _fmpz_poly_evaluate_divconquer_fmpq(rnum, rden, f, len, anum, aden); in _fmpz_poly_evaluate_fmpq()
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/nwpwxc/ |
H A D | nwpwxc_c_perdew86.F | 107 double precision anum, aden, d1anum, d1aden, Cn, d1Cn, 147 aden = 1.d0+pgamma*rs+delta*rs2+beta10*rs3 148 Cn = zzz + anum/aden 156 d1Cn = d1anum/aden - anum*d1aden/aden**2 158 d2Cn = d2anum/aden - (2d0*d1anum*d1aden+anum*d2aden)/aden**2 159 & + 2d0*anum*d1aden**2/aden**3 298 aden = 1.d0+pgamma*rs+delta*rs2+beta10*rs3 299 Cn = zzz + anum/aden 307 d1Cn = d1anum/aden - anum*d1aden/aden**2 309 d2Cn = d2anum/aden - (2d0*d1anum*d1aden+anum*d2aden)/aden**2 [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/nwpwxc/ |
H A D | nwpwxc_c_perdew86.F | 107 double precision anum, aden, d1anum, d1aden, Cn, d1Cn, 147 aden = 1.d0+pgamma*rs+delta*rs2+beta10*rs3 148 Cn = zzz + anum/aden 156 d1Cn = d1anum/aden - anum*d1aden/aden**2 158 d2Cn = d2anum/aden - (2d0*d1anum*d1aden+anum*d2aden)/aden**2 159 & + 2d0*anum*d1aden**2/aden**3 298 aden = 1.d0+pgamma*rs+delta*rs2+beta10*rs3 299 Cn = zzz + anum/aden 307 d1Cn = d1anum/aden - anum*d1aden/aden**2 309 d2Cn = d2anum/aden - (2d0*d1anum*d1aden+anum*d2aden)/aden**2 [all …]
|