! Simple program to show the Ftcl library
!
program calc
   use FTCL
   implicit none

   integer       :: i
   integer       :: nosteps
   real          :: x
   real          :: y
   real          :: dphi
   real          :: phi

   call ftcl_start( 'calc.tcl' )
   call ftcl_get( 'dphi', dphi )
   call ftcl_get( 'nosteps', nosteps )

   write(*,*) dphi, nosteps

   do i = 0,nosteps
      phi = real(i) * dphi
      x = cos( phi )
      y = sin( phi )
      write(*,*) phi, x, y
      call ftcl_put( 'x', x )
      call ftcl_put( 'y', y )
      call ftcl_script( 'transfer' )
   enddo

   call ftcl_script( 'close_transfer' )
   stop
   end