GNUPLOT_FITSURFACE

• INPUTS :
  • ptr_gctrl : Pointer to structure of type gnuplot_ctrl.
  • n : Integer (number of points to be plotted along x).
  • m : Integer (number of points to be plotted along y).
  • np : Integer (number of adjustable parameters).
  • x : Real, dimension(n) (abcissae).
  • y : Real, dimension(m) (abcissae).
  • z : Real, dimension(n X m) (ordinate).
  • gfit : Character string : function to be fit (must be the RHS of the expression g(x,y)=...).
  • vialist : Character(len=1), dimension(np) : the via list (like 'a,b,c' (constants used in ffit).
  • paraminit : Real, dimension(np) : array containing initial values for the parameters (optional).
  • fitlimit : Real : FIT_LIMIT , default is usually 1e-6 (depends upon your gnuplot installation) (optional).
  • fitlog : Character string : filename of the fitting log (optional).
  • plotresult : Integer whether to plot the result (=1) or not (=0) with the data (optional).
  • xlo : Real : xrange low (optional).
  • xhi : Real : xrange high (optional).
  • ylo : Real : yrange low (optional).
  • yhi : Real : yrange high (optional).
• OUTPUTS :
  • status : Integer (error flag).
• PURPOSE :

  Fits g(x,y) to supplied z vs x,y and plots the result if desired.

• DIAGNOSTICS :
  • status = 0 : Success.
  • status = BAD_SIGNAL : Called with a dissociated pointer.
  • status = -3 : Called with less than one point.
  • status = -1 : Impossible error.
  • status = -2 : Cannot create temporary file.
  • status = 22 : Failed to delete temporary file.
  • status = -4 : Failed to write to temporary file.
  • status = -5 : No function specified.
  • status = -7 : Invalid function specification.
  • status = -8 : Invalid plot directive.
  • status = 23 : Specified fit log file will overwrite an existing file.
  • status = -9 : Failed to open temporary file temporary directory.
  • status = -10 : Could not execute the fit.
  • status = -11 : Could not plot the result.
  • status = -12 : Wrong initial paraminit array size.
  • status = -13 : Wrong vialist size.
  • status = -14 : Invalid input x/y range.
  • status = 24 : Failed to unset previously set acknowledgement string.
  • status = 25 : Failed to set acknowledgement string.
• INTERFACE :

  interface integer function gnuplot_fitsurface(ptr_gctrl,n,m,np,x,y,z,& gfit,vialist,paraminit,xlo,xhi,ylo,yhi,fitlimit,fitlog,& plotresult) result(status) type(gnuplot_ctrl), pointer :: ptr_gctrl real(dp), dimension(:), intent(in) :: x,y real(dp), dimension(:,:), intent(in) :: z character(len=*), intent(in) :: gfit character(len=1), dimension(:) :: vialist real(dp), intent(in), optional :: fitlimit integer(i4b), intent(in) :: n,m,np integer(i4b), intent(in), optional :: plotresult real(dp), dimension(:), intent(in), optional :: paraminit character(len=*), intent(in), optional :: fitlog end function gnuplot_fitsurface end interface