Lines Matching refs:n2
43 int n2, GFC_REAL_16 x);
47 bessel_jn_r16 (gfc_array_r16 * const restrict ret, int n1, int n2, GFC_REAL_16 x)
58 size_t size = n2 < n1 ? 0 : n2-n1+1;
64 if (unlikely (n2 < n1))
68 && GFC_DESCRIPTOR_EXTENT(ret,0) != (n2-n1+1))
70 "(%ld vs. %ld)", (long int) n2-n1,
78 for (i = 1; i <= n2-n1; i++)
83 last1 = MATHFUNC(jn) (n2, x);
84 ret->base_addr[(n2-n1)*stride] = last1;
86 if (n1 == n2)
89 last2 = MATHFUNC(jn) (n2 - 1, x);
90 ret->base_addr[(n2-n1-1)*stride] = last2;
92 if (n1 + 1 == n2)
97 for (i = n2-n1-2; i >= 0; i--)
109 int n1, int n2, GFC_REAL_16 x);
113 bessel_yn_r16 (gfc_array_r16 * const restrict ret, int n1, int n2,
125 size_t size = n2 < n1 ? 0 : n2-n1+1;
131 if (unlikely (n2 < n1))
135 && GFC_DESCRIPTOR_EXTENT(ret,0) != (n2-n1+1))
137 "(%ld vs. %ld)", (long int) n2-n1,
144 for (i = 0; i <= n2-n1; i++)
156 if (n1 == n2)
162 if (n1 + 1 == n2)
167 for (i = 2; i <= n2 - n1; i++)