/dports/graphics/sam2p/sam2p-0.49.4/contrib/ |
H A D | sam2p.tk | 892 set ikey [$jtw get $beg $end] 951 global jtw 954 eval "$jtw delete $found" 960 $jtw mark set insert "$found + 1 chars"; $jtw see insert 965 global jtw 1026 global jtw jfn 1041 global jtw tmpfnb 1057 global jtw jfn tmpfnb 1063 $jtw delete 1.0 end 1064 $jtw insert end [read $f] [all …]
|
/dports/science/py-scipy/scipy-1.7.1/scipy/integrate/quadpack/ |
H A D | dqk15.f | 56 integer j,jtw,jtwm1 local 138 jtw = j*2 139 absc = hlgth*xgk(jtw) 142 fv1(jtw) = fval1 143 fv2(jtw) = fval2 146 resk = resk+wgk(jtw)*fsum 147 resabs = resabs+wgk(jtw)*(dabs(fval1)+dabs(fval2))
|
H A D | dqk21.f | 56 integer j,jtw,jtwm1 local 146 jtw = 2*j 147 absc = hlgth*xgk(jtw) 150 fv1(jtw) = fval1 151 fv2(jtw) = fval2 154 resk = resk+wgk(jtw)*fsum 155 resabs = resabs+wgk(jtw)*(dabs(fval1)+dabs(fval2))
|
H A D | dqk31.f | 56 integer j,jtw,jtwm1 local 155 jtw = j*2 156 absc = hlgth*xgk(jtw) 159 fv1(jtw) = fval1 160 fv2(jtw) = fval2 163 resk = resk+wgk(jtw)*fsum 164 resabs = resabs+wgk(jtw)*(dabs(fval1)+dabs(fval2))
|
H A D | dqk15w.f | 70 integer j,jtw,jtwm1,kp local 140 jtw = j*2 141 absc = hlgth*xgk(jtw) 146 fv1(jtw) = fval1 147 fv2(jtw) = fval2 150 resk = resk+wgk(jtw)*fsum 151 resabs = resabs+wgk(jtw)*(dabs(fval1)+dabs(fval2))
|
H A D | dqk41.f | 57 integer j,jtw,jtwm1 local 171 jtw = j*2 172 absc = hlgth*xgk(jtw) 175 fv1(jtw) = fval1 176 fv2(jtw) = fval2 179 resk = resk+wgk(jtw)*fsum 180 resabs = resabs+wgk(jtw)*(dabs(fval1)+dabs(fval2))
|
H A D | dqk51.f | 56 integer j,jtw,jtwm1 local 184 jtw = j*2 185 absc = hlgth*xgk(jtw) 188 fv1(jtw) = fval1 189 fv2(jtw) = fval2 192 resk = resk+wgk(jtw)*fsum 193 resabs = resabs+wgk(jtw)*(dabs(fval1)+dabs(fval2))
|
H A D | dqk61.f | 57 integer j,jtw,jtwm1 local 195 jtw = j*2 196 dabsc = hlgth*xgk(jtw) 199 fv1(jtw) = fval1 200 fv2(jtw) = fval2 203 resk = resk+wgk(jtw)*fsum 204 resabs = resabs+wgk(jtw)*(dabs(fval1)+dabs(fval2))
|
/dports/audio/praat/praat-6.2.03/external/gsl/ |
H A D | gsl_integration__qk.c | 56 const int jtw = j * 2 + 1; /* j=1,2,3 jtw=2,4,6 */ in gsl_integration_qk() local 57 const double abscissa = half_length * xgk[jtw]; in gsl_integration_qk() 61 fv1[jtw] = fval1; in gsl_integration_qk() 62 fv2[jtw] = fval2; in gsl_integration_qk() 64 result_kronrod += wgk[jtw] * fsum; in gsl_integration_qk() 65 result_abs += wgk[jtw] * (fabs (fval1) + fabs (fval2)); in gsl_integration_qk()
|
/dports/math/gsl/gsl-2.7/integration/ |
H A D | qk.c | 56 const int jtw = j * 2 + 1; /* in original fortran j=1,2,3 jtw=2,4,6 */ in gsl_integration_qk() local 57 const double abscissa = half_length * xgk[jtw]; in gsl_integration_qk() 61 fv1[jtw] = fval1; in gsl_integration_qk() 62 fv2[jtw] = fval2; in gsl_integration_qk() 64 result_kronrod += wgk[jtw] * fsum; in gsl_integration_qk() 65 result_abs += wgk[jtw] * (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 134 jtw = 2*j 135 absc = hlgth*xgk(jtw) 140 fv1(jtw) = fval1 141 fv2(jtw) = fval2 144 resk = resk+wgk(jtw)*fsum 145 resabs = resabs+wgk(jtw)*(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 148 jtw = 2*j 149 absc = hlgth*xgk(jtw) 154 fv1(jtw) = fval1 155 fv2(jtw) = fval2 158 resk = resk+wgk(jtw)*fsum 159 resabs = resabs+wgk(jtw)*(dabs(fval1)+dabs(fval2))
|
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | dqag.f | 706 jtw = j*2 710 fv1(jtw) = fval1 711 fv2(jtw) = fval2 895 jtw = 2*j 899 fv1(jtw) = fval1 900 fv2(jtw) = fval2 1093 jtw = j*2 1097 fv1(jtw) = fval1 1306 jtw = j*2 1532 jtw = j*2 [all …]
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/ |
H A D | dqk15.lisp | 45 (fv2 (make-array 7 :element-type 'double-float)) (j 0) (jtw 0) 52 (type (f2cl-lib:integer4) jtwm1 jtw j)) 71 (setf jtw (f2cl-lib:int-mul j 2)) 72 (setf absc (* hlgth (f2cl-lib:fref xgk (jtw) ((1 8))))) 75 (setf (f2cl-lib:fref fv1 (jtw) ((1 7))) fval1) 76 (setf (f2cl-lib:fref fv2 (jtw) ((1 7))) fval2) 79 (setf resk (+ resk (* (f2cl-lib:fref wgk (jtw) ((1 8))) fsum))) 82 (* (f2cl-lib:fref wgk (jtw) ((1 8)))
|
H A D | dqk41.lisp | 64 (fv2 (make-array 20 :element-type 'double-float)) (j 0) (jtw 0) 71 (type (f2cl-lib:integer4) jtwm1 jtw j)) 90 (setf jtw (f2cl-lib:int-mul j 2)) 91 (setf absc (* hlgth (f2cl-lib:fref xgk (jtw) ((1 21))))) 94 (setf (f2cl-lib:fref fv1 (jtw) ((1 20))) fval1) 95 (setf (f2cl-lib:fref fv2 (jtw) ((1 20))) fval2) 98 (setf resk (+ resk (* (f2cl-lib:fref wgk (jtw) ((1 21))) fsum))) 101 (* (f2cl-lib:fref wgk (jtw) ((1 21)))
|
H A D | dqk51.lisp | 73 (fv2 (make-array 25 :element-type 'double-float)) (j 0) (jtw 0) 80 (type (f2cl-lib:integer4) jtwm1 jtw j)) 99 (setf jtw (f2cl-lib:int-mul j 2)) 100 (setf absc (* hlgth (f2cl-lib:fref xgk (jtw) ((1 26))))) 103 (setf (f2cl-lib:fref fv1 (jtw) ((1 25))) fval1) 104 (setf (f2cl-lib:fref fv2 (jtw) ((1 25))) fval2) 107 (setf resk (+ resk (* (f2cl-lib:fref wgk (jtw) ((1 26))) fsum))) 110 (* (f2cl-lib:fref wgk (jtw) ((1 26)))
|
H A D | dqk21.lisp | 50 (fv2 (make-array 10 :element-type 'double-float)) (j 0) (jtw 0) 57 (type (f2cl-lib:integer4) jtwm1 jtw j)) 76 (setf jtw (f2cl-lib:int-mul 2 j)) 77 (setf absc (* hlgth (f2cl-lib:fref xgk (jtw) ((1 11))))) 80 (setf (f2cl-lib:fref fv1 (jtw) ((1 10))) fval1) 81 (setf (f2cl-lib:fref fv2 (jtw) ((1 10))) fval2) 84 (setf resk (+ resk (* (f2cl-lib:fref wgk (jtw) ((1 11))) fsum))) 87 (* (f2cl-lib:fref wgk (jtw) ((1 11)))
|
H A D | dqk61.lisp | 78 (fv2 (make-array 30 :element-type 'double-float)) (j 0) (jtw 0) 85 (type (f2cl-lib:integer4) jtwm1 jtw j)) 104 (setf jtw (f2cl-lib:int-mul j 2)) 105 (setf dabsc (* hlgth (f2cl-lib:fref xgk (jtw) ((1 31))))) 108 (setf (f2cl-lib:fref fv1 (jtw) ((1 30))) fval1) 109 (setf (f2cl-lib:fref fv2 (jtw) ((1 30))) fval2) 112 (setf resk (+ resk (* (f2cl-lib:fref wgk (jtw) ((1 31))) fsum))) 115 (* (f2cl-lib:fref wgk (jtw) ((1 31)))
|
H A D | dqk31.lisp | 56 (fv2 (make-array 15 :element-type 'double-float)) (j 0) (jtw 0) 63 (type (f2cl-lib:integer4) jtwm1 jtw j)) 82 (setf jtw (f2cl-lib:int-mul j 2)) 83 (setf absc (* hlgth (f2cl-lib:fref xgk (jtw) ((1 16))))) 86 (setf (f2cl-lib:fref fv1 (jtw) ((1 15))) fval1) 87 (setf (f2cl-lib:fref fv2 (jtw) ((1 15))) fval2) 90 (setf resk (+ resk (* (f2cl-lib:fref wgk (jtw) ((1 16))) fsum))) 93 (* (f2cl-lib:fref wgk (jtw) ((1 16)))
|
H A D | dqk15w.lisp | 45 (fv2 (make-array 7 :element-type 'double-float)) (j 0) (jtw 0) 54 (type (f2cl-lib:integer4) jtwm1 jtw j)) 91 (setf jtw (f2cl-lib:int-mul j 2)) 92 (setf absc (* hlgth (f2cl-lib:fref xgk (jtw) ((1 8))))) 145 (setf (f2cl-lib:fref fv1 (jtw) ((1 7))) fval1) 146 (setf (f2cl-lib:fref fv2 (jtw) ((1 7))) fval2) 149 (setf resk (+ resk (* (f2cl-lib:fref wgk (jtw) ((1 8))) fsum))) 152 (* (f2cl-lib:fref wgk (jtw) ((1 8)))
|
/dports/science/libxc/libxc-5.0.0/src/ |
H A D | integrate.c | 820 int j, jtw, jtwm1; in rdqk21() local 930 jtw = j << 1; in rdqk21() 931 absc = hlgth * xgk[jtw - 1]; in rdqk21() 947 jtw = j << 1; in rdqk21() 948 absc = hlgth * xgk[jtw - 1]; in rdqk21() 951 fv1[jtw - 1] = fval1; in rdqk21() 952 fv2[jtw - 1] = fval2; in rdqk21() 955 resk += wgk[jtw - 1] * fsum; in rdqk21() 956 *resabs += wgk[jtw - 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 2059 jtw = j << 1; in rdqk21() 2060 absc = hlgth * xgk[jtw - 1]; in rdqk21() 2076 jtw = j << 1; in rdqk21() 2077 absc = hlgth * xgk[jtw - 1]; in rdqk21() 2080 fv1[jtw - 1] = fval1; in rdqk21() 2081 fv2[jtw - 1] = fval2; in rdqk21() 2084 resk += wgk[jtw - 1] * fsum; in rdqk21() 2085 *resabs += wgk[jtw - 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 2059 jtw = j << 1; in rdqk21() 2060 absc = hlgth * xgk[jtw - 1]; in rdqk21() 2076 jtw = j << 1; in rdqk21() 2077 absc = hlgth * xgk[jtw - 1]; in rdqk21() 2080 fv1[jtw - 1] = fval1; in rdqk21() 2081 fv2[jtw - 1] = fval2; in rdqk21() 2084 resk += wgk[jtw - 1] * fsum; in rdqk21() 2085 *resabs += wgk[jtw - 1] * (fabs(fval1) + fabs(fval2)); in rdqk21()
|
/dports/science/qmcpack/qmcpack-3.11.0/src/QMCTools/ppconvert/src/common/ |
H A D | GKIntegration.h | 141 const int jtw = j * 2 + 1; // j=1,2,3 jtw=2,4,6 in GKGeneral() local 142 const double xx = halfLength * xgk[jtw]; in GKGeneral() 147 resultKronrod += wgk[jtw] * fsum; in GKGeneral()
|
/dports/math/fpc-numlib/fpc-3.2.2/packages/numlib/src/ |
H A D | int.pas | 80 j, jtw, jtwm1: ArbInt; 94 jtw := 2*j; 95 absc := hlgth*xgk[jtw]; 98 fv1^[jtw] := fval1; 99 fv2^[jtw] := fval2; 102 resk := resk+wgk[jtw]*fsum; 103 resabs := resabs+wgk[jtw]*(abs(fval1)+abs(fval2))
|