danh
/
pywafo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Small fix

Browse Source
master
pbrod 9 years ago
parent 4fc5a1fec4
commit 771c6e4313
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File

4
wafo/source/mvnprd/mvnprd.f
Unescape Escape View File

@ -152,8 +152,8 @@ C
& F1T(22), F2T(22), F3T(22), G1T(22), G3T(22), PSUM(22), H(NN) & F1T(22), F2T(22), F3T(22), G1T(22), G3T(22), PSUM(22), H(NN)
$ , HL(NN),BB(NN) $ , HL(NN),BB(NN)
INTEGER INF(*), INFT(NN), LDIR(22) INTEGER INF(*), INFT(NN), LDIR(22)
DOUBLE PRECISION ZERO, HALF, ONE, TWO, FOUR, SIX, PT1, PT24, ONEP5, DOUBLE PRECISION ZERO, HALF, ONE, TWO, FOUR, SIX, PT1, PT24,
* X2880, SMALL, DXMIN, SQRT2, PROB, ERRL, BI, START, * ONEP5, X2880, SMALL, DXMIN, SQRT2, PROB, ERRL, BI, START,
* Z, HINC, ADDN, EPS2, EPS1, EPS, ZU, Z2, Z3, Z4, Z5, ZZ, * Z, HINC, ADDN, EPS2, EPS1, EPS, ZU, Z2, Z3, Z4, Z5, ZZ,
* ERFAC, EL, EL1, BOUND, PART0, PART2, PART3, FUNC0, FUNC2, * ERFAC, EL, EL1, BOUND, PART0, PART2, PART3, FUNC0, FUNC2,
* FUNCN, WT, CONTRB, DLG, DX, DA, ESTL, ESTR, TSUM, EXCESS, ERROR, * FUNCN, WT, CONTRB, DLG, DX, DA, ESTL, ESTR, TSUM, EXCESS, ERROR,

Write Preview
Loading…
Cancel
Save