ADJUST

        [ADJUST\]ADJUST My_Data "My Command" [/START G1 G2 ... Gn] [/STEP S1
    S2  ..  Sn]  [/EPSILON  e]  [/WEIGHTS  w]  [/METHOD   Powell|Robust|Sim-
    plex|Slatec|Anneal] [/ITER Niter] [/QUIET] [/ROOT_NAME Name] /PARAMETERS
    V1 V2 ... Vn [/BOUNDS Va Lowa Higha [Vb Lowb Highb ...]]

    Allows fitting arbitrary data with (almost) arbitrary number of  parame-
    ters (well, less than 26 so far, I believe).

    The  command  ADJUST  defines the following global SIC variables to hold
    its results:
           Root%PAR    : Fit parameters
           Root%ERRORS : The parameter errors, if they have been computed
           Root%RES    : Residuals (i.e. My_Data-Root%FIT)
           Root%STATUS : .FALSE. on successful completion.
    where Root is the name given in the /ROOT_NAME option (default is ADJ or
    MFIT).

    My_Data is a SIC variable containing your data to be fitted. It can be a
    variable of any rank, but (currently) it must be of type DOUBLE.

    "My Command" is a character string specifying the command to be executed
    to  compute  the difference between My_Data and the model.  This differ-
    ence must be returned in SIC variable Root%RES. The command is typically
            "@ my_difference"
    where "my_difference" is a procedure containing the code to compute  the
    model and a line to compute Root%RES.  Here is a simple example to fit a
    Gaussian (see HELP ADJUST EXAMPLE for more details)
    !
    begin procedure my_difference
       let ADJ%res my_data-gauss(xx,amp,pos,width)
    end procedure my_difference