12 September 2026 AD

The Most Holy Name of Mary

FORTRAN CODE (Double Precision)to compute Coupling Constants (and other constants) from C-50 to C+19

PROGRAM ALFA_GENERAL

     

      IMPLICIT NONE

     

      COMPLEX*16 EXPM, ALFA_MINUS_HALF, ALFA_SQUARE

      COMPLEX*16 ALFA_FINAL, C_0, C_87, C_8

      REAL*8 B_1, B_2, B_3

      REAL*8 C_1, C_2

      COMPLEX*16 A, B, C

      COMPLEX*16 ALFA_MINUS_HALF_1, ALFA_MINUS_HALF_3

      REAL *8 ALFA_MINUS_HALF_2

      REAL*8 REAL_PART, ABSOL_VALUE

      COMPLEX*16 IMAG_PART

      COMPLEX*16 THETA, THETA_DEG

Write comment (0 Comments)

12 September 2026 AD

The Most Holy Name of Mary

 

The Coupling Constants C-35 (Gravity Force); C-1 and C+1 (Strong Force); C+16  (Electromagnetic Force) and C+17 (Weak Force)

 

_____________________________________________________

 PART A...............................................

                  -35 (  1.0730037463164241     , -0.0000000000000000     )

 _____________________________________________________

 PART B...............................................

                  -35  6.22827914107738825E-003

                  -35 -2.30563002680965155E-002

                  -35  -19.708333333333332    

                  -35 ( 3.31485363940225086E+075, 4.32000137012406239E+075)

 _____________________________________________________

 PART C...............................................

                  -35 ( 6.22827914107738825E-003,  0.0000000000000000     )

  -35            -1.7916666666666667406815000         0.0000000000000000000000000E+00

  -35            -0.0111590001277636543391970         0.0000000000000000000000000E+00

 _____________________________________________________

 EXPONENT MAIN = (A/B)**C.............................

                  -35 (  6.9947797421277453     , 7.15238910015500023E-002)

Write comment (0 Comments)

12 September 2026 AD

The Most Holy Name of Mary

 

The Coupling Constants (and other constants) from C-30 to C-7

 

_____________________________________________________

 PART A...............................................

                  -30 (  1.0642482746035731     , -0.0000000000000000     )

 _____________________________________________________

 PART B...............................................

                  -30  1.28423654009677118E-002

                  -30 -2.60273972602739732E-002

                  -30  -17.416666666666668    

                  -30 (-8.95385416852152691E+059, 3.34162386804849486E+060)

 _____________________________________________________

 PART C...............................................

                  -30 ( 1.28423654009677118E-002,  0.0000000000000000     )

  -30            -1.5833333333333332593185000         0.0000000000000000000000000E+00

  -30            -0.0203337452181988759258860         0.0000000000000000000000000E+00

 _____________________________________________________

 EXPONENT MAIN = (A/B)**C.............................

                  -30 (  16.987653865268108     , 0.63331318388721702     )

Write comment (0 Comments)

12 September 2026 AD

The Most Holy Name of Mary

 

The Coupling Constants (and other constants) from C-6 to C+19

 

PART A...............................................

                   -6 (  1.0232062726165287     , -0.0000000000000000     )

 _____________________________________________________

 PART B...............................................

                   -6  0.41416595994870176    

                   -6 -6.60377358490566030E-002

                   -6  -6.4166666666666670    

                   -6 (  2769878369.8014364     , -10337326806.884996     )

 _____________________________________________________

 PART C...............................................

                   -6 ( 0.41416595994870176     ,  0.0000000000000000     )

   -6            -0.5833333333333333703407700         0.0000000000000000000000000E+00

   -6            -0.2415968099700760429726600         0.0000000000000000000000000E+00

 _____________________________________________________

 EXPONENT MAIN = (A/B)**C.............................

                   -6 (  250.37436969663673     , -81.930545757097477     )

Write comment (0 Comments)

12 September 2026 AD

The Most Holy Name of Mary

 

The Coupling Constants (and other constants) from C-50 to C-31

 

 

PART A...............................................

                  -50 (  1.0997047193972080     , -0.0000000000000000     )

 _____________________________________________________

 PART B...............................................

                  -50  7.10456033496937906E-004

                  -50 -1.71597633136094663E-002

                  -50  -26.583333333333332    

                  -50 (-1.10206430465704323E+130,-4.11295997818826832E+130)

 _____________________________________________________

 PART C...............................................

                  -50 ( 7.10456033496937906E-004,  0.0000000000000000     )

  -50            -2.4166666666666665186369000         0.0000000000000000000000000E+00

  -50            -0.0017169354142842665599672         0.0000000000000000000000000E+00

 _____________________________________________________

 EXPONENT MAIN = (A/B)**C.............................

                  -50 (  1.6757487334852312     ,-5.27267445952545044E-003)

Write comment (0 Comments)