Home
last modified time | relevance | path

Searched refs:FVAL2 (Results 1 – 25 of 51) sorted by relevance

123

/dports/math/cmlib/cmlib-3.0_8/src/q1da/
H A Dgl15t.f169 FVAL2=F(PHIU)
170 FMAX=AMAX1(FMAX,FVAL2)
171 FMIN=AMIN1(FMIN,FVAL2)
172 FVAL2=FVAL2*PHIP(U)
174 FV2(JTW) = FVAL2
175 FSUM = FVAL1+FVAL2
193 FVAL2=F(PHIU)
194 FMAX=AMAX1(FMAX,FVAL2)
196 FVAL2=FVAL2*PHIP(U)
198 FV2(JTWM1) = FVAL2
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/quadpkd/
H A Ddqk15i.f76 1 D1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,
163 FVAL2 = F(TABSC2)
165 IF(INF.EQ.2) FVAL2 = FVAL2+F(-TABSC2)
167 FVAL2 = (FVAL2/ABSC2)/ABSC2
169 FV2(J) = FVAL2
170 FSUM = FVAL1+FVAL2
173 RESABS = RESABS+WGK(J)*(ABS(FVAL1)+ABS(FVAL2))
H A Ddqk15.f57 1 D1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,RESABS,RESASC,
144 FVAL2 = F(CENTR+ABSC)
146 FV2(JTW) = FVAL2
147 FSUM = FVAL1+FVAL2
150 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
156 FVAL2 = F(CENTR+ABSC)
158 FV2(JTWM1) = FVAL2
159 FSUM = FVAL1+FVAL2
161 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
H A Ddqk21.f57 1 D1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,RESABS,RESASC,
152 FVAL2 = F(CENTR+ABSC)
154 FV2(JTW) = FVAL2
155 FSUM = FVAL1+FVAL2
158 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
164 FVAL2 = F(CENTR+ABSC)
166 FV2(JTWM1) = FVAL2
167 FSUM = FVAL1+FVAL2
169 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
H A Ddqk15w.f69 1 D1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,
147 FVAL2 = F(ABSC2)*W(ABSC2,P1,P2,P3,P4,KP)
149 FV2(JTW) = FVAL2
150 FSUM = FVAL1+FVAL2
153 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
161 FVAL2 = F(ABSC2)*W(ABSC2,P1,P2,P3,P4,KP)
163 FV2(JTWM1) = FVAL2
164 FSUM = FVAL1+FVAL2
166 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
H A Ddqk31.f57 1 D1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,RESABS,RESASC,
161 FVAL2 = F(CENTR+ABSC)
163 FV2(JTW) = FVAL2
164 FSUM = FVAL1+FVAL2
167 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
173 FVAL2 = F(CENTR+ABSC)
175 FV2(JTWM1) = FVAL2
176 FSUM = FVAL1+FVAL2
178 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Ddqk15i.f84 1 D1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH, local
181 FVAL2 = F(TABSC2)
183 IF(INF.EQ.2) FVAL2 = FVAL2+F(-TABSC2)
185 FVAL2 = (FVAL2/ABSC2)/ABSC2
187 FV2(J) = FVAL2
188 FSUM = FVAL1+FVAL2
191 RESABS = RESABS+WGK(J)*(ABS(FVAL1)+ABS(FVAL2))
H A Ddqk15.f64 1 D1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,RESABS,RESASC, local
152 FVAL2 = F(CENTR+ABSC)
154 FV2(JTW) = FVAL2
155 FSUM = FVAL1+FVAL2
158 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
164 FVAL2 = F(CENTR+ABSC)
166 FV2(JTWM1) = FVAL2
167 FSUM = FVAL1+FVAL2
169 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
H A Ddqk21.f64 1 D1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,RESABS,RESASC, local
160 FVAL2 = F(CENTR+ABSC)
162 FV2(JTW) = FVAL2
163 FSUM = FVAL1+FVAL2
166 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
172 FVAL2 = F(CENTR+ABSC)
174 FV2(JTWM1) = FVAL2
175 FSUM = FVAL1+FVAL2
177 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
H A Ddqk15w.f76 1 D1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH, local
155 FVAL2 = F(ABSC2)*W(ABSC2,P1,P2,P3,P4,KP)
157 FV2(JTW) = FVAL2
158 FSUM = FVAL1+FVAL2
161 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
169 FVAL2 = F(ABSC2)*W(ABSC2,P1,P2,P3,P4,KP)
171 FV2(JTWM1) = FVAL2
172 FSUM = FVAL1+FVAL2
174 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
H A Ddqk31.f64 1 D1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,RESABS,RESASC, local
169 FVAL2 = F(CENTR+ABSC)
171 FV2(JTW) = FVAL2
172 FSUM = FVAL1+FVAL2
175 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
181 FVAL2 = F(CENTR+ABSC)
183 FV2(JTWM1) = FVAL2
184 FSUM = FVAL1+FVAL2
186 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
/dports/math/slatec/src/
H A Ddqk15.f64 1 D1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,RESABS,RESASC,
152 FVAL2 = F(CENTR+ABSC)
154 FV2(JTW) = FVAL2
155 FSUM = FVAL1+FVAL2
158 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
164 FVAL2 = F(CENTR+ABSC)
166 FV2(JTWM1) = FVAL2
167 FSUM = FVAL1+FVAL2
169 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
H A Ddqk15i.f84 1 D1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,
172 FVAL2 = F(TABSC2)
174 IF(INF.EQ.2) FVAL2 = FVAL2+F(-TABSC2)
176 FVAL2 = (FVAL2/ABSC2)/ABSC2
178 FV2(J) = FVAL2
179 FSUM = FVAL1+FVAL2
182 RESABS = RESABS+WGK(J)*(ABS(FVAL1)+ABS(FVAL2))
H A Dqk15.f63 REAL A,ABSC,ABSERR,B,CENTR,DHLGTH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,
138 FVAL2 = F(CENTR+ABSC)
140 FV2(JTW) = FVAL2
141 FSUM = FVAL1+FVAL2
144 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
150 FVAL2 = F(CENTR+ABSC)
152 FV2(JTWM1) = FVAL2
153 FSUM = FVAL1+FVAL2
155 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
H A Ddqk21.f64 1 D1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,RESABS,RESASC,
160 FVAL2 = F(CENTR+ABSC)
162 FV2(JTW) = FVAL2
163 FSUM = FVAL1+FVAL2
166 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
172 FVAL2 = F(CENTR+ABSC)
174 FV2(JTWM1) = FVAL2
175 FSUM = FVAL1+FVAL2
177 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
H A Dqk21.f63 REAL A,ABSC,ABSERR,B,CENTR,DHLGTH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,
148 FVAL2 = F(CENTR+ABSC)
150 FV2(JTW) = FVAL2
151 FSUM = FVAL1+FVAL2
154 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
160 FVAL2 = F(CENTR+ABSC)
162 FV2(JTWM1) = FVAL2
163 FSUM = FVAL1+FVAL2
165 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
H A Dqk15i.f84 1 DINF,R1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,
174 FVAL2 = F(TABSC2)
176 IF(INF.EQ.2) FVAL2 = FVAL2+F(-TABSC2)
178 FVAL2 = (FVAL2/ABSC2)/ABSC2
180 FV2(J) = FVAL2
181 FSUM = FVAL1+FVAL2
184 RESABS = RESABS+WGK(J)*(ABS(FVAL1)+ABS(FVAL2))
H A Dqk31.f63 REAL A,ABSC,ABSERR,B,CENTR,DHLGTH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,
150 FVAL2 = F(CENTR+ABSC)
152 FV2(JTW) = FVAL2
153 FSUM = FVAL1+FVAL2
156 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
162 FVAL2 = F(CENTR+ABSC)
164 FV2(JTWM1) = FVAL2
165 FSUM = FVAL1+FVAL2
167 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
H A Ddqk31.f64 1 D1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,RESABS,RESASC,
169 FVAL2 = F(CENTR+ABSC)
171 FV2(JTW) = FVAL2
172 FSUM = FVAL1+FVAL2
175 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
181 FVAL2 = F(CENTR+ABSC)
183 FV2(JTWM1) = FVAL2
184 FSUM = FVAL1+FVAL2
186 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
/dports/math/cmlib/cmlib-3.0_8/src/quadpks/
H A Dqk15.f54 REAL A,ABSC,ABSERR,B,CENTR,DHLGTH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,
128 FVAL2 = F(CENTR+ABSC)
130 FV2(JTW) = FVAL2
131 FSUM = FVAL1+FVAL2
134 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
140 FVAL2 = F(CENTR+ABSC)
142 FV2(JTWM1) = FVAL2
143 FSUM = FVAL1+FVAL2
145 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
H A Dqk21.f54 REAL A,ABSC,ABSERR,B,CENTR,DHLGTH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,
138 FVAL2 = F(CENTR+ABSC)
140 FV2(JTW) = FVAL2
141 FSUM = FVAL1+FVAL2
144 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
150 FVAL2 = F(CENTR+ABSC)
152 FV2(JTWM1) = FVAL2
153 FSUM = FVAL1+FVAL2
155 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
H A Dqk15i.f74 1 DINF,R1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,
163 FVAL2 = F(TABSC2)
165 IF(INF.EQ.2) FVAL2 = FVAL2+F(-TABSC2)
167 FVAL2 = (FVAL2/ABSC2)/ABSC2
169 FV2(J) = FVAL2
170 FSUM = FVAL1+FVAL2
173 RESABS = RESABS+WGK(J)*(ABS(FVAL1)+ABS(FVAL2))
H A Dqk31.f54 REAL A,ABSC,ABSERR,B,CENTR,DHLGTH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,
140 FVAL2 = F(CENTR+ABSC)
142 FV2(JTW) = FVAL2
143 FSUM = FVAL1+FVAL2
146 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
152 FVAL2 = F(CENTR+ABSC)
154 FV2(JTWM1) = FVAL2
155 FSUM = FVAL1+FVAL2
157 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
/dports/math/octave/octave-6.4.0/liboctave/external/quadpack/
H A Ddqk21.f53 * D1MACH,EPMACH,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,RESABS,RESASC, local
151 CALL F(CENTR+ABSC,IERR,FVAL2)
154 FV2(JTW) = FVAL2
155 FSUM = FVAL1+FVAL2
158 RESABS = RESABS+WGK(JTW)*(DABS(FVAL1)+DABS(FVAL2))
165 CALL F(CENTR+ABSC,IERR,FVAL2)
168 FV2(JTWM1) = FVAL2
169 FSUM = FVAL1+FVAL2
171 RESABS = RESABS+WGK(JTWM1)*(DABS(FVAL1)+DABS(FVAL2))
H A Ddqk15i.f73 * DMAX1,DMIN1,D1MACH,EPMACH,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH, local
176 CALL F(TABSC2,IERR,FVAL2)
186 FVAL2 = FVAL2+FVALT
189 FVAL2 = (FVAL2/ABSC2)/ABSC2
191 FV2(J) = FVAL2
192 FSUM = FVAL1+FVAL2
195 RESABS = RESABS+WGK(J)*(DABS(FVAL1)+DABS(FVAL2))

123