/dports/audio/sphinxbase/sphinxbase-0.8/test/unit/test_matrix/ |
H A D | test_invert.c | 21 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 D | ions_positions.f90 | 97 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 D | exx_gs.f90 | 158 …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 D | t-invert.c | 30 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 D | t-invert.c | 31 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 D | t-invert.c | 31 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 D | t-invert.c | 30 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 D | geom_2d.F | 79 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 D | geom_3d.F | 35 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 D | geom_2d.F | 79 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 D | geom_3d.F | 35 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 D | dgetri.go | 61 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 D | dgetri.go | 61 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 D | t-inv.c | 28 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 D | t-inv.c | 28 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 D | t-inv.c | 28 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 D | t-compose_mod_brent_kung_vec_preinv.c | 40 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 D | t-compose_mod_brent_kung_vec_preinv_threaded.c | 47 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 D | t-compose_mod_brent_kung_vec_preinv.c | 40 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 D | t-compose_mod_brent_kung_vec_preinv_threaded.c | 47 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 D | t-compose_mod_brent_kung_vec_preinv.c | 41 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 D | t-compose_mod_brent_kung_vec_preinv_threaded.c | 47 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 D | t-compose_mod_brent_kung_vec_preinv.c | 40 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 D | t-compose_mod_brent_kung_vec_preinv_threaded.c | 47 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 D | t-compose_mod_brent_kung_vec_preinv.c | 41 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()
|