Removed duplicated variables

9 years ago · 841524b8ac
parent 771c6e4313
commit 841524b8ac
1 changed files with 1 additions and 1 deletions
--- a/wafo/source/mvnprd/mvnprd.f
+++ b/wafo/source/mvnprd/mvnprd.f
@ -153,7 +153,7 @@ C
     $     , HL(NN),BB(NN)
      INTEGER INF(*), INFT(NN), LDIR(22)
      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,
     *  ERFAC, EL, EL1, BOUND, PART0, PART2, PART3, FUNC0, FUNC2,
     *  FUNCN, WT, CONTRB, DLG, DX, DA, ESTL, ESTR, TSUM, EXCESS, ERROR,