/dports/science/py-scipy/scipy-1.7.1/scipy/integrate/quadpack/ |
H A D | dqk15.f | 56 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 D | dqk21.f | 56 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 D | dqk31.f | 56 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 D | dqk15w.f | 70 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 D | dqk41.f | 57 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 D | dqk51.f | 56 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 D | dqk61.f | 57 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 D | gsl_integration__qk.c | 70 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 D | qk.c | 70 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 D | qk21.f | 55 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 D | dqk21.f | 56 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 D | dqag.f | 617 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 D | dqk15.lisp | 46 (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 D | dqk41.lisp | 65 (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 D | dqk51.lisp | 74 (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 D | dqk21.lisp | 51 (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 D | dqk61.lisp | 79 (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 D | dqk31.lisp | 57 (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 D | dqk15w.lisp | 46 (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 D | integrate.c | 820 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 D | integrate.c | 1949 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 D | integrate.c | 1949 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 D | GKIntegration.h | 152 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 D | int.pas | 80 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 D | int.pas | 80 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))
|