==============================================================
 
     compute the single particle nonlinear tune over nturn turns
     the tunes qxf,qyf have only the fractional part less than 0.5
     in input one must provide in a complex vector Zx = x + I px,
     Zy = y + I py. nturn are the number of turns used. nspect is
     a flag to print out the spectrum, which is plot in a file
     of unit nspect.
 
 ==============================================================
 
subroutine FFTTUNE(nspect,nturn,Zx,Zy,qxf,qyf)
 
COMMONS: 
common-initi.f
 
SUBROUTINES USED:
  FFT
 
micromap-index
Mon Jul 17 08:57:37 CEST 2017