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