% @(#)createfunc.hlq 17.1.1.1 (ESO-IPG) 01/25/02 17:11:27 %++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ %.COPYRIGHT (c) 1990 European Southern Observatory %.IDENT createfunc.hlq %.AUTHOR JDP, IPG/ESO %.KEYWORDS MIDAS, help files, CREATE/FUNCTION %.PURPOSE On-line help file for the command: CREATE/FUNCTION %.VERSION 1.0 23-APR-1987 : Creation, JDP %---------------------------------------------------------------- \se SECTION./FUNC \es\co CREATE/FUNCTION 23-APR-1987 JDP \oc\su CREATE/FUNCTION fun1[,fun2...] [library_specs] define user functions for fitting \us\pu Purpose: Define user function(s) to be used by fitting commnands. The defined functions are coded in FORTRAN in files user00.for to user09.for. The command:\\ - compiles the functions;\\ - links the corresponding system primitives in the user work area;\\ - sets a system flag to execute the user version of the primitives.\\ The defined functions can be used in the EDIT/FIT command. \up\sy Syntax: CREATE/FUNCTION fun1[,fun2...] [library_specs] \ys\pa fun1[,fun2...] = function names as user00, ... user09 \ap\pa library_specs = optional private libraries needed for linking \ap\no Note: User functions are coded as subroutines with the following arguments: \\ SUBROUTINE user0i(N, X, NP, P, Y, DY)\\ input arguments are : N integer*4 no. of independent variables X(N) real*4 array with the values of the independent vars. NP integer*4 no. of parameters P(NP) real*8 array with the values of the parameters output arguments are : Y real*8 output value of the function DY(NP) real*8 array with the values of the function derivatives with respect to each parameter. \\ IMPORTANT: the name of these files user0i.for HAS to be in lowercase. \on\see See also: REPLACE/FUNCTION \ees\exs Examples: \ex CREATE/FUNCTION user00,user03 includes in the system the functions defined in the FORTRAN sources user00.for and user03.for \xe\ex CREATE/FUNCTION user00,user03 MYLIB/L,LIB3/L as above but link also with libraries mylib and lib3 \xe \sxe