GNUPLOT_FITCURVE

• INPUTS :
  • ptr_gctrl : Pointer to structure of type gnuplot_ctrl.
  • n : Integer (number of points to be plotted).
  • np : Integer (number of adjustable parameters).
  • x : Real, dimension(n) (abcissae).
  • y : Real, dimension(n) (ordinates).
  • ffit : Character string : function to be fit (must be the RHS of the expression f(x)=...).
  • 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).
• OUTPUTS :
  • status : Integer (error flag)
• PURPOSE :

  Fits f(x) to supplied y vs x 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 in 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 xrange.
• INTERFACE :

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