diff --git a/wafo/source/mvnprd/mvnprd.f b/wafo/source/mvnprd/mvnprd.f
index 538e317..03f97cc 100644
--- a/wafo/source/mvnprd/mvnprd.f
+++ b/wafo/source/mvnprd/mvnprd.f
@@ -748,32 +748,32 @@ C
      *  CONST1 = 0.180625E0, CONST2 = 1.6E0)
 C
 C     COEFFICIENTS FOR  P  CLOSE TO  1/2
-      PARAMETER (A0 = 3.38713 27179D0,
-     *           A1 = 5.04342 71938D1,
-     *           A2 = 1.59291 13202D2,
-     *           A3 = 5.91093 74720D1,
-     *           B1 = 1.78951 69469D1,
-     *           B2 = 7.87577 57664D1,
-     *           B3 = 6.71875 63600D1)
-C     HASH SUM AB    32.31845 77772
+      PARAMETER (A0 = 3.3871327179D0,
+     *           A1 = 5.0434271938D1,
+     *           A2 = 1.5929113202D2,
+     *           A3 = 5.9109374720D1,
+     *           B1 = 1.7895169469D1,
+     *           B2 = 7.8757757664D1,
+     *           B3 = 6.7187563600D1)
+C     HASH SUM AB    32.3184577772
 C
 C     COEFFICIENTS FOR  P  NEITHER CLOSE TO  1/2  NOR  0 OR 1
-      PARAMETER (C0 = 1.42343 72777D0,
-     *           C1 = 2.75681 53900D0,
-     *           C2 = 1.30672 84816D0,
-     *           C3 = 1.70238 21103D-1,
-     *           D1 = 7.37001 64250D-1,
-     *           D2 = 1.20211 32975D-1)
-C     HASH SUM CD    15.76149 29821
+      PARAMETER (C0 = 1.4234372777D0,
+     *           C1 = 2.7568153900D0,
+     *           C2 = 1.3067284816D0,
+     *           C3 = 1.7023821103D-1,
+     *           D1 = 7.3700164250D-1,
+     *           D2 = 1.2021132975D-1)
+C     HASH SUM CD    15.7614929821
 C
 C     COEFFICIENTS FOR  P  NEAR  0 OR 1
-      PARAMETER (E0 = 6.65790 51150E0,
-     *           E1 = 3.08122 63860E0,
-     *           E2 = 4.28682 94337E-1,
-     *           E3 = 1.73372 03997E-2,
-     *           F1 = 2.41978 94225E-1,
-     *           F2 = 1.22582 02635E-2)
-C     HASH SUM EF    19.40529 10204
+      PARAMETER (E0 = 6.6579051150E0,
+     *           E1 = 3.0812263860E0,
+     *           E2 = 4.2868294337E-1,
+     *           E3 = 1.7337203997E-2,
+     *           F1 = 2.4197894225E-1,
+     *           F2 = 1.2258202635E-2)
+C     HASH SUM EF    19.4052910204
 C
       IFAULT = 0
       Q = P - HALF