Small fix

9 years ago · 771c6e4313
parent 4fc5a1fec4
commit 771c6e4313
1 changed files with 2 additions and 2 deletions
--- 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,