11 July 2019 AD; St Benedict and St Pius I

Here are 2 small output files for the sample program:

Alpha C_M_0. txt:

CONSTANT C_M_0 ( 0.98697635038435694 , 0.0000000000000000 )
CONSTANT C_0 ( 0.98697635038435694 , 0.0000000000000000 )
RATIO C_87 = C_8/C_7 ( 1.1557273497909217 , 0.0000000000000000 )
CONSTANT C_8 3.1415926535897931


NEW EXPM1 ( 2435.0727143320046 , -4217.6696613476970 )
NEW EXPM2 ( 1.04021072683254705E-004, 1.80169782945212612E-004)
NEW EXPM3 ( 15.310822950125743 , -5.4939879453781000 )
NEW FT ( 6.3370234600271766 , -6.4617654920429519 )
EXPONENT MAIN ( 15.310822950125743 , -5.4939879453781000 )
NEW EXPP (-5.78628945281326745E-002,-2.07629626479113941E-002)
NEW ALFA_MINUS_HALF ( 1.0465791868099519 ,-0.14076844388309170 )
FT VALUE AT X ( 6.3370234600271766 , -6.4617654920429519 )
EXPONENT PARTIAL (-5.78628945281326745E-002,-2.07629626479113941E-002)

ALFA MINUS 1/2 ( 1.0465791868099519 ,-0.14076844388309170 )
ALFA SQUARE ( 1.0755122394705130 ,-0.29465064705533689 )

ALFA ( 0.86487560717547163 , 0.23694398624611551 )

REAL PART OF ALFA 0.86487560717547163
IMAGINARY PART OF ALFA 0.23694398624611551

POLAR PART OF ALFA 0.89674537551377431
MODULUS (ABSOLUTE VALUE) OF ALFA 0.89674537551377431

ANGLE THETA OF COMPLEX NUMBER (ARGUMENT) IN RADIANS 0.26740194047193616

ANGLE THETA OF COMPLEX NUMBER (ARGUMENT) IN DEGREES 15.321002622650418

and Alpha C_M_0 VIS.txt:

0.86487560717547162792D+00 0.23694398624611551218D+00
0.89674537551377431210D+00 0.26740194047193616145D+00

You can run the sample program using free Fortran editor and compiler: "Force 2.0"