28 November 2022 10:06:15.725 AM asa245_test(): FORTRAN90 version Test asa245(). test01(): alngam() computes the logarithm of the Gamma function. We compare the result to tabulated values. X FX FX2 (Tabulated) (ALNGAM) DIFF 0.2000000000000000 1.524063822430784 1.524063822474622 0.4384E-10 0.4000000000000000 0.7966778177017837 0.7966778176797148 0.2207E-10 0.6000000000000000 0.3982338580692348 0.3982338579206516 0.1486E-09 0.8000000000000000 0.1520596783998375 0.1520596783251525 0.7469E-10 1.0000000000000000 0.000000000000000 0.000000000000000 0.000 1.1000000000000001 -0.4987244125983972E-01 -0.4987244125532977E-01 0.4510E-11 1.2000000000000000 -0.8537409000331583E-01 -0.8537408995947865E-01 0.4384E-10 1.3000000000000000 -0.1081748095078604 -0.1081748095390525 0.3119E-10 1.3999999999999999 -0.1196129141723712 -0.1196129141944402 0.2207E-10 1.5000000000000000 -0.1207822376352452 -0.1207822376563367 0.2109E-10 1.6000000000000001 -0.1125917656967557 -0.1125917657030719 0.6316E-11 1.7000000000000000 -0.9580769740706586E-01 -0.9580769741919355E-01 0.1213E-10 1.8000000000000000 -0.7108387291437215E-01 -0.7108387290649908E-01 0.7873E-11 1.8999999999999999 -0.3898427592308333E-01 -0.3898427591676824E-01 0.6315E-11 2.0000000000000000 0.000000000000000 0.000000000000000 0.000 3.0000000000000000 0.6931471805599453 0.6931471806718161 0.1119E-09 4.0000000000000000 1.791759469228055 1.791759467549525 0.1679E-08 10.0000000000000000 12.80182748008147 12.80182748826567 0.8184E-08 20.0000000000000000 39.33988418719949 39.33988418719949 0.7105E-14 30.0000000000000000 71.25703896716801 71.25703896716800 0.1421E-13 test02(): lngamma() computes the logarithm of the Gamma function. We compare the result to tabulated values. X FX FX2 (Tabulated) (LNGAMMA) DIFF 0.2000000000000000 1.524063822430784 1.524063822430784 0.2220E-15 0.4000000000000000 0.7966778177017837 0.7966778177017816 0.2109E-14 0.6000000000000000 0.3982338580692348 0.3982338580692358 0.1055E-14 0.8000000000000000 0.1520596783998375 0.1520596783998380 0.5274E-15 1.0000000000000000 0.000000000000000 0.6661338147750939E-15 0.6661E-15 1.1000000000000001 -0.4987244125983972E-01 -0.4987244125983881E-01 0.9159E-15 1.2000000000000000 -0.8537409000331583E-01 -0.8537409000331597E-01 0.1388E-15 1.3000000000000000 -0.1081748095078604 -0.1081748095078616 0.1221E-14 1.3999999999999999 -0.1196129141723712 -0.1196129141723725 0.1318E-14 1.5000000000000000 -0.1207822376352452 -0.1207822376352454 0.2220E-15 1.6000000000000001 -0.1125917656967557 -0.1125917656967559 0.1804E-15 1.7000000000000000 -0.9580769740706586E-01 -0.9580769740706430E-01 0.1568E-14 1.8000000000000000 -0.7108387291437215E-01 -0.7108387291437346E-01 0.1305E-14 1.8999999999999999 -0.3898427592308333E-01 -0.3898427592308362E-01 0.2914E-15 2.0000000000000000 0.000000000000000 -0.1332267629550188E-14 0.1332E-14 3.0000000000000000 0.6931471805599453 0.6931471805599445 0.7772E-15 4.0000000000000000 1.791759469228055 1.791759469228055 0.4441E-15 10.0000000000000000 12.80182748008147 12.80182748008147 0.1776E-14 20.0000000000000000 39.33988418719949 39.33988418719949 0.7105E-14 30.0000000000000000 71.25703896716801 71.25703896716800 0.1421E-13 test03(): lgamma() computes the logarithm of the Gamma function. It may be a built in function for some compilers. We compare the result to tabulated values. X FX FX2 (Tabulated) (LGAMMA) DIFF 0.2000000000000000 1.524063822430784 1.524063822430784 0.2220E-15 0.4000000000000000 0.7966778177017837 0.7966778177017837 0.000 0.6000000000000000 0.3982338580692348 0.3982338580692349 0.1665E-15 0.8000000000000000 0.1520596783998375 0.1520596783998376 0.5551E-16 1.0000000000000000 0.000000000000000 0.000000000000000 0.000 1.1000000000000001 -0.4987244125983972E-01 -0.4987244125983976E-01 0.4163E-16 1.2000000000000000 -0.8537409000331583E-01 -0.8537409000331583E-01 0.000 1.3000000000000000 -0.1081748095078604 -0.1081748095078605 0.6939E-16 1.3999999999999999 -0.1196129141723712 -0.1196129141723713 0.9714E-16 1.5000000000000000 -0.1207822376352452 -0.1207822376352452 0.1388E-16 1.6000000000000001 -0.1125917656967557 -0.1125917656967558 0.6939E-16 1.7000000000000000 -0.9580769740706586E-01 -0.9580769740706588E-01 0.1388E-16 1.8000000000000000 -0.7108387291437215E-01 -0.7108387291437215E-01 0.000 1.8999999999999999 -0.3898427592308333E-01 -0.3898427592308336E-01 0.2776E-16 2.0000000000000000 0.000000000000000 0.000000000000000 0.000 3.0000000000000000 0.6931471805599453 0.6931471805599453 0.000 4.0000000000000000 1.791759469228055 1.791759469228055 0.000 10.0000000000000000 12.80182748008147 12.80182748008147 0.1776E-14 20.0000000000000000 39.33988418719949 39.33988418719949 0.000 30.0000000000000000 71.25703896716801 71.25703896716801 0.000 asa245_test(): Normal end of execution. 28 November 2022 10:06:15.726 AM