
22 July 2026
Feast of Saint Mary Magdalene (1st Century AD)
3020. 3. FORTRAN Code to calculate Transcendental Constants from π down to the constant number -366; QUAD PRECISION
program transcendental_DOWN
! Program transcendentalconstants III
implicit none
! integer, parameter :: QR_KL = selected_real_kind (32)
! real (kind=QR_K) :: pi_VAL
! integer, parameter :: QR_K = selected_real_kind (32)
! real (kind=QR_K) :: e_VAL
! integer, parameter :: QR_K = selected_real_kind (32)
! real (kind=QR_K) :: rHS
! integer, parameter :: QR_K = selected_real_kind (32)
! real (kind=QR_K) :: rHSi
REAL*16 rHS,rHSi,pi_VAL,e_VAL,HS,HT,HTF,HTS
REAL*16 InverseTransCnstnext
REAL*16 TransCnstnext
REAL*16 y, counter
integer*8 i
22 July 2026
Feast of Saint Mary Magdalene (1st Century AD)
3020. 2. OUTPUT OF THE INTEL FORTRAN CODE; QUAD PRECISION: 'TRANSCENDENTAL CONSTANTS UP'; 366 TRANSCENDENTAL CONSTANTS; STARTING WITH π
VALUE OF PI =
0.31415926535897932384626433832795027974790680981373E+01
VALUE OF E =
0.27182818284590452353602874713526623143584218671935E+01
VALUE OF PI / E =
0.11557273497909217179100931833126962730089421974651E+01
VALUE OF e / pi =
0.86525597943226508721777478964608958358643306646676E+00
The Feast of Saint Benedict (543 AD); Saint Pius I (167 AD)
Author: Andrew Joseph Yanthar-Wasilik
Source: https://luxdeluce.com
Date of Analysis: 2017-2026
Analytical Framework: Theoretical Physics, Dimensional Analysis, Transcendental Mathematics
22 July 2026
Feast of Saint Mary Magdalene (1st century AD)
3020. 1. FORTRAN Code to calculate Transcendental Constants from π up to the constant number 366; QUAD PRECISION
program transcendental_II_UP
! Program transcendentalconstants II
IMPLICIT NONE
REAL*16 rHS,rHSi,pi_VAL,e_VAL,HS,HT,HTF,HTS
REAL*16 InverseTransCnstnext
REAL*16 TransCnstnext
REAL*16 y, counter
integer*8 i
Published: 10 May 2017 AD
The Feast of St. John of Avila (1562 AD)
Rewritten: 11 July 2026
The Feast of Saint Benedict (543 AD); Saint Pius I (167 AD)
Since the fine structure constant is dimensionless, we will use original Equation of the Universal Transcendental Function (UTF) and the two fundamental constants, C0, and C16. This rule may apply also to other dimensionless quantities.
Here is the process of derivation of the exact result of the fine structure constant, alfa, α. The calculation is done in a couple of steps as follows (the value of alfa was calculated using Force FORTRAN, in Double precision, Eclipse FORTRAN and Intel FORTRAN with Quad precision):
© 2026 Luxdeluce.com