Lines Matching refs:n2
39 int n2, GFC_REAL_8 x);
43 bessel_jn_r8 (gfc_array_r8 * const restrict ret, int n1, int n2, GFC_REAL_8 x)
54 size_t size = n2 < n1 ? 0 : n2-n1+1;
60 if (unlikely (n2 < n1))
64 && GFC_DESCRIPTOR_EXTENT(ret,0) != (n2-n1+1))
66 "(%ld vs. %ld)", (long int) n2-n1,
74 for (i = 1; i <= n2-n1; i++)
79 last1 = MATHFUNC(jn) (n2, x);
80 ret->base_addr[(n2-n1)*stride] = last1;
82 if (n1 == n2)
85 last2 = MATHFUNC(jn) (n2 - 1, x);
86 ret->base_addr[(n2-n1-1)*stride] = last2;
88 if (n1 + 1 == n2)
93 for (i = n2-n1-2; i >= 0; i--)
105 int n1, int n2, GFC_REAL_8 x);
109 bessel_yn_r8 (gfc_array_r8 * const restrict ret, int n1, int n2,
121 size_t size = n2 < n1 ? 0 : n2-n1+1;
127 if (unlikely (n2 < n1))
131 && GFC_DESCRIPTOR_EXTENT(ret,0) != (n2-n1+1))
133 "(%ld vs. %ld)", (long int) n2-n1,
140 for (i = 0; i <= n2-n1; i++)
152 if (n1 == n2)
158 if (n1 + 1 == n2)
163 for (i = 2; i <= n2 - n1; i++)