/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, 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 D | dqk15.f | 57 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 D | dqk21.f | 57 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 D | dqk15w.f | 69 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 D | dqk31.f | 57 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 D | dqk15i.f | 84 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 D | dqk15.f | 64 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 D | dqk21.f | 64 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 D | dqk15w.f | 76 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 D | dqk31.f | 64 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 D | dqk15i.f | 84 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 D | qk15i.f | 84 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 D | dqk15.f | 64 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 D | qk15.f | 63 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 D | dqk21.f | 64 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 D | qk21.f | 63 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 D | qk31.f | 63 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 D | dqk31.f | 64 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 D | gl15t.f | 162 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 D | dqk15i.f | 73 * 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 D | dqk21.f | 53 * 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 D | qk15i.f | 74 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 D | qk15.f | 54 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 D | qk21.f | 54 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 D | qk31.f | 54 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))
|