diff --git a/wafo/source/mvnprd/mvnprd.f b/wafo/source/mvnprd/mvnprd.f
index bcc32fc..d9d2a61 100644
--- 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,