/*---------------------------------------------------------------------------------
  Title: UserFs.txt
  Purpose: Define F(s)
  Author: P. Kano, M. Brio
  Date: May 9, 2011
  
  Comment: 
  User defines the function Fs to invert here.
  F(s) Must be written in a way that it can be implemented in C/C++ or CUDA-C.
  This may require explicit definition of functions of complex variables.
  
  This function is included directly into the CUDA kernal wfnsampleFS.cu
  A device function for F(s) could also be used.
 ----------------------------------------------------------------------------------*/
  
  /*Example D: 
  F(s) = (s+3/5)^(-9/11)
  f(t) = 1/( t^(2/11) * Gamma(9/11) * exp(3*t/5) )
  f(2) = 0.23202351899818
  ------------------------------------------------*/
  Fs = make_cuDoubleComplex(0.6,0.0);
  Fs = cuCadd(Fs,s);
  precReal Magnitude = cuCabs(Fs);
  precReal ExpoConst = -9.0/11.0;
  Magnitude = pow(Magnitude,ExpoConst);
  precReal Angle = ExpoConst*atan2(Fs.y,Fs.x);
  Fs.x = Magnitude*cos(Angle);
  Fs.y = Magnitude*sin(Angle);
