program test
   implicit none
   real::x,y,z
   open(20,file='test.dat')
   do x=-3.0,3.0,0.05
      y=cos(x)*exp(-abs(x))
      z=exp(-x*x)
      write(20,"(3f9.4)") x,y,z
   enddo
end program
