Fits f(x) to supplied y vs x and plots the result if desired.
BAD_SIGNAL
: Called with a dissociated pointer.
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 |