/dports/math/cmlib/cmlib-3.0_8/src/q1da/ |
H A D | gl15t.f | 169 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 D | dqk15i.f | 76 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 D | dqk15.f | 57 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 D | dqk21.f | 57 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 D | dqk15w.f | 69 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 D | dqk31.f | 57 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 D | dqk15i.f | 84 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 D | dqk15.f | 64 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 D | dqk21.f | 64 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 D | dqk15w.f | 76 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 D | dqk31.f | 64 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 D | dqk15.f | 64 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 D | dqk15i.f | 84 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 D | qk15.f | 63 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 D | dqk21.f | 64 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 D | qk21.f | 63 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 D | qk15i.f | 84 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 D | qk31.f | 63 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 D | dqk31.f | 64 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 D | qk15.f | 54 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 D | qk21.f | 54 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 D | qk15i.f | 74 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 D | qk31.f | 54 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 D | dqk21.f | 53 * 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 D | dqk15i.f | 73 * 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))
|