program curvepts

C********************************************************
C  Create a table for the points on the curve 
C	y=exp(-x)*sin(x)
C  Bounds and steps are defined by user.
C*******************************************************

      real x, y, start, stop, delta

      print *, 'Enter lower and upper limits on X and step size'
      read *, start, stop, delta

      print *, '         X             Y  '
      print *, '-------------   ----------'

      do 10 x = start, stop, delta
         y = exp(-x) * sin(x)
         print *, x, y
 10   continue

      stop
      end