From cd7edd6ba365281283dde686c4521629411af560 Mon Sep 17 00:00:00 2001 From: pbrod Date: Mon, 30 Nov 2015 12:12:33 +0100 Subject: [PATCH] Updated mvnprd.f --- wafo/source/mvnprd/mvnprd.f | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/wafo/source/mvnprd/mvnprd.f b/wafo/source/mvnprd/mvnprd.f index d0eb788..538e317 100644 --- a/wafo/source/mvnprd/mvnprd.f +++ b/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