From ea595ac6316e7541dbee5bef13ae5bc72b8ca58a Mon Sep 17 00:00:00 2001 From: pbrod Date: Mon, 30 Nov 2015 12:19:28 +0100 Subject: [PATCH] Removed space in numbers --- wafo/source/mvnprd/mvnprd.f | 44 ++++++++++++++++++------------------- 1 file changed, 22 insertions(+), 22 deletions(-) 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