/*      FILE: /mxtools/src/psfstar/par_get.c
 *   PURPOSE: Get ParS input parameters
 *    AUTHOR: Kenneth J. Mighell (mighell@noao.edu)
 *  LANGUAGE: ANSI C
 *      DATE: 2001NOV06
 * COPYRIGHT: (C) 2001 Assoc. of Universities for Research in Astronomy Inc.
 */

#include <mx.h>
#include "inc.h"

int inc_ParS_Get_i1 (
  inc_ParS *ParS
){
  char mxfunc[] = "inc_ParS_Get_i1";
  int mxstatus = 0;
  int status;
  int is_INDEF;
  double tx;

  mxstatus++;
  status = IrafParStringGet_v5( 
    "image", "", ParS->image, sizeof(ParS->image), &is_INDEF );
  if (status) goto mx_error1;
  if (is_INDEF) {
    sprintf( MX.tmpmsg, "IMAGE can not be INDEF!\n");
    goto mx_error2;
  }

  mxstatus++;
  status = IrafParStringGet_v5( 
    "psf", "", ParS->psf, sizeof(ParS->psf), &is_INDEF );
  if (status) goto mx_error1;
  if (is_INDEF) {
    sprintf( MX.tmpmsg, "PSF can not be INDEF!\n");
    goto mx_error2;
  }

  mxstatus++;
  status = IrafParDoubleGet_v4( "se", 0.0, &ParS->se, &is_INDEF);
  if (status) goto mx_error1;
  mxstatus++;
  if (is_INDEF) {
    sprintf( MX.tmpmsg, "SE can not be INDEF!\n");
    goto mx_error2;
  }


  mxstatus++;
  status = IrafParDoubleGet_v4( "sx", 0.0, &ParS->sx, &is_INDEF);
  if (status) goto mx_error1;
  mxstatus++;
  if (is_INDEF) {
    sprintf( MX.tmpmsg, "SX can not be INDEF!\n");
    goto mx_error2;
  }

  mxstatus++;
  status = IrafParDoubleGet_v4( "sy", 0.0, &ParS->sy, &is_INDEF);
  if (status) goto mx_error1;
  mxstatus++;
  if (is_INDEF) {
    sprintf( MX.tmpmsg, "SY can not be INDEF!\n");
    goto mx_error2;
  }

  ParS->sigma = 2.354;

  strcpy( ParS->PSFSTAR, PSFSTAR_DATE);
  strcpy( ParS->PROGFILE, "mxtools$src/psfstar/psfstar.c");
  strcpy( ParS->PROGDATE, __DATE__);
  strcpy( ParS->PROGTIME, __TIME__);

ok:
  status = 0;
  goto bye;

mx_error1:
  mxp_tmpmsg_init_f0();
mx_error2:
  mxp_errmsg_append_f3 (mxfunc, mxstatus, MX.tmpmsg);
  mxp_tmpmsg_init_f0();
  status = 1;
  fflush(stdout);
  goto bye;

bye:
  return(status);

}
/* end-of-file */