Source Code in FORTRAN for Transcendental Constants

c

c Copyright © Andrew Yanthar-Wasilik 2003-2016
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 *, ' Copyright © Andrew Yanthar-Wasilik 2003-2016'
write(11,*) ' Copyright © Andrew Yanthar-Wasilik 2003-2016'

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



Comments powered by CComment