Home
last modified time | relevance | path

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

123

/dports/math/cmlib/cmlib-3.0_8/src/quadpkd/
H A Ddqk15i.f76 1 D1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,
146 FVAL1 = F(TABSC1)
147 IF(INF.EQ.2) FVAL1 = FVAL1+F(-TABSC1)
148 FC = (FVAL1/CENTR)/CENTR
162 FVAL1 = F(TABSC1)
164 IF(INF.EQ.2) FVAL1 = FVAL1+F(-TABSC1)
166 FVAL1 = (FVAL1/ABSC1)/ABSC1
168 FV1(J) = FVAL1
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,
143 FVAL1 = F(CENTR-ABSC)
145 FV1(JTW) = FVAL1
147 FSUM = FVAL1+FVAL2
150 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
155 FVAL1 = F(CENTR-ABSC)
157 FV1(JTWM1) = FVAL1
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,
151 FVAL1 = F(CENTR-ABSC)
153 FV1(JTW) = FVAL1
155 FSUM = FVAL1+FVAL2
158 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
163 FVAL1 = F(CENTR-ABSC)
165 FV1(JTWM1) = FVAL1
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,
146 FVAL1 = F(ABSC1)*W(ABSC1,P1,P2,P3,P4,KP)
148 FV1(JTW) = FVAL1
150 FSUM = FVAL1+FVAL2
153 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
160 FVAL1 = F(ABSC1)*W(ABSC1,P1,P2,P3,P4,KP)
162 FV1(JTWM1) = FVAL1
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,
160 FVAL1 = F(CENTR-ABSC)
162 FV1(JTW) = FVAL1
164 FSUM = FVAL1+FVAL2
167 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
172 FVAL1 = F(CENTR-ABSC)
174 FV1(JTWM1) = FVAL1
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
164 FVAL1 = F(TABSC1)
165 IF(INF.EQ.2) FVAL1 = FVAL1+F(-TABSC1)
166 FC = (FVAL1/CENTR)/CENTR
180 FVAL1 = F(TABSC1)
182 IF(INF.EQ.2) FVAL1 = FVAL1+F(-TABSC1)
184 FVAL1 = (FVAL1/ABSC1)/ABSC1
186 FV1(J) = FVAL1
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
151 FVAL1 = F(CENTR-ABSC)
153 FV1(JTW) = FVAL1
155 FSUM = FVAL1+FVAL2
158 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
163 FVAL1 = F(CENTR-ABSC)
165 FV1(JTWM1) = FVAL1
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
159 FVAL1 = F(CENTR-ABSC)
161 FV1(JTW) = FVAL1
163 FSUM = FVAL1+FVAL2
166 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
171 FVAL1 = F(CENTR-ABSC)
173 FV1(JTWM1) = FVAL1
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
154 FVAL1 = F(ABSC1)*W(ABSC1,P1,P2,P3,P4,KP)
156 FV1(JTW) = FVAL1
158 FSUM = FVAL1+FVAL2
161 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
168 FVAL1 = F(ABSC1)*W(ABSC1,P1,P2,P3,P4,KP)
170 FV1(JTWM1) = FVAL1
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
168 FVAL1 = F(CENTR-ABSC)
170 FV1(JTW) = FVAL1
172 FSUM = FVAL1+FVAL2
175 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
180 FVAL1 = F(CENTR-ABSC)
182 FV1(JTWM1) = FVAL1
184 FSUM = FVAL1+FVAL2
186 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
/dports/math/slatec/src/
H A Ddqk15i.f84 1 D1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,
155 FVAL1 = F(TABSC1)
156 IF(INF.EQ.2) FVAL1 = FVAL1+F(-TABSC1)
157 FC = (FVAL1/CENTR)/CENTR
171 FVAL1 = F(TABSC1)
173 IF(INF.EQ.2) FVAL1 = FVAL1+F(-TABSC1)
175 FVAL1 = (FVAL1/ABSC1)/ABSC1
177 FV1(J) = FVAL1
179 FSUM = FVAL1+FVAL2
182 RESABS = RESABS+WGK(J)*(ABS(FVAL1)+ABS(FVAL2))
H A Dqk15i.f84 1 DINF,R1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,
157 FVAL1 = F(TABSC1)
158 IF(INF.EQ.2) FVAL1 = FVAL1+F(-TABSC1)
159 FC = (FVAL1/CENTR)/CENTR
173 FVAL1 = F(TABSC1)
175 IF(INF.EQ.2) FVAL1 = FVAL1+F(-TABSC1)
177 FVAL1 = (FVAL1/ABSC1)/ABSC1
179 FV1(J) = FVAL1
181 FSUM = FVAL1+FVAL2
184 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,
151 FVAL1 = F(CENTR-ABSC)
153 FV1(JTW) = FVAL1
155 FSUM = FVAL1+FVAL2
158 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
163 FVAL1 = F(CENTR-ABSC)
165 FV1(JTWM1) = FVAL1
167 FSUM = FVAL1+FVAL2
169 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
H A Dqk15.f63 REAL A,ABSC,ABSERR,B,CENTR,DHLGTH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,
137 FVAL1 = F(CENTR-ABSC)
139 FV1(JTW) = FVAL1
141 FSUM = FVAL1+FVAL2
144 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
149 FVAL1 = F(CENTR-ABSC)
151 FV1(JTWM1) = FVAL1
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,
159 FVAL1 = F(CENTR-ABSC)
161 FV1(JTW) = FVAL1
163 FSUM = FVAL1+FVAL2
166 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
171 FVAL1 = F(CENTR-ABSC)
173 FV1(JTWM1) = FVAL1
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,
147 FVAL1 = F(CENTR-ABSC)
149 FV1(JTW) = FVAL1
151 FSUM = FVAL1+FVAL2
154 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
159 FVAL1 = F(CENTR-ABSC)
161 FV1(JTWM1) = FVAL1
163 FSUM = FVAL1+FVAL2
165 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
H A Dqk31.f63 REAL A,ABSC,ABSERR,B,CENTR,DHLGTH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,
149 FVAL1 = F(CENTR-ABSC)
151 FV1(JTW) = FVAL1
153 FSUM = FVAL1+FVAL2
156 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
161 FVAL1 = F(CENTR-ABSC)
163 FV1(JTWM1) = FVAL1
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,
168 FVAL1 = F(CENTR-ABSC)
170 FV1(JTW) = FVAL1
172 FSUM = FVAL1+FVAL2
175 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
180 FVAL1 = F(CENTR-ABSC)
182 FV1(JTWM1) = FVAL1
184 FSUM = FVAL1+FVAL2
186 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
/dports/math/cmlib/cmlib-3.0_8/src/q1da/
H A Dgl15t.f162 FVAL1=F(PHIU)
163 FMAX=AMAX1(FMAX,FVAL1)
164 FMIN=AMIN1(FMIN,FVAL1)
165 FVAL1=FVAL1*PHIP(U)
173 FV1(JTW) = FVAL1
175 FSUM = FVAL1+FVAL2
186 FVAL1=F(PHIU)
187 FMAX=AMAX1(FMAX,FVAL1)
189 FVAL1=FVAL1*PHIP(U)
197 FV1(JTWM1) = FVAL1
[all …]
/dports/math/octave/octave-6.4.0/liboctave/external/quadpack/
H A Ddqk15i.f73 * DMAX1,DMIN1,D1MACH,EPMACH,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH, local
153 CALL F(TABSC1,IERR,FVAL1)
158 FVAL1 = FVAL1+FVALT
160 FC = (FVAL1/CENTR)/CENTR
174 CALL F(TABSC1,IERR,FVAL1)
181 FVAL1 = FVAL1+FVALT
188 FVAL1 = (FVAL1/ABSC1)/ABSC1
190 FV1(J) = FVAL1
192 FSUM = FVAL1+FVAL2
195 RESABS = RESABS+WGK(J)*(DABS(FVAL1)+DABS(FVAL2))
H A Ddqk21.f53 * D1MACH,EPMACH,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,RESABS,RESASC, local
149 CALL F(CENTR-ABSC,IERR,FVAL1)
153 FV1(JTW) = FVAL1
155 FSUM = FVAL1+FVAL2
158 RESABS = RESABS+WGK(JTW)*(DABS(FVAL1)+DABS(FVAL2))
163 CALL F(CENTR-ABSC,IERR,FVAL1)
167 FV1(JTWM1) = FVAL1
169 FSUM = FVAL1+FVAL2
171 RESABS = RESABS+WGK(JTWM1)*(DABS(FVAL1)+DABS(FVAL2))
/dports/math/cmlib/cmlib-3.0_8/src/quadpks/
H A Dqk15i.f74 1 DINF,R1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,
146 FVAL1 = F(TABSC1)
147 IF(INF.EQ.2) FVAL1 = FVAL1+F(-TABSC1)
148 FC = (FVAL1/CENTR)/CENTR
162 FVAL1 = F(TABSC1)
164 IF(INF.EQ.2) FVAL1 = FVAL1+F(-TABSC1)
166 FVAL1 = (FVAL1/ABSC1)/ABSC1
168 FV1(J) = FVAL1
170 FSUM = FVAL1+FVAL2
173 RESABS = RESABS+WGK(J)*(ABS(FVAL1)+ABS(FVAL2))
H A Dqk15.f54 REAL A,ABSC,ABSERR,B,CENTR,DHLGTH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,
127 FVAL1 = F(CENTR-ABSC)
129 FV1(JTW) = FVAL1
131 FSUM = FVAL1+FVAL2
134 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
139 FVAL1 = F(CENTR-ABSC)
141 FV1(JTWM1) = FVAL1
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,
137 FVAL1 = F(CENTR-ABSC)
139 FV1(JTW) = FVAL1
141 FSUM = FVAL1+FVAL2
144 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
149 FVAL1 = F(CENTR-ABSC)
151 FV1(JTWM1) = FVAL1
153 FSUM = FVAL1+FVAL2
155 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))
H A Dqk31.f54 REAL A,ABSC,ABSERR,B,CENTR,DHLGTH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,
139 FVAL1 = F(CENTR-ABSC)
141 FV1(JTW) = FVAL1
143 FSUM = FVAL1+FVAL2
146 RESABS = RESABS+WGK(JTW)*(ABS(FVAL1)+ABS(FVAL2))
151 FVAL1 = F(CENTR-ABSC)
153 FV1(JTWM1) = FVAL1
155 FSUM = FVAL1+FVAL2
157 RESABS = RESABS+WGK(JTWM1)*(ABS(FVAL1)+ABS(FVAL2))

123