Home
last modified time | relevance | path

Searched refs:jtwm1 (Results 1 – 25 of 28) sorted by relevance

12

/dports/science/py-scipy/scipy-1.7.1/scipy/integrate/quadpack/
H A Ddqk15.f56 integer j,jtw,jtwm1 local
150 jtwm1 = j*2-1
151 absc = hlgth*xgk(jtwm1)
154 fv1(jtwm1) = fval1
155 fv2(jtwm1) = fval2
157 resk = resk+wgk(jtwm1)*fsum
158 resabs = resabs+wgk(jtwm1)*(dabs(fval1)+dabs(fval2))
H A Ddqk21.f56 integer j,jtw,jtwm1 local
158 jtwm1 = 2*j-1
159 absc = hlgth*xgk(jtwm1)
162 fv1(jtwm1) = fval1
163 fv2(jtwm1) = fval2
165 resk = resk+wgk(jtwm1)*fsum
166 resabs = resabs+wgk(jtwm1)*(dabs(fval1)+dabs(fval2))
H A Ddqk31.f56 integer j,jtw,jtwm1 local
167 jtwm1 = j*2-1
168 absc = hlgth*xgk(jtwm1)
171 fv1(jtwm1) = fval1
172 fv2(jtwm1) = fval2
174 resk = resk+wgk(jtwm1)*fsum
175 resabs = resabs+wgk(jtwm1)*(dabs(fval1)+dabs(fval2))
H A Ddqk15w.f70 integer j,jtw,jtwm1,kp local
154 jtwm1 = j*2-1
155 absc = hlgth*xgk(jtwm1)
160 fv1(jtwm1) = fval1
161 fv2(jtwm1) = fval2
163 resk = resk+wgk(jtwm1)*fsum
164 resabs = resabs+wgk(jtwm1)*(dabs(fval1)+dabs(fval2))
H A Ddqk41.f57 integer j,jtw,jtwm1 local
183 jtwm1 = j*2-1
184 absc = hlgth*xgk(jtwm1)
187 fv1(jtwm1) = fval1
188 fv2(jtwm1) = fval2
190 resk = resk+wgk(jtwm1)*fsum
191 resabs = resabs+wgk(jtwm1)*(dabs(fval1)+dabs(fval2))
H A Ddqk51.f56 integer j,jtw,jtwm1 local
196 jtwm1 = j*2-1
197 absc = hlgth*xgk(jtwm1)
200 fv1(jtwm1) = fval1
201 fv2(jtwm1) = fval2
203 resk = resk+wgk(jtwm1)*fsum
204 resabs = resabs+wgk(jtwm1)*(dabs(fval1)+dabs(fval2))
H A Ddqk61.f57 integer j,jtw,jtwm1 local
207 jtwm1 = j*2-1
208 dabsc = hlgth*xgk(jtwm1)
211 fv1(jtwm1) = fval1
212 fv2(jtwm1) = fval2
214 resk = resk+wgk(jtwm1)*fsum
215 resabs = resabs+wgk(jtwm1)*(dabs(fval1)+dabs(fval2))
/dports/audio/praat/praat-6.2.03/external/gsl/
H A Dgsl_integration__qk.c70 int jtwm1 = j * 2; in gsl_integration_qk() local
71 const double abscissa = half_length * xgk[jtwm1]; in gsl_integration_qk()
74 fv1[jtwm1] = fval1; in gsl_integration_qk()
75 fv2[jtwm1] = fval2; in gsl_integration_qk()
76 result_kronrod += wgk[jtwm1] * (fval1 + fval2); in gsl_integration_qk()
77 result_abs += wgk[jtwm1] * (fabs (fval1) + fabs (fval2)); in gsl_integration_qk()
/dports/math/gsl/gsl-2.7/integration/
H A Dqk.c70 int jtwm1 = j * 2; in gsl_integration_qk() local
71 const double abscissa = half_length * xgk[jtwm1]; in gsl_integration_qk()
74 fv1[jtwm1] = fval1; in gsl_integration_qk()
75 fv2[jtwm1] = fval2; in gsl_integration_qk()
76 result_kronrod += wgk[jtwm1] * (fval1 + fval2); in gsl_integration_qk()
77 result_abs += wgk[jtwm1] * (fabs (fval1) + fabs (fval2)); in gsl_integration_qk()
/dports/math/octave/octave-6.4.0/liboctave/external/quadpack/
H A Dqk21.f55 integer j,jtw,jtwm1 local
148 jtwm1 = 2*j-1
149 absc = hlgth*xgk(jtwm1)
154 fv1(jtwm1) = fval1
155 fv2(jtwm1) = fval2
157 resk = resk+wgk(jtwm1)*fsum
158 resabs = resabs+wgk(jtwm1)*(abs(fval1)+abs(fval2))
/dports/math/scilab/scilab-6.1.1/scilab/modules/differential_equations/src/fortran/
H A Ddqk21.f56 integer j,jtw,jtwm1 local
162 jtwm1 = 2*j-1
163 absc = hlgth*xgk(jtwm1)
168 fv1(jtwm1) = fval1
169 fv2(jtwm1) = fval2
171 resk = resk+wgk(jtwm1)*fsum
172 resabs = resabs+wgk(jtwm1)*(dabs(fval1)+dabs(fval2))
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Ddqag.f617 integer j,jtw,jtwm1 local
718 jtwm1 = j*2-1
800 integer j,jtw,jtwm1 local
907 jtwm1 = 2*j-1
989 integer j,jtw,jtwm1 local
1105 jtwm1 = j*2-1
1188 integer j,jtw,jtwm1 local
1318 jtwm1 = j*2-1
1400 integer j,jtw,jtwm1 local
1544 jtwm1 = j*2-1
[all …]
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/
H A Ddqk15.lisp46 (jtwm1 0) (absc 0.0) (centr 0.0) (dhlgth 0.0) (epmach 0.0) (fc 0.0)
52 (type (f2cl-lib:integer4) jtwm1 jtw j))
88 (setf jtwm1 (f2cl-lib:int-sub (f2cl-lib:int-mul j 2) 1))
89 (setf absc (* hlgth (f2cl-lib:fref xgk (jtwm1) ((1 8)))))
92 (setf (f2cl-lib:fref fv1 (jtwm1) ((1 7))) fval1)
93 (setf (f2cl-lib:fref fv2 (jtwm1) ((1 7))) fval2)
95 (setf resk (+ resk (* (f2cl-lib:fref wgk (jtwm1) ((1 8))) fsum)))
98 (* (f2cl-lib:fref wgk (jtwm1) ((1 8)))
H A Ddqk41.lisp65 (jtwm1 0) (absc 0.0) (centr 0.0) (dhlgth 0.0) (epmach 0.0) (fc 0.0)
71 (type (f2cl-lib:integer4) jtwm1 jtw j))
107 (setf jtwm1 (f2cl-lib:int-sub (f2cl-lib:int-mul j 2) 1))
108 (setf absc (* hlgth (f2cl-lib:fref xgk (jtwm1) ((1 21)))))
111 (setf (f2cl-lib:fref fv1 (jtwm1) ((1 20))) fval1)
112 (setf (f2cl-lib:fref fv2 (jtwm1) ((1 20))) fval2)
114 (setf resk (+ resk (* (f2cl-lib:fref wgk (jtwm1) ((1 21))) fsum)))
117 (* (f2cl-lib:fref wgk (jtwm1) ((1 21)))
H A Ddqk51.lisp74 (jtwm1 0) (absc 0.0) (centr 0.0) (dhlgth 0.0) (epmach 0.0) (fc 0.0)
80 (type (f2cl-lib:integer4) jtwm1 jtw j))
116 (setf jtwm1 (f2cl-lib:int-sub (f2cl-lib:int-mul j 2) 1))
117 (setf absc (* hlgth (f2cl-lib:fref xgk (jtwm1) ((1 26)))))
120 (setf (f2cl-lib:fref fv1 (jtwm1) ((1 25))) fval1)
121 (setf (f2cl-lib:fref fv2 (jtwm1) ((1 25))) fval2)
123 (setf resk (+ resk (* (f2cl-lib:fref wgk (jtwm1) ((1 26))) fsum)))
126 (* (f2cl-lib:fref wgk (jtwm1) ((1 26)))
H A Ddqk21.lisp51 (jtwm1 0) (absc 0.0) (centr 0.0) (dhlgth 0.0) (epmach 0.0) (fc 0.0)
57 (type (f2cl-lib:integer4) jtwm1 jtw j))
93 (setf jtwm1 (f2cl-lib:int-sub (f2cl-lib:int-mul 2 j) 1))
94 (setf absc (* hlgth (f2cl-lib:fref xgk (jtwm1) ((1 11)))))
97 (setf (f2cl-lib:fref fv1 (jtwm1) ((1 10))) fval1)
98 (setf (f2cl-lib:fref fv2 (jtwm1) ((1 10))) fval2)
100 (setf resk (+ resk (* (f2cl-lib:fref wgk (jtwm1) ((1 11))) fsum)))
103 (* (f2cl-lib:fref wgk (jtwm1) ((1 11)))
H A Ddqk61.lisp79 (jtwm1 0) (dabsc 0.0) (centr 0.0) (dhlgth 0.0) (epmach 0.0) (fc 0.0)
85 (type (f2cl-lib:integer4) jtwm1 jtw j))
121 (setf jtwm1 (f2cl-lib:int-sub (f2cl-lib:int-mul j 2) 1))
122 (setf dabsc (* hlgth (f2cl-lib:fref xgk (jtwm1) ((1 31)))))
125 (setf (f2cl-lib:fref fv1 (jtwm1) ((1 30))) fval1)
126 (setf (f2cl-lib:fref fv2 (jtwm1) ((1 30))) fval2)
128 (setf resk (+ resk (* (f2cl-lib:fref wgk (jtwm1) ((1 31))) fsum)))
131 (* (f2cl-lib:fref wgk (jtwm1) ((1 31)))
H A Ddqk31.lisp57 (jtwm1 0) (absc 0.0) (centr 0.0) (dhlgth 0.0) (epmach 0.0) (fc 0.0)
63 (type (f2cl-lib:integer4) jtwm1 jtw j))
99 (setf jtwm1 (f2cl-lib:int-sub (f2cl-lib:int-mul j 2) 1))
100 (setf absc (* hlgth (f2cl-lib:fref xgk (jtwm1) ((1 16)))))
103 (setf (f2cl-lib:fref fv1 (jtwm1) ((1 15))) fval1)
104 (setf (f2cl-lib:fref fv2 (jtwm1) ((1 15))) fval2)
106 (setf resk (+ resk (* (f2cl-lib:fref wgk (jtwm1) ((1 16))) fsum)))
109 (* (f2cl-lib:fref wgk (jtwm1) ((1 16)))
H A Ddqk15w.lisp46 (jtwm1 0) (absc 0.0) (absc1 0.0) (absc2 0.0) (centr 0.0)
54 (type (f2cl-lib:integer4) jtwm1 jtw j))
158 (setf jtwm1 (f2cl-lib:int-sub (f2cl-lib:int-mul j 2) 1))
159 (setf absc (* hlgth (f2cl-lib:fref xgk (jtwm1) ((1 8)))))
212 (setf (f2cl-lib:fref fv1 (jtwm1) ((1 7))) fval1)
213 (setf (f2cl-lib:fref fv2 (jtwm1) ((1 7))) fval2)
215 (setf resk (+ resk (* (f2cl-lib:fref wgk (jtwm1) ((1 8))) fsum)))
218 (* (f2cl-lib:fref wgk (jtwm1) ((1 8)))
/dports/science/libxc/libxc-5.0.0/src/
H A Dintegrate.c820 int j, jtw, jtwm1; in rdqk21() local
937 jtwm1 = (j << 1) - 1; in rdqk21()
938 absc = hlgth * xgk[jtwm1 - 1]; in rdqk21()
960 jtwm1 = (j << 1) - 1; in rdqk21()
961 absc = hlgth * xgk[jtwm1 - 1]; in rdqk21()
964 fv1[jtwm1 - 1] = fval1; in rdqk21()
965 fv2[jtwm1 - 1] = fval2; in rdqk21()
967 resk += wgk[jtwm1 - 1] * fsum; in rdqk21()
968 *resabs += wgk[jtwm1 - 1] * (fabs(fval1) + fabs(fval2)); in rdqk21()
/dports/math/R/R-4.1.2/src/appl/
H A Dintegrate.c1949 int j, jtw, jtwm1; in rdqk21() local
2066 jtwm1 = (j << 1) - 1; in rdqk21()
2067 absc = hlgth * xgk[jtwm1 - 1]; in rdqk21()
2089 jtwm1 = (j << 1) - 1; in rdqk21()
2090 absc = hlgth * xgk[jtwm1 - 1]; in rdqk21()
2093 fv1[jtwm1 - 1] = fval1; in rdqk21()
2094 fv2[jtwm1 - 1] = fval2; in rdqk21()
2096 resk += wgk[jtwm1 - 1] * fsum; in rdqk21()
2097 *resabs += wgk[jtwm1 - 1] * (fabs(fval1) + fabs(fval2)); in rdqk21()
/dports/math/libRmath/R-4.1.1/src/appl/
H A Dintegrate.c1949 int j, jtw, jtwm1; in rdqk21() local
2066 jtwm1 = (j << 1) - 1; in rdqk21()
2067 absc = hlgth * xgk[jtwm1 - 1]; in rdqk21()
2089 jtwm1 = (j << 1) - 1; in rdqk21()
2090 absc = hlgth * xgk[jtwm1 - 1]; in rdqk21()
2093 fv1[jtwm1 - 1] = fval1; in rdqk21()
2094 fv2[jtwm1 - 1] = fval2; in rdqk21()
2096 resk += wgk[jtwm1 - 1] * fsum; in rdqk21()
2097 *resabs += wgk[jtwm1 - 1] * (fabs(fval1) + fabs(fval2)); in rdqk21()
/dports/science/qmcpack/qmcpack-3.11.0/src/QMCTools/ppconvert/src/common/
H A DGKIntegration.h152 int jtwm1 = j * 2; in GKGeneral() local
153 const double xx = halfLength * xgk[jtwm1]; in GKGeneral()
156 resultKronrod += wgk[jtwm1] * (fval1 + fval2); in GKGeneral()
/dports/math/fpc-numlib/fpc-3.2.2/packages/numlib/src/
H A Dint.pas80 j, jtw, jtwm1: ArbInt;
107 jtwm1 := 2*j-1;
108 absc := hlgth*xgk[jtwm1];
111 fv1^[jtwm1] := fval1;
112 fv2^[jtwm1] := fval2;
114 resk := resk+wgk[jtwm1]*fsum;
115 resabs := resabs+wgk[jtwm1]*(abs(fval1)+abs(fval2))
/dports/lang/fpc-source/fpc-3.2.2/packages/numlib/src/
H A Dint.pas80 j, jtw, jtwm1: ArbInt;
107 jtwm1 := 2*j-1;
108 absc := hlgth*xgk[jtwm1];
111 fv1^[jtwm1] := fval1;
112 fv2^[jtwm1] := fval2;
114 resk := resk+wgk[jtwm1]*fsum;
115 resabs := resabs+wgk[jtwm1]*(abs(fval1)+abs(fval2))

12