Home
last modified time | relevance | path

Searched refs:NOEQU (Results 1 – 5 of 5) sorted by relevance

/dports/math/cmlib/cmlib-3.0_8/src/quadpkd/
H A Ddqc25f.f108 1 NOEQU,NOEQ1,NRMOM
206 NOEQU = 25
207 NOEQ1 = NOEQU-1
218 D(NOEQU) = -0.2D+01*(AN2-0.4D+01)*(PAR22-AN2-AN2)
219 V(NOEQU+3) = AS-(AN2-0.4D+01)*AC
225 V(NOEQU+3) = V(NOEQU+3)-0.2D+01*ASAP*PAR2*(AN-0.1D+01)*
234 CALL DGTSL(NOEQU,D1,D,D2,V(4),IERS)
275 D(NOEQU) = -0.2D+01*(AN2-0.4D+01)*(PAR22-AN2-AN2)
276 V(NOEQU+2) = AC+(AN2-0.4D+01)*AS
282 V(NOEQU+2) = V(NOEQU+2)-0.2D+01*ASAP*PAR2*(AN-0.1D+01)
[all …]
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Ddqc25f.f116 1 NOEQU,NOEQ1,NRMOM local
219 NOEQU = 25
220 NOEQ1 = NOEQU-1
231 D(NOEQU) = -0.2D+01*(AN2-0.4D+01)*(PAR22-AN2-AN2)
232 V(NOEQU+3) = AS-(AN2-0.4D+01)*AC
238 V(NOEQU+3) = V(NOEQU+3)-0.2D+01*ASAP*PAR2*(AN-0.1D+01)*
247 CALL DGTSL(NOEQU,D1,D,D2,V(4),IERS)
288 D(NOEQU) = -0.2D+01*(AN2-0.4D+01)*(PAR22-AN2-AN2)
289 V(NOEQU+2) = AC+(AN2-0.4D+01)*AS
295 V(NOEQU+2) = V(NOEQU+2)-0.2D+01*ASAP*PAR2*(AN-0.1D+01)
[all …]
/dports/math/slatec/src/
H A Ddqc25f.f116 1 NOEQU,NOEQ1,NRMOM
215 NOEQU = 25
216 NOEQ1 = NOEQU-1
227 D(NOEQU) = -0.2D+01*(AN2-0.4D+01)*(PAR22-AN2-AN2)
228 V(NOEQU+3) = AS-(AN2-0.4D+01)*AC
234 V(NOEQU+3) = V(NOEQU+3)-0.2D+01*ASAP*PAR2*(AN-0.1D+01)*
243 CALL DGTSL(NOEQU,D1,D,D2,V(4),IERS)
284 D(NOEQU) = -0.2D+01*(AN2-0.4D+01)*(PAR22-AN2-AN2)
285 V(NOEQU+2) = AC+(AN2-0.4D+01)*AS
291 V(NOEQU+2) = V(NOEQU+2)-0.2D+01*ASAP*PAR2*(AN-0.1D+01)
[all …]
H A Dqc25f.f112 1 NOEQU,NOEQ1,NRMOM
216 NOEQU = 25
217 NOEQ1 = NOEQU-1
228 D(NOEQU) = -0.2E+01*(AN2-0.4E+01)*(PAR22-AN2-AN2)
229 V(NOEQU+3) = AS-(AN2-0.4E+01)*AC
235 V(NOEQU+3) = V(NOEQU+3)-0.2E+01*ASAP*PAR2*(AN-0.1E+01)*
241 CALL SGTSL(NOEQU,D1,D,D2,V(4),IERS)
283 D(NOEQU) = -0.2E+01*(AN2-0.4E+01)*(PAR22-AN2-AN2)
284 V(NOEQU+2) = AC+(AN2-0.4E+01)*AS
290 V(NOEQU+2) = V(NOEQU+2)-0.2E+01*ASAP*PAR2*(AN-0.1E+01)
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/quadpks/
H A Dqc25f.f103 1 NOEQU,NOEQ1,NRMOM
206 NOEQU = 25
207 NOEQ1 = NOEQU-1
218 D(NOEQU) = -0.2E+01*(AN2-0.4E+01)*(PAR22-AN2-AN2)
219 V(NOEQU+3) = AS-(AN2-0.4E+01)*AC
225 V(NOEQU+3) = V(NOEQU+3)-0.2E+01*ASAP*PAR2*(AN-0.1E+01)*
231 CALL SGTSL(NOEQU,D1,D,D2,V(4),IERS)
273 D(NOEQU) = -0.2E+01*(AN2-0.4E+01)*(PAR22-AN2-AN2)
274 V(NOEQU+2) = AC+(AN2-0.4E+01)*AS
280 V(NOEQU+2) = V(NOEQU+2)-0.2E+01*ASAP*PAR2*(AN-0.1E+01)
[all …]