26 December 2023 9:22:47.808 AM hyper_2f1_test(): Fortran77 version Test hyper_2f1(). hyper_2f1_real_test(): Test hyper_2f1_real() for real arguments. a,b,c,x: -2.500000 3.300000 6.700000 0.250000 exact: 0.723561 computed: 0.723561 error: 0.222045E-15 a,b,c,x: -0.500000 1.100000 6.700000 0.250000 exact: 0.979111 computed: 0.979111 error: 0.111022E-15 a,b,c,x: 0.500000 1.100000 6.700000 0.250000 exact: 1.02166 computed: 1.02166 error: 0.00000 a,b,c,x: 2.500000 3.300000 6.700000 0.250000 exact: 1.40516 computed: 1.40516 error: 0.444089E-15 a,b,c,x: -2.500000 3.300000 6.700000 0.550000 exact: 0.469614 computed: 0.469614 error: 0.555112E-16 a,b,c,x: -0.500000 1.100000 6.700000 0.550000 exact: 0.952962 computed: 0.952962 error: 0.333067E-15 a,b,c,x: 0.500000 1.100000 6.700000 0.550000 exact: 1.05128 computed: 1.05128 error: 0.888178E-15 a,b,c,x: 2.500000 3.300000 6.700000 0.550000 exact: 2.39991 computed: 2.39991 error: 0.177636E-14 a,b,c,x: -2.500000 3.300000 6.700000 0.850000 exact: 0.291061 computed: 0.291061 error: 0.166533E-15 a,b,c,x: -0.500000 1.100000 6.700000 0.850000 exact: 0.925370 computed: 0.925370 error: 0.444089E-15 a,b,c,x: 0.500000 1.100000 6.700000 0.850000 exact: 1.08655 computed: 1.08655 error: 0.222045E-15 a,b,c,x: 2.500000 3.300000 6.700000 0.850000 exact: 5.73816 computed: 5.73816 error: 0.861533E-13 a,b,c,x: 3.300000 6.700000 -5.500000 0.250000 exact: 15090.7 computed: 15090.7 error: 0.109139E-10 a,b,c,x: 1.100000 6.700000 -0.500000 0.250000 exact: -104.312 computed: -104.312 error: 0.284217E-13 a,b,c,x: 1.100000 6.700000 0.500000 0.250000 exact: 21.1751 computed: 21.1751 error: 0.106581E-13 a,b,c,x: 3.300000 6.700000 4.500000 0.250000 exact: 4.19469 computed: 4.19469 error: 0.888178E-15 a,b,c,x: 3.300000 6.700000 -5.500000 0.550000 exact: 0.101708E+11 computed: 0.101708E+11 error: 0.114441E-04 a,b,c,x: 1.100000 6.700000 -0.500000 0.550000 exact: -24708.6 computed: -24708.6 error: 0.181899E-10 a,b,c,x: 1.100000 6.700000 0.500000 0.550000 exact: 1372.23 computed: 1372.23 error: 0.227374E-11 a,b,c,x: 3.300000 6.700000 4.500000 0.550000 exact: 58.0927 computed: 58.0927 error: 0.284217E-13 a,b,c,x: 3.300000 6.700000 -5.500000 0.850000 exact: 0.586821E+19 computed: 0.586821E+19 error: 12288.0 a,b,c,x: 1.100000 6.700000 -0.500000 0.850000 exact: -0.446350E+09 computed: -0.446350E+09 error: 0.476837E-06 a,b,c,x: 1.100000 6.700000 0.500000 0.850000 exact: 0.538351E+07 computed: 0.538351E+07 error: 0.651926E-08 a,b,c,x: 3.300000 6.700000 4.500000 0.850000 exact: 20396.9 computed: 20396.9 error: 0.145519E-10 hyper_2f1_complex_test(): Test hyper_2f1_complex() for complex arguments. hyper_2f1_complex(): Warning! The solution returned may have low accuracy. a,b,c,x: 3.200000 1.800000 6.700000 1.000000 0.000000 exact: 5.46900 0.00000 computed: 5.46900 0.00000 error: 0.477308E-06 hyper_2f1_complex(): Warning! The solution returned may have low accuracy. a,b,c,x: 3.200000 -1.800000 6.700000 1.000000 0.000000 exact: 0.337506 0.00000 computed: 0.337506 0.00000 error: 0.130155E-07 a,b,c,x: -5.000000 3.300000 6.700000 5.200000 4.800000 exact: 116.827 603.891 computed: 116.827 603.891 error: 0.143037E-03 a,b,c,x: 3.300000 -6.000000 3.700000 5.200000 -4.800000 exact: 17620.4 38293.8 computed: 17620.4 38293.8 error: 0.117350E-01 a,b,c,x: -7.000000 3.300000 -3.700000 5.200000 -4.800000 exact: -0.117728E+11 -0.143823E+11 computed: -0.117728E+11 -0.143823E+11 error: 5065.84 a,b,c,x: 4.300000 -8.000000 -3.700000 5.200000 4.800000 exact: 0.131612E+13 -0.101299E+12 computed: 0.131612E+13 -0.101299E+12 error: 589400. a,b,c,x: 3.300000 5.800000 6.700000 0.200000 0.100000 exact: 1.73306 0.634010 computed: 1.73306 0.634010 error: 0.860916E-07 a,b,c,x: 3.500000 -2.400000 6.700000 0.200000 0.500000 exact: 0.647622 -0.521105 computed: 0.647622 -0.521105 error: 0.420815E-07 hyper_2f1_complex(): Warning! The solution returned may have low accuracy. a,b,c,x: 3.300000 4.300000 6.700000 0.800000 0.300000 exact: -1.48301 8.37443 computed: -1.48301 8.37443 error: 0.226836E-05 a,b,c,x: 7.000000 5.000000 4.100000 3.000000 -1.000000 exact: -0.403761E-02 -0.295663E-02 computed: -0.403761E-02 -0.295663E-02 error: 0.142059E-08 a,b,c,x: 5.000000 7.000000 4.100000 3.000000 -1.000000 exact: -0.403761E-02 -0.295663E-02 computed: -0.403761E-02 -0.295663E-02 error: 0.142059E-08 a,b,c,x: 3.500000 1.200000 9.700000 0.600000 0.900000 exact: 1.03431 0.544739 computed: 1.03430 0.544738 error: 0.925356E-05 hyper_2f1_complex(): Warning! The solution returned may have low accuracy. a,b,c,x: 2.100000 5.400000 9.700000 0.500000 0.700000 exact: 0.688504 1.22742 computed: 0.688504 1.22742 error: 0.260690E-07 a,b,c,x: 8.700000 3.200000 6.700000 0.500000 0.700000 exact: -0.900465 -1.11989 computed: -0.900465 -1.11989 error: 0.131071E-06 a,b,c,x: 8.700000 2.700000 6.700000 0.600000 0.900000 exact: -0.460839 -0.545757 computed: -0.460839 -0.545757 error: 0.137939E-06 psi_values_test(): psi_values() returns values of the Psi function. X PSI(X) 0.10000000 -10.42375494041108 -10.4238 0.20000000 -5.289039896592188 -5.28904 0.30000000 -3.502524222200133 -3.50252 0.40000000 -2.561384544585116 -2.56138 0.50000000 -1.963510026021423 -1.96351 0.60000000 -1.540619213893190 -1.54062 0.70000000 -1.220023553697935 -1.22002 0.80000000 -0.9650085667061385 -0.965009 0.90000000 -0.7549269499470515 -0.754927 1.00000000 -0.5772156649015329 -0.577216 1.10000000 -0.4237549404110768 -0.423755 1.20000000 -0.2890398965921883 -0.289040 1.30000000 -0.1691908888667997 -0.169191 1.40000000 -0.6138454458511615E-01 -0.613845E-01 1.50000000 0.3648997397857652E-01 0.364900E-01 1.60000000 0.1260474527734763 0.126047 1.70000000 0.2085478748734940 0.208548 1.80000000 0.2849914332938615 0.284991 1.90000000 0.3561841611640597 0.356184 2.00000000 0.4227843350984671 0.422784 hyper_2f1_test(): Normal end of execution. 26 December 2023 9:22:47.809 AM