| /dports/astro/pykep/pykep-2.6/src/third_party/cspice/ |
| H A D | m2q.c | 572 trace = r__[0] + r__[4] + r__[8]; in m2q_()
585 s[0] = (r__[5] - r__[7]) * factor; in m2q_()
586 s[1] = (r__[6] - r__[2]) * factor; in m2q_()
587 s[2] = (r__[1] - r__[3]) * factor; in m2q_()
591 c__ = (r__[5] - r__[7]) * factor; in m2q_()
592 s[1] = (r__[3] + r__[1]) * factor; in m2q_()
593 s[2] = (r__[6] + r__[2]) * factor; in m2q_()
597 c__ = (r__[6] - r__[2]) * factor; in m2q_()
598 s[0] = (r__[3] + r__[1]) * factor; in m2q_()
599 s[2] = (r__[7] + r__[5]) * factor; in m2q_()
[all …]
|
| /dports/astro/py-pykep/pykep-2.6/src/third_party/cspice/ |
| H A D | m2q.c | 572 trace = r__[0] + r__[4] + r__[8]; in m2q_()
585 s[0] = (r__[5] - r__[7]) * factor; in m2q_()
586 s[1] = (r__[6] - r__[2]) * factor; in m2q_()
587 s[2] = (r__[1] - r__[3]) * factor; in m2q_()
591 c__ = (r__[5] - r__[7]) * factor; in m2q_()
592 s[1] = (r__[3] + r__[1]) * factor; in m2q_()
593 s[2] = (r__[6] + r__[2]) * factor; in m2q_()
597 c__ = (r__[6] - r__[2]) * factor; in m2q_()
598 s[0] = (r__[3] + r__[1]) * factor; in m2q_()
599 s[2] = (r__[7] + r__[5]) * factor; in m2q_()
[all …]
|
| /dports/math/cminpack/cminpack-1.3.6/ |
| H A D | covar_.c | 100 r__ -= r_offset; in __minpack_func__()
112 r__[k + k * r_dim1] = 1. / r__[k + k * r_dim1]; in __minpack_func__()
120 temp = r__[k + k * r_dim1] * r__[j + k * r_dim1]; in __minpack_func__()
124 r__[i__ + k * r_dim1] -= temp * r__[i__ + j * r_dim1]; in __minpack_func__()
152 r__[i__ + j * r_dim1] += temp * r__[i__ + k * r_dim1]; in __minpack_func__()
158 temp = r__[k + k * r_dim1]; in __minpack_func__()
161 r__[i__ + k * r_dim1] = temp * r__[i__ + k * r_dim1]; in __minpack_func__()
178 r__[i__ + j * r_dim1] = 0.; in __minpack_func__()
182 r__[ii + jj * r_dim1] = r__[i__ + j * r_dim1]; in __minpack_func__()
185 r__[jj + ii * r_dim1] = r__[i__ + j * r_dim1]; in __minpack_func__()
[all …]
|
| /dports/net/h323plus/h323plus-1_27_2/plugins/audio/LPC_10/src/ |
| H A D | mload.c | 112 integer c__, i__, r__, start; in mload_() local
127 for (r__ = 1; r__ <= i__1; ++r__) { in mload_()
128 phi[r__ + phi_dim1] = 0.f; in mload_()
131 phi[r__ + phi_dim1] += speech[i__ - 1] * speech[i__ - r__]; in mload_()
142 for (r__ = 2; r__ <= i__1; ++r__) { in mload_()
143 i__2 = r__; in mload_()
145 phi[r__ + c__ * phi_dim1] = phi[r__ - 1 + (c__ - 1) * phi_dim1] - in mload_()
146 speech[*awinf + 1 - r__] * speech[*awinf + 1 - c__] + in mload_()
147 speech[start - r__] * speech[start - c__]; in mload_()
|
| /dports/net/opal/opal-3.10.10/plugins/audio/LPC_10/src/ |
| H A D | mload.c | 112 integer c__, i__, r__, start; in mload_() local
127 for (r__ = 1; r__ <= i__1; ++r__) { in mload_()
128 phi[r__ + phi_dim1] = 0.f; in mload_()
131 phi[r__ + phi_dim1] += speech[i__ - 1] * speech[i__ - r__]; in mload_()
142 for (r__ = 2; r__ <= i__1; ++r__) { in mload_()
143 i__2 = r__; in mload_()
145 phi[r__ + c__ * phi_dim1] = phi[r__ - 1 + (c__ - 1) * phi_dim1] - in mload_()
146 speech[*awinf + 1 - r__] * speech[*awinf + 1 - c__] + in mload_()
147 speech[start - r__] * speech[start - c__]; in mload_()
|
| /dports/audio/sox/sox-14.4.2/lpc10/ |
| H A D | mload.c | 79 integer c__, i__, r__, start; in mload_() local
94 for (r__ = 1; r__ <= i__1; ++r__) { in mload_()
95 phi[r__ + phi_dim1] = 0.f; in mload_()
98 phi[r__ + phi_dim1] += speech[i__ - 1] * speech[i__ - r__]; in mload_()
109 for (r__ = 2; r__ <= i__1; ++r__) { in mload_()
110 i__2 = r__; in mload_()
112 phi[r__ + c__ * phi_dim1] = phi[r__ - 1 + (c__ - 1) * phi_dim1] - in mload_()
113 speech[*awinf + 1 - r__] * speech[*awinf + 1 - c__] + in mload_()
114 speech[start - r__] * speech[start - c__]; in mload_()
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | slartgp.c | 136 *r__ = f2c_abs(*f); in slartgp_()
142 *r__ = f2c_abs(*g); in slartgp_()
172 *cs = f1 / *r__; in slartgp_()
173 *sn = g1 / *r__; in slartgp_()
179 *r__ *= safmx2; in slartgp_()
203 *cs = f1 / *r__; in slartgp_()
204 *sn = g1 / *r__; in slartgp_()
221 *cs = f1 / *r__; in slartgp_()
222 *sn = g1 / *r__; in slartgp_()
224 if (*r__ < 0.f) in slartgp_()
[all …]
|
| H A D | dlartgp.c | 136 *r__ = f2c_abs(*f); in dlartgp_()
142 *r__ = f2c_abs(*g); in dlartgp_()
172 *cs = f1 / *r__; in dlartgp_()
173 *sn = g1 / *r__; in dlartgp_()
179 *r__ *= safmx2; in dlartgp_()
203 *cs = f1 / *r__; in dlartgp_()
204 *sn = g1 / *r__; in dlartgp_()
221 *cs = f1 / *r__; in dlartgp_()
222 *sn = g1 / *r__; in dlartgp_()
224 if (*r__ < 0.) in dlartgp_()
[all …]
|
| H A D | slartg.c | 136 *r__ = *f; in slartg_()
142 *r__ = *g; in slartg_()
172 *cs = f1 / *r__; in slartg_()
173 *sn = g1 / *r__; in slartg_()
179 *r__ *= safmx2; in slartg_()
203 *cs = f1 / *r__; in slartg_()
204 *sn = g1 / *r__; in slartg_()
210 *r__ *= safmn2; in slartg_()
221 *cs = f1 / *r__; in slartg_()
222 *sn = g1 / *r__; in slartg_()
[all …]
|
| H A D | dlartg.c | 136 *r__ = *f; in dlartg_()
142 *r__ = *g; in dlartg_()
172 *cs = f1 / *r__; in dlartg_()
173 *sn = g1 / *r__; in dlartg_()
179 *r__ *= safmx2; in dlartg_()
203 *cs = f1 / *r__; in dlartg_()
204 *sn = g1 / *r__; in dlartg_()
210 *r__ *= safmn2; in dlartg_()
221 *cs = f1 / *r__; in dlartg_()
222 *sn = g1 / *r__; in dlartg_()
[all …]
|
| /dports/science/hypre/hypre-2.23.0/src/lapack/ |
| H A D | dlartg.c | 89 *r__ = *f; in dlartg_()
93 *r__ = *g; in dlartg_()
117 *cs = f1 / *r__; in dlartg_()
118 *sn = g1 / *r__; in dlartg_()
121 *r__ *= safmx2; in dlartg_()
141 *cs = f1 / *r__; in dlartg_()
142 *sn = g1 / *r__; in dlartg_()
145 *r__ *= safmn2; in dlartg_()
154 *cs = f1 / *r__; in dlartg_()
155 *sn = g1 / *r__; in dlartg_()
[all …]
|
| /dports/math/openturns/openturns-1.18/lib/src/Uncertainty/Distribution/ |
| H A D | mvtdstpack.c | 1011 r__ = sqrt(-log(r__)); in mvphnv_()
1237 as = (1 - *r__) * (*r__ + 1); in mvbvu_()
1499 r__) in mvbvtl_()
1539 ors = 1 - *r__ * *r__; in mvbvtl_()
1699 r__ = sqrt(r__); in mvchnv_()
1701 r__ = mvchnc_(&lkn, n, p, &r__); in mvchnv_()
1704 r__ = mvchnc_(&lkn, n, p, &r__); in mvchnv_()
1706 r__ = mvchnc_(&lkn, n, p, &r__); in mvchnv_()
1719 r__) in mvchnc_()
1736 rr = *r__ * *r__; in mvchnc_()
[all …]
|
| /dports/math/igraph/igraph-0.9.5/vendor/lapack/ |
| H A D | dlartg.c | 156 *r__ = *f; in igraphdlartg_()
160 *r__ = *g; in igraphdlartg_()
184 *cs = f1 / *r__; in igraphdlartg_()
185 *sn = g1 / *r__; in igraphdlartg_()
188 *r__ *= safmx2; in igraphdlartg_()
208 *cs = f1 / *r__; in igraphdlartg_()
209 *sn = g1 / *r__; in igraphdlartg_()
212 *r__ *= safmn2; in igraphdlartg_()
221 *cs = f1 / *r__; in igraphdlartg_()
222 *sn = g1 / *r__; in igraphdlartg_()
[all …]
|
| /dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/CLAPACK/ |
| H A D | dlartg.c | 112 *r__ = *f; in dlartg_()
116 *r__ = *g; in dlartg_()
140 *cs = f1 / *r__; in dlartg_()
141 *sn = g1 / *r__; in dlartg_()
144 *r__ *= safmx2; in dlartg_()
164 *cs = f1 / *r__; in dlartg_()
165 *sn = g1 / *r__; in dlartg_()
168 *r__ *= safmn2; in dlartg_()
177 *cs = f1 / *r__; in dlartg_()
178 *sn = g1 / *r__; in dlartg_()
[all …]
|
| H A D | slartg.c | 111 *r__ = *f; in slartg_()
115 *r__ = *g; in slartg_()
139 *cs = f1 / *r__; in slartg_()
140 *sn = g1 / *r__; in slartg_()
143 *r__ *= safmx2; in slartg_()
163 *cs = f1 / *r__; in slartg_()
164 *sn = g1 / *r__; in slartg_()
167 *r__ *= safmn2; in slartg_()
176 *cs = f1 / *r__; in slartg_()
177 *sn = g1 / *r__; in slartg_()
[all …]
|
| /dports/misc/visp/visp-3.4.0/3rdparty/clapack/src/ |
| H A D | dlartg.c | 112 *r__ = *f; in dlartg_()
116 *r__ = *g; in dlartg_()
140 *cs = f1 / *r__; in dlartg_()
141 *sn = g1 / *r__; in dlartg_()
144 *r__ *= safmx2; in dlartg_()
164 *cs = f1 / *r__; in dlartg_()
165 *sn = g1 / *r__; in dlartg_()
168 *r__ *= safmn2; in dlartg_()
177 *cs = f1 / *r__; in dlartg_()
178 *sn = g1 / *r__; in dlartg_()
[all …]
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | slartg.c | 103 *r__ = *f; in slartg_()
107 *r__ = *g; in slartg_()
131 *cs = f1 / *r__; in slartg_()
132 *sn = g1 / *r__; in slartg_()
135 *r__ *= safmx2; in slartg_()
155 *cs = f1 / *r__; in slartg_()
156 *sn = g1 / *r__; in slartg_()
159 *r__ *= safmn2; in slartg_()
168 *cs = f1 / *r__; in slartg_()
169 *sn = g1 / *r__; in slartg_()
[all …]
|
| H A D | dlartg.c | 104 *r__ = *f; in dlartg_()
108 *r__ = *g; in dlartg_()
132 *cs = f1 / *r__; in dlartg_()
133 *sn = g1 / *r__; in dlartg_()
136 *r__ *= safmx2; in dlartg_()
156 *cs = f1 / *r__; in dlartg_()
157 *sn = g1 / *r__; in dlartg_()
160 *r__ *= safmn2; in dlartg_()
169 *cs = f1 / *r__; in dlartg_()
170 *sn = g1 / *r__; in dlartg_()
[all …]
|
| /dports/science/ergo/ergo-3.8/source/matrix/template_lapack/lapack/ |
| H A D | template_lapack_lartg.h | 43 Treal *sn, Treal *r__) in template_lapack_lartg() argument
115 *r__ = *f; in template_lapack_lartg()
119 *r__ = *g; in template_lapack_lartg()
143 *cs = f1 / *r__; in template_lapack_lartg()
144 *sn = g1 / *r__; in template_lapack_lartg()
147 *r__ *= safmx2; in template_lapack_lartg()
167 *cs = f1 / *r__; in template_lapack_lartg()
168 *sn = g1 / *r__; in template_lapack_lartg()
171 *r__ *= safmn2; in template_lapack_lartg()
180 *cs = f1 / *r__; in template_lapack_lartg()
[all …]
|
| /dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/single/ |
| H A D | slartg.c | 150 *r__ = *f; in slartg_()
158 *r__ = *g; in slartg_()
196 *cs = f1 / *r__; in slartg_()
198 *sn = g1 / *r__; in slartg_()
203 *r__ *= safmx2; in slartg_()
234 *cs = f1 / *r__; in slartg_()
236 *sn = g1 / *r__; in slartg_()
241 *r__ *= safmn2; in slartg_()
254 *cs = f1 / *r__; in slartg_()
256 *sn = g1 / *r__; in slartg_()
[all …]
|
| /dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/double/ |
| H A D | dlartg.c | 151 *r__ = *f; in dlartg_()
159 *r__ = *g; in dlartg_()
197 *cs = f1 / *r__; in dlartg_()
199 *sn = g1 / *r__; in dlartg_()
204 *r__ *= safmx2; in dlartg_()
235 *cs = f1 / *r__; in dlartg_()
237 *sn = g1 / *r__; in dlartg_()
242 *r__ *= safmn2; in dlartg_()
255 *cs = f1 / *r__; in dlartg_()
257 *sn = g1 / *r__; in dlartg_()
[all …]
|
| /dports/misc/vxl/vxl-3.3.2/v3p/netlib/lapack/double/ |
| H A D | dlartg.c | 151 *r__ = *f; in dlartg_()
159 *r__ = *g; in dlartg_()
197 *cs = f1 / *r__; in dlartg_()
199 *sn = g1 / *r__; in dlartg_()
204 *r__ *= safmx2; in dlartg_()
235 *cs = f1 / *r__; in dlartg_()
237 *sn = g1 / *r__; in dlartg_()
242 *r__ *= safmn2; in dlartg_()
255 *cs = f1 / *r__; in dlartg_()
257 *sn = g1 / *r__; in dlartg_()
[all …]
|
| /dports/misc/vxl/vxl-3.3.2/v3p/netlib/lapack/single/ |
| H A D | slartg.c | 150 *r__ = *f; in slartg_()
158 *r__ = *g; in slartg_()
196 *cs = f1 / *r__; in slartg_()
198 *sn = g1 / *r__; in slartg_()
203 *r__ *= safmx2; in slartg_()
234 *cs = f1 / *r__; in slartg_()
236 *sn = g1 / *r__; in slartg_()
241 *r__ *= safmn2; in slartg_()
254 *cs = f1 / *r__; in slartg_()
256 *sn = g1 / *r__; in slartg_()
[all …]
|
| /dports/science/cdcl/dcl-5.4.8-C/src/math1/maplib/ |
| H A D | mpfazm.c | 28 static real r__, pi, rna; in mpfazm_0_() local
37 r__ = pi / 2 - *ylat; in mpfazm_0_()
38 if (r__ > pi) { in mpfazm_0_()
39 r__ = pi; in mpfazm_0_()
41 if (r__ < 0.f) { in mpfazm_0_()
42 r__ = 0.f; in mpfazm_0_()
44 *x = r__ * sin(*xlon); in mpfazm_0_()
45 *y = -r__ * cos(*xlon); in mpfazm_0_()
52 if (r__ == 0.f) { in mpfazm_0_()
56 } else if (r__ <= pi) { in mpfazm_0_()
[all …]
|
| /dports/science/cdcl/dcl-5.4.8-C/src/math2/fftlib/ |
| H A D | ezfftb.c | 94 /* Subroutine */ int ezfftb_(integer *n, real *r__, real *azero, real *a, in ezfftb_() argument
109 --r__; in ezfftb_()
120 r__[1] = *azero; in ezfftb_()
123 r__[1] = *azero + a[1]; in ezfftb_()
124 r__[2] = *azero - a[1]; in ezfftb_()
130 r__[i__ * 2] = a[i__] * .5f; in ezfftb_()
131 r__[(i__ << 1) + 1] = b[i__] * -.5f; in ezfftb_()
134 r__[1] = *azero; in ezfftb_()
136 r__[*n] = a[ns2 + 1]; in ezfftb_()
138 rfftb_(n, &r__[1], &wsave[*n + 1]); in ezfftb_()
|