Home
last modified time | relevance | path

Searched refs:ainv (Results 1 – 25 of 420) sorted by relevance

12345678910>>...17

/dports/audio/sphinxbase/sphinxbase-0.8/test/unit/test_matrix/
H A Dtest_invert.c21 float32 **a, **ainv, **ii; in main() local
25 ainv = (float32 **)ckd_calloc_2d(3, 3, sizeof(float32)); in main()
29 printf("%d\n", invert(ainv, a, 3)); in main()
37 printf("%.2f ", ainv[i][j]); in main()
46 matrixmultiply(ii, ainv, a, 3); in main()
55 printf("%d\n", invert(ainv, a, 3)); in main()
60 printf("%.2f ", ainv[i][j]); in main()
70 matrixmultiply(ii, ainv, a, 3); in main()
82 printf("%d\n", invert(ainv, a, 3)); in main()
85 ckd_free_2d((void **)ainv); in main()
/dports/science/quantum-espresso/q-e-qe-6.7.0/CPV/src/
H A Dions_positions.f9097 REAL(DP), INTENT(IN) :: ainv(3,3), delt local
112 fions(i) = fion(1,ia) * ainv(i,1) + &
113 fion(2,ia) * ainv(i,2) + &
114 fion(3,ia) * ainv(i,3)
136 REAL(DP), INTENT(IN) :: ainv(3,3), delt local
171 ( fion(1,ia) * ainv(i,1) + &
172 fion(2,ia) * ainv(i,2) + &
173 fion(3,ia) * ainv(i,3) )
186 fionm(i,ia) = ainv(i,1) * fion(1,ia) + &
187 ainv(i,2) * fion(2,ia) + &
[all …]
H A Dexx_gs.f90158 …wannierc_tmp(1,iobtl)=ainv(1,1)*wfc(1,iobtl)+ainv(1,2)*wfc(2,iobtl)+ainv(1,3)*wfc(3,iobtl) ! s =…
159 …wannierc_tmp(2,iobtl)=ainv(2,1)*wfc(1,iobtl)+ainv(2,2)*wfc(2,iobtl)+ainv(2,3)*wfc(3,iobtl) ! s =…
160 …wannierc_tmp(3,iobtl)=ainv(3,1)*wfc(1,iobtl)+ainv(3,2)*wfc(2,iobtl)+ainv(3,3)*wfc(3,iobtl) ! s =…
1438 wcs(1)=ainv(1,1)*wc(1)+ainv(1,2)*wc(2)+ainv(1,3)*wc(3) ! s_ij = h^-1 r_ij
1439 wcs(2)=ainv(2,1)*wc(1)+ainv(2,2)*wc(2)+ainv(2,3)*wc(3) ! s_ij = h^-1 r_ij
1440 wcs(3)=ainv(3,1)*wc(1)+ainv(3,2)*wc(2)+ainv(3,3)*wc(3) ! s_ij = h^-1 r_ij
1472 dij2(1)=ainv(1,1)*dij(1)+ainv(1,2)*dij(2)+ainv(1,3)*dij(3) ! s_ij = h^-1 r_ij
1473 dij2(2)=ainv(2,1)*dij(1)+ainv(2,2)*dij(2)+ainv(2,3)*dij(3) ! s_ij = h^-1 r_ij
1474 dij2(3)=ainv(3,1)*dij(1)+ainv(3,2)*dij(2)+ainv(3,3)*dij(3) ! s_ij = h^-1 r_ij
1511 …dist_vec_in_s(1)=ainv(1,1)*dist_vec_in_r(1)+ainv(1,2)*dist_vec_in_r(2)+ainv(1,3)*dist_vec_in_r(3) …
[all …]
/dports/math/gmp/gmp-6.2.1/tests/mpz/
H A Dt-invert.c30 mpz_t a, m, ainv, t; in main() local
45 mpz_init (ainv); in main()
68 r = mpz_invert (ainv, a, m); in main()
71 MPZ_CHECK_FORMAT (ainv); in main()
73 if (mpz_cmp_ui (ainv, 0) < 0 || mpz_cmpabs (ainv, m) >= 0) in main()
78 gmp_fprintf (stderr, "1/a = %Zx\n", ainv); in main()
83 mpz_mul (t, ainv, a); in main()
112 mpz_clear (ainv); in main()
/dports/math/gap/gap-4.11.0/extern/gmp/tests/mpz/
H A Dt-invert.c31 mpz_t a, m, ainv, t; in main() local
46 mpz_init (ainv); in main()
69 r = mpz_invert (ainv, a, m); in main()
72 MPZ_CHECK_FORMAT (ainv); in main()
74 if (mpz_cmp_ui (ainv, 0) < 0 || mpz_cmpabs (ainv, m) >= 0) in main()
79 gmp_fprintf (stderr, "1/a = %Zx\n", ainv); in main()
84 mpz_mul (t, ainv, a); in main()
116 mpz_clear (ainv); in main()
/dports/math/mingw32-libgmp/gmp-6.0.0/tests/mpz/
H A Dt-invert.c31 mpz_t a, m, ainv, t; in main() local
46 mpz_init (ainv); in main()
69 r = mpz_invert (ainv, a, m); in main()
72 MPZ_CHECK_FORMAT (ainv); in main()
74 if (mpz_cmp_ui (ainv, 0) < 0 || mpz_cmpabs (ainv, m) >= 0) in main()
79 gmp_fprintf (stderr, "1/a = %Zx\n", ainv); in main()
84 mpz_mul (t, ainv, a); in main()
116 mpz_clear (ainv); in main()
/dports/math/kalker/gmp-mpfr-sys-21966f4bfb56c87d407eb14c72e92ef4e55856aa/gmp-6.2.1-c/tests/mpz/
H A Dt-invert.c30 mpz_t a, m, ainv, t; in main() local
45 mpz_init (ainv); in main()
68 r = mpz_invert (ainv, a, m); in main()
71 MPZ_CHECK_FORMAT (ainv); in main()
73 if (mpz_cmp_ui (ainv, 0) < 0 || mpz_cmpabs (ainv, m) >= 0) in main()
78 gmp_fprintf (stderr, "1/a = %Zx\n", ainv); in main()
83 mpz_mul (t, ainv, a); in main()
112 mpz_clear (ainv); in main()
/dports/science/nwchem-data/nwchem-7.0.2-release/src/geom/
H A Dgeom_2d.F79 double precision c3,s3,rad,ainv(3,3)
158 ainv(1,1)= amat(2,2)/vol
159 ainv(1,2)=-amat(1,2)/vol
160 ainv(1,3)= 0.0d0
161 ainv(2,1)=-amat(2,1)/vol
162 ainv(2,2)= amat(1,1)/vol
163 ainv(2,3)= 0.0d0
164 ainv(3,1)= 0.0d0
165 ainv(3,2)= 0.0d0
166 ainv(3,3)= 1.0d0/cdist(3)
[all …]
H A Dgeom_3d.F35 double precision c1,c2,c3,s1,s2,s3,rad,ainv(3,3),rdist(3),rang(3)
143 ainv(1,1) = (1.0d+00/(cdist(1)*s3))
144 ainv(1,2) = 0.0d+00
145 ainv(1,3) = (cdist(2)*cdist(3)*(c1*c3-c2)/(vol*s3))
146 ainv(2,1) = (-c3/(cdist(2)*s3))
147 ainv(2,2) = (1.0d+00/cdist(2))
148 ainv(2,3) = (cdist(1)*cdist(3)*(c2*c3-c1)/(vol*s3))
149 ainv(3,1) = 0.0d+00
150 ainv(3,2) = 0.0d+00
151 ainv(3,3) = (cdist(1)*cdist(2)*s3/vol)
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/geom/
H A Dgeom_2d.F79 double precision c3,s3,rad,ainv(3,3)
158 ainv(1,1)= amat(2,2)/vol
159 ainv(1,2)=-amat(1,2)/vol
160 ainv(1,3)= 0.0d0
161 ainv(2,1)=-amat(2,1)/vol
162 ainv(2,2)= amat(1,1)/vol
163 ainv(2,3)= 0.0d0
164 ainv(3,1)= 0.0d0
165 ainv(3,2)= 0.0d0
166 ainv(3,3)= 1.0d0/cdist(3)
[all …]
H A Dgeom_3d.F35 double precision c1,c2,c3,s1,s2,s3,rad,ainv(3,3),rdist(3),rang(3)
143 ainv(1,1) = (1.0d+00/(cdist(1)*s3))
144 ainv(1,2) = 0.0d+00
145 ainv(1,3) = (cdist(2)*cdist(3)*(c1*c3-c2)/(vol*s3))
146 ainv(2,1) = (-c3/(cdist(2)*s3))
147 ainv(2,2) = (1.0d+00/cdist(2))
148 ainv(2,3) = (cdist(1)*cdist(3)*(c2*c3-c1)/(vol*s3))
149 ainv(3,1) = 0.0d+00
150 ainv(3,2) = 0.0d+00
151 ainv(3,3) = (cdist(1)*cdist(2)*s3/vol)
[all …]
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/lapack/testlapack/
H A Ddgetri.go61 ainv := make([]float64, len(a))
62 copy(ainv, a)
70 impl.Dgetri(n, ainv, lda, ipiv, work, -1)
74 impl.Dgetri(n, ainv, lda, ipiv, work, -1)
80 ok := impl.Dgetri(n, ainv, lda, ipiv, work, lwork)
86 ans := make([]float64, len(ainv))
87 bi.Dgemm(blas.NoTrans, blas.NoTrans, n, n, n, 1, aCopy, lda, ainv, lda, 0, ans, lda)
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/lapack/testlapack/
H A Ddgetri.go61 ainv := make([]float64, len(a))
62 copy(ainv, a)
70 impl.Dgetri(n, ainv, lda, ipiv, work, -1)
74 impl.Dgetri(n, ainv, lda, ipiv, work, -1)
80 ok := impl.Dgetri(n, ainv, lda, ipiv, work, lwork)
86 ans := make([]float64, len(ainv))
87 bi.Dgemm(blas.NoTrans, blas.NoTrans, n, n, n, 1, aCopy, lda, ainv, lda, 0, ans, lda)
/dports/math/e-antic/flint2-ae7ec89/fmpz_mod/test/
H A Dt-inv.c28 fmpz_t a, ainv, b, g; in main() local
33 fmpz_init(ainv); in main()
51 fmpz_mod_inv(ainv, a, fpctx); in main()
52 fmpz_mod_mul(b, a, ainv, fpctx); in main()
61 if (!fmpz_equal(a, ainv)) in main()
72 fmpz_clear(ainv); in main()
/dports/math/flint2/flint-2.8.4/fmpz_mod/test/
H A Dt-inv.c28 fmpz_t a, ainv, b, g; in main() local
33 fmpz_init(ainv); in main()
51 fmpz_mod_inv(ainv, a, fpctx); in main()
52 fmpz_mod_mul(b, a, ainv, fpctx); in main()
61 if (!fmpz_equal(a, ainv)) in main()
72 fmpz_clear(ainv); in main()
/dports/math/e-antic/e-antic-1.0.0-rc.13/libeantic/upstream/antic/fmpz_mod/test/
H A Dt-inv.c28 fmpz_t a, ainv, b, g; in main() local
33 fmpz_init(ainv); in main()
51 fmpz_mod_inv(ainv, a, fpctx); in main()
52 fmpz_mod_mul(b, a, ainv, fpctx); in main()
61 if (!fmpz_equal(a, ainv)) in main()
72 fmpz_clear(ainv); in main()
/dports/math/e-antic/e-antic-1.0.0-rc.13/libeantic/upstream/antic/nmod_poly/test/
H A Dt-compose_mod_brent_kung_vec_preinv.c40 nmod_poly_t a, ainv, b, c; in main() local
48 nmod_poly_init(ainv, m); in main()
56 nmod_poly_reverse(ainv, a, a->length); in main()
57 nmod_poly_inv_series(ainv, ainv, a->length); in main()
71 nmod_poly_compose_mod_brent_kung_vec_preinv(res, pow, l, k, b, a, ainv); in main()
90 nmod_poly_clear(ainv); in main()
H A Dt-compose_mod_brent_kung_vec_preinv_threaded.c47 nmod_poly_t a, ainv, b, c; in main() local
57 nmod_poly_init(ainv, m); in main()
65 nmod_poly_reverse(ainv, a, a->length); in main()
66 nmod_poly_inv_series(ainv, ainv, a->length); in main()
81 b, a, ainv); in main()
100 nmod_poly_clear(ainv); in main()
/dports/math/e-antic/flint2-ae7ec89/nmod_poly/test/
H A Dt-compose_mod_brent_kung_vec_preinv.c40 nmod_poly_t a, ainv, b, c; in main() local
48 nmod_poly_init(ainv, m); in main()
56 nmod_poly_reverse(ainv, a, a->length); in main()
57 nmod_poly_inv_series(ainv, ainv, a->length); in main()
71 nmod_poly_compose_mod_brent_kung_vec_preinv(res, pow, l, k, b, a, ainv); in main()
90 nmod_poly_clear(ainv); in main()
H A Dt-compose_mod_brent_kung_vec_preinv_threaded.c47 nmod_poly_t a, ainv, b, c; in main() local
57 nmod_poly_init(ainv, m); in main()
65 nmod_poly_reverse(ainv, a, a->length); in main()
66 nmod_poly_inv_series(ainv, ainv, a->length); in main()
81 b, a, ainv); in main()
100 nmod_poly_clear(ainv); in main()
/dports/math/e-antic/flint2-ae7ec89/fmpz_mod_poly/test/
H A Dt-compose_mod_brent_kung_vec_preinv.c41 fmpz_mod_poly_t a, ainv, b, c; in main() local
50 fmpz_mod_poly_init(ainv, p); in main()
59 fmpz_mod_poly_reverse(ainv, a, a->length); in main()
60 fmpz_mod_poly_inv_series_newton(ainv, ainv, a->length); in main()
77 fmpz_mod_poly_compose_mod_brent_kung_vec_preinv(res, pow, l, k, b, a, ainv); in main()
97 fmpz_mod_poly_clear(ainv); in main()
H A Dt-compose_mod_brent_kung_vec_preinv_threaded.c47 fmpz_mod_poly_t a, ainv, b, c; in main() local
58 fmpz_mod_poly_init(ainv, p); in main()
67 fmpz_mod_poly_reverse(ainv, a, a->length); in main()
68 fmpz_mod_poly_inv_series_newton(ainv, ainv, a->length); in main()
85 k, b, a, ainv); in main()
105 fmpz_mod_poly_clear(ainv); in main()
/dports/math/flint2/flint-2.8.4/nmod_poly/test/
H A Dt-compose_mod_brent_kung_vec_preinv.c40 nmod_poly_t a, ainv, b, c; in main() local
48 nmod_poly_init(ainv, m); in main()
56 nmod_poly_reverse(ainv, a, a->length); in main()
57 nmod_poly_inv_series(ainv, ainv, a->length); in main()
71 nmod_poly_compose_mod_brent_kung_vec_preinv(res, pow, l, k, b, a, ainv); in main()
90 nmod_poly_clear(ainv); in main()
H A Dt-compose_mod_brent_kung_vec_preinv_threaded.c47 nmod_poly_t a, ainv, b, c; in main() local
57 nmod_poly_init(ainv, m); in main()
65 nmod_poly_reverse(ainv, a, a->length); in main()
66 nmod_poly_inv_series(ainv, ainv, a->length); in main()
81 b, a, ainv); in main()
100 nmod_poly_clear(ainv); in main()
/dports/math/e-antic/e-antic-1.0.0-rc.13/libeantic/upstream/antic/fmpz_mod_poly/test/
H A Dt-compose_mod_brent_kung_vec_preinv.c41 fmpz_mod_poly_t a, ainv, b, c; in main() local
50 fmpz_mod_poly_init(ainv, p); in main()
59 fmpz_mod_poly_reverse(ainv, a, a->length); in main()
60 fmpz_mod_poly_inv_series_newton(ainv, ainv, a->length); in main()
77 fmpz_mod_poly_compose_mod_brent_kung_vec_preinv(res, pow, l, k, b, a, ainv); in main()
97 fmpz_mod_poly_clear(ainv); in main()

12345678910>>...17