Home
last modified time | relevance | path

Searched refs:jtw (Results 1 – 25 of 59) sorted by relevance

123

/dports/graphics/sam2p/sam2p-0.49.4/contrib/
H A Dsam2p.tk892 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 Ddqk15.f56 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 Ddqk21.f56 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 Ddqk31.f56 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 Ddqk15w.f70 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 Ddqk41.f57 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 Ddqk51.f56 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 Ddqk61.f57 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 Dgsl_integration__qk.c56 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 Dqk.c56 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 Dqk21.f55 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 Ddqk21.f56 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 Ddqag.f706 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 Ddqk15.lisp45 (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 Ddqk41.lisp64 (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 Ddqk51.lisp73 (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 Ddqk21.lisp50 (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 Ddqk61.lisp78 (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 Ddqk31.lisp56 (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 Ddqk15w.lisp45 (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 Dintegrate.c820 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 Dintegrate.c1949 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 Dintegrate.c1949 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 DGKIntegration.h141 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 Dint.pas80 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))

123