! @(#)rfotmfit.prg	17.1.1.1 (ES0-DMD) 01/25/02 17:18:05
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
!.IDENTIFICATION: RFOTMFIT.PRG
!.PURPOSE:        To determine the characyterristics of stellar images by
!.                non-linear fitting
!.USE:            MFIT/ROMAFOT frame [int_tab] [thers,sky] [sig,sat,tol,iter]
!                 [meth[,beta]] [fit_opt] [mean_opt]
!.AUTHOR:         Rein H. Warmels
!.VERSION:        890903 RHW implementation of table file system
!.                           restructering the code
! ----------------------------------------------------------------------
DEFINE/PARAM   P1  ?                 C     "Enter frame: "
DEFINE/PARAM   P2  'P1'INT           TAB   "Enter output intermediate table: "
DEFINE/PARAM   P3  0.0,0.0           NUM   "Enter threshold and sky background: " 
DEFINE/PARAM   P4  0.0,0.0,2.0,50.0  NUM   "Enter sigma, sat. tol. and # iter.: "
DEFINE/PARAM   P5  MU,4.0            C     "Enter the fit method and beta: "
DEFINE/PARAM   P6  YNNN              C     "Enter the fit options: "
DEFINE/PARAM   P7  N                 C     "Enter the averaging option: "
DEFINE/PARAM   P8  DEFAULT           C     "Enter filename for subpixel data: "
!
WRITE/KEYW IN_A           'P1'
WRITE/KEYW IN_B           'P2'
WRITE/KEYW INPUTR/R/1/2   'P3'
WRITE/KEYW INPUTR/R/3/4   'P4'
WRITE/KEYW INPUTC/C/1/20  'P5'
WRITE/KEYW INPUTC/C/21/20 'P6'
WRITE/KEYW INPUTC/C/41/20 'P7'
WRITE/KEYW OUT_A/C/1/60   'P8'
!
RUN CON_EXE:RFOTMFIT