diff --git a/wafo/source/mvnprd/mvnprd.f b/wafo/source/mvnprd/mvnprd.f
index be1de64..bcc32fc 100644
--- a/wafo/source/mvnprd/mvnprd.f
+++ b/wafo/source/mvnprd/mvnprd.f
@@ -152,8 +152,8 @@ C
      &     F1T(22), F2T(22), F3T(22), G1T(22), G3T(22), PSUM(22), H(NN)
      $     , 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,
+      DOUBLE PRECISION ZERO, HALF, ONE, TWO, FOUR, SIX, PT1, PT24,
+     *  ONEP5, X2880, 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,