Source Code in FORTRAN for Transcendental Constants

c

c     Copyright © Andrew Yanthar-Wasilik 2003-2016

c

c

c     This program calculates the values of the transcendental constants

c     from constant number "8" - i.e. "pi" all the way up to the 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