!
! Task UV_FIT (new version R. Lucas)
! 6 parameters needed for all functions
!
TASK\CHARACTER "UVtable name"                        UVTABLE$     
TASK\INTEGER   "Channels: first, last (0,0 for all)" CHANNEL$[2]  
TASK\REAL      "UV range (max, min) in meters"       UV_RANGE$[2] 
TASK\CHARACTER "fit table name"           RESULT$                 
TASK\CHARACTER "residuals UVtable"        RESIDUALS$              
TASK\INTEGER   "Number of functions"      NF$                     
!
! valid functions are POINT, C_GAUSS, E_GAUSS, C_DISK, E_DISK, RING,
! EXP, POWER-2, POWER-3
!
TASK\CHARACTER "Function #1 "             FUNCT01$     
TASK\REAL      "Parameters"               PARAM01$[6]  
TASK\REAL      "Starting range"           RANGE01$[6]  0 0 0 0 0 0
TASK\INTEGER   "numb. of starts"          START01$[6]  1 1 1 1 1 1
TASK\LOGICAL   "Subtract function"        SUBSF01$ 
!
! ---
! repeat the following six for each function, changing the variable names
! ( e.g. FUNCT02$, ...
!
TASK\MORE "Function #2"
TASK\CHARACTER "Function #2 "             FUNCT02$ "  "
TASK\REAL      "Parameters"               PARAM02$[6]  0 0 0 0 0 0
TASK\REAL      "Starting range"           RANGE02$[6]  0 0 0 0 0 0
TASK\INTEGER   "numb. of starts"          START02$[6]  1 1 1 1 1 1
TASK\LOGICAL   "Subtract function"        SUBSF02$ NO
!
TASK\MORE "Function #3"
TASK\CHARACTER "Function #3 "             FUNCT03$ "  "
TASK\REAL      "Parameters"               PARAM03$[6]  0 0 0 0 0 0
TASK\REAL      "Starting range"           RANGE03$[6]  0 0 0 0 0 0
TASK\INTEGER   "numb. of starts"          START03$[6]  1 1 1 1 1 1
TASK\LOGICAL   "Subtract function"        SUBSF03$ NO
!
TASK\MORE "Function #4"
TASK\CHARACTER "Function #4 "             FUNCT04$ "  "
TASK\REAL      "Parameters"               PARAM04$[6]  0 0 0 0 0 0
TASK\REAL      "Starting range"           RANGE04$[6]  0 0 0 0 0 0
TASK\INTEGER   "numb. of starts"          START04$[6]  1 1 1 1 1 1
TASK\LOGICAL   "Subtract function"        SUBSF04$ NO
!
! end repeat ---
!
TASK\GO