| /src/external/gpl3/gcc/dist/libgfortran/generated/ |
| bessel_r10.c | 48 GFC_REAL_10 last1, last2, x2rev; local
91 x2rev = GFC_REAL_10_LITERAL(2.)/x;
95 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1;
115 GFC_REAL_10 last1, last2, x2rev; local
161 x2rev = GFC_REAL_10_LITERAL(2.)/x;
173 ret->base_addr[i*stride] = x2rev * (i-1+n1) * last2 - last1;
|
| bessel_r16.c | 56 GFC_REAL_16 last1, last2, x2rev; local
99 x2rev = GFC_REAL_16_LITERAL(2.)/x;
103 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1;
123 GFC_REAL_16 last1, last2, x2rev; local
169 x2rev = GFC_REAL_16_LITERAL(2.)/x;
181 ret->base_addr[i*stride] = x2rev * (i-1+n1) * last2 - last1;
|
| bessel_r17.c | 54 GFC_REAL_17 last1, last2, x2rev; local
97 x2rev = GFC_REAL_17_LITERAL(2.)/x;
101 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1;
121 GFC_REAL_17 last1, last2, x2rev; local
167 x2rev = GFC_REAL_17_LITERAL(2.)/x;
179 ret->base_addr[i*stride] = x2rev * (i-1+n1) * last2 - last1;
|
| bessel_r4.c | 48 GFC_REAL_4 last1, last2, x2rev; local
91 x2rev = GFC_REAL_4_LITERAL(2.)/x;
95 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1;
115 GFC_REAL_4 last1, last2, x2rev; local
161 x2rev = GFC_REAL_4_LITERAL(2.)/x;
173 ret->base_addr[i*stride] = x2rev * (i-1+n1) * last2 - last1;
|
| bessel_r8.c | 48 GFC_REAL_8 last1, last2, x2rev; local
91 x2rev = GFC_REAL_8_LITERAL(2.)/x;
95 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1;
115 GFC_REAL_8 last1, last2, x2rev; local
161 x2rev = GFC_REAL_8_LITERAL(2.)/x;
173 ret->base_addr[i*stride] = x2rev * (i-1+n1) * last2 - last1;
|
| /src/external/gpl3/gcc.old/dist/libgfortran/generated/ |
| bessel_r10.c | 48 GFC_REAL_10 last1, last2, x2rev; local
91 x2rev = GFC_REAL_10_LITERAL(2.)/x;
95 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1;
115 GFC_REAL_10 last1, last2, x2rev; local
161 x2rev = GFC_REAL_10_LITERAL(2.)/x;
173 ret->base_addr[i*stride] = x2rev * (i-1+n1) * last2 - last1;
|
| bessel_r16.c | 52 GFC_REAL_16 last1, last2, x2rev; local
95 x2rev = GFC_REAL_16_LITERAL(2.)/x;
99 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1;
119 GFC_REAL_16 last1, last2, x2rev; local
165 x2rev = GFC_REAL_16_LITERAL(2.)/x;
177 ret->base_addr[i*stride] = x2rev * (i-1+n1) * last2 - last1;
|
| bessel_r17.c | 52 GFC_REAL_17 last1, last2, x2rev; local
95 x2rev = GFC_REAL_17_LITERAL(2.)/x;
99 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1;
119 GFC_REAL_17 last1, last2, x2rev; local
165 x2rev = GFC_REAL_17_LITERAL(2.)/x;
177 ret->base_addr[i*stride] = x2rev * (i-1+n1) * last2 - last1;
|
| bessel_r4.c | 48 GFC_REAL_4 last1, last2, x2rev; local
91 x2rev = GFC_REAL_4_LITERAL(2.)/x;
95 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1;
115 GFC_REAL_4 last1, last2, x2rev; local
161 x2rev = GFC_REAL_4_LITERAL(2.)/x;
173 ret->base_addr[i*stride] = x2rev * (i-1+n1) * last2 - last1;
|
| bessel_r8.c | 48 GFC_REAL_8 last1, last2, x2rev; local
91 x2rev = GFC_REAL_8_LITERAL(2.)/x;
95 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1;
115 GFC_REAL_8 last1, last2, x2rev; local
161 x2rev = GFC_REAL_8_LITERAL(2.)/x;
173 ret->base_addr[i*stride] = x2rev * (i-1+n1) * last2 - last1;
|
| /src/external/gpl3/gcc/dist/gcc/fortran/ |
| simplify.cc | 1424 mpfr_t x2rev, last1, last2; local
1478 x2rev = 2.0/x,
1479 J(N-1, x) = x2rev * N * J(N, x) - J(N+1, x),
1480 Y(N+1, x) = x2rev * N * Y(N, x) - Y(N-1, x).
1542 mpfr_init (x2rev);
1543 mpfr_ui_div (x2rev, 2, x->value.real, GFC_RND_MODE);
1559 mpfr_mul_si (e->value.real, x2rev, jn ? (n2-i+1) : (n1+i-1),
1583 mpfr_clear (x2rev);
1589 mpfr_clear (x2rev);
|
| /src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| simplify.cc | 1398 mpfr_t x2rev, last1, last2; local
1452 x2rev = 2.0/x,
1453 J(N-1, x) = x2rev * N * J(N, x) - J(N+1, x),
1454 Y(N+1, x) = x2rev * N * Y(N, x) - Y(N-1, x).
1516 mpfr_init (x2rev);
1517 mpfr_ui_div (x2rev, 2, x->value.real, GFC_RND_MODE);
1533 mpfr_mul_si (e->value.real, x2rev, jn ? (n2-i+1) : (n1+i-1),
1557 mpfr_clear (x2rev);
1563 mpfr_clear (x2rev);
|
