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