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

Removed duplicated variables

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

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

@ -153,7 +153,7 @@ C
$ , 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, DOUBLE PRECISION ZERO, HALF, ONE, TWO, FOUR, SIX, PT1, PT24,
* ONEP5, X2880, SMALL, DXMIN, SQRT2, PROB, ERRL, BI, START, * 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