program slowft
c Fourier Transform
c time (x) in atomic units
implicit none
real*8 t,y,wmin,wmax,delw,arg,pi,w
integer*4 n,nw,iw,iargc
character*80 st,fi,fo
real*8,allocatable::s(:),c(:)
pi=4.0d0*atan(1.0d0)
if(iargc().ne.5)then
write(6,*)'Usage wmin wmax delw