## Source Code in FORTRAN for Transcendental Constants

```c
c
c
c     This program calculates the values of transcendental constants
c     from constant number "8" - i.e. pi all the way up to constant
c     number "366".
c
Program transcendentalconstants II

double precision y,rHS,pi,e
double precision InverseTransCnstnext
double precision TransCnstnext, counter

integer*8 i

parameter (pi=0.314159265358979323846D+001)
parameter (e=0.271828182845904523536D+001)
parameter (rHS=0.314159265358979323D+001/0.27182818284590452D+001)
c      parameter(rHSi=0.27182818284590452D+001/0.31415926535897932D+001)
c      parameter (HS=0.314159265358979323D+002/0.27182818284590452D+001)
c      parameter (HT=(pi*e*HS)/1.00000000000000000000D+002)
c      parameter (HTF=(pi*pi)/1.0000000000000000000D+001)
c      parameter (HTS=(e*HS)*(e*HS)/1.00000000000000000000D+003)

open(11,file='C:/FORTRAN/Constants UP.txt')

print *, ' '
write(11,*), ' '

print *, '          Table of Transcendental Constants going Up'
write(11,*) '         Table of Transcendental Constants going Up'

print *, ' '
write(11,*), ' '

print *,  ' index          value of CONST             inverse of C&
&ONST'
write(11,*) ' index          value of CONST                inverse&
& of CONST'

print *, ' '
write(11,*), ' '

counter = 0.0D000
i = 8

counter = 0.1D+001

if ( counter .eq. 0.1D+001 ) then

TransCnstnext = dble (pi)
InverseTransCnstnext = dble(1.0000000000000000000D+000/(dble (p&
&i)))

print *,'C equals Constant',i, ' = ', TransCnstnext, InverseTra&
&nsCnstnext
write(11,100)i, TransCnstnext, InverseTransCnstnext

endif

counter = 0.0D000

do 10 i = 9, 366
counter = counter + 0.1D+001
y = dble (counter)

TransCnstnext = dble(pi) *  dble (dble(rHS)**dble(y))
InverseTransCnstnext = dble(1.0000000000000000000D+000/TransCnstn&
&ext)

print *,'C equals Constant',i, ' = ', TransCnstnext , InverseTr&
&ansCnstnext
write(11,100)i, TransCnstnext, InverseTransCnstnext

if ( i .eq. 16) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 31) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 47) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 63) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 79) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 95) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 111) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 127) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 143) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 159) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 175) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 191) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 207) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 223) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 239) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 255) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 271) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 287) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 303) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 319) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 335) then
print *, ' '
write(11,*), ' '
endif

if ( i .eq. 351) then
print *, ' '
write(11,*), ' '
endif

10    continue

close(11)

pause
stop

100   format(I5,D30.15,D30.15)
200   format(D100.15)

end program transcendentalconstants II

```