C     Example program computig Taylor series for sin(t)
      program c2p2

      implicit none

      integer terms,i,n,fact
      real t,answer

      print *, 'Enter number of terms'
      read *, terms

      print *, 'Enter t'
      read *, t
      print *, 'terms = ',terms,' t = ',t

      answer = 0
      fact = 1
      do 20 i=1,terms/2
         print *, 'i = ',i,'fact = ',fact
         n = 2*i-1
         print *, t**n
         answer = answer + (-1)**(i+1)*1.0/fact*t**n
         fact = fact*(2*i)
         fact = fact*(2*i+1)
 20   continue

      print *, answer, sin(t)
      end