Updated mvnprd.f

wafo/source/mvnprd/mvnprd.f

@@ -748,22 +748,22 @@ C
      *  CONST1 = 0.180625E0, CONST2 = 1.6E0)
 C
 C     COEFFICIENTS FOR  P  CLOSE TO  1/2
-      PARAMETER (A0 = 3.38713 27179E0,
-     *           A1 = 5.04342 71938E1,
-     *           A2 = 1.59291 13202E2,
-     *           A3 = 5.91093 74720E1,
-     *           B1 = 1.78951 69469E1,
-     *           B2 = 7.87577 57664E1,
-     *           B3 = 6.71875 63600E1)
+      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
 C
 C     COEFFICIENTS FOR  P  NEITHER CLOSE TO  1/2  NOR  0 OR 1
-      PARAMETER (C0 = 1.42343 72777E0,
-     *           C1 = 2.75681 53900E0,
-     *           C2 = 1.30672 84816E0,
-     *           C3 = 1.70238 21103E-1,
-     *           D1 = 7.37001 64250E-1,
-     *           D2 = 1.20211 32975E-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
 C
 C     COEFFICIENTS FOR  P  NEAR  0 OR 1