******HELP GET INPUTS FOR IMFIT*****
$-----------------------------------------------------------------------
$;  Copyright (C) 1995
$;  Associated Universities, Inc. Washington DC, USA.
$;
$;  This program is free software; you can redistribute it and/or
$;  modify it under the terms of the GNU General Public License as
$;  published by the Free Software Foundation; either version 2 of
$;  the License, or (at your option) any later version.
$;
$;  This program is distributed in the hope that it will be useful,
$;  but WITHOUT ANY WARRANTY; without even the implied warranty of
$;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
$;  GNU General Public License for more details.
$;
$;  You should have received a copy of the GNU General Public
$;  License along with this program; if not, write to the Free
$;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,
$;  MA 02139, USA.
$;
$;  Correspondence concerning AIPS should be addressed as follows:
$;         Internet email: aipsmail@nrao.edu.
$;         Postal address: AIPS Project Office
$;                         National Radio Astronomy Observatory
$;                         520 Edgemont Road
$;                         Charlottesville, VA 22903-2475 USA
$-----------------------------------------------------------------------
PROCEDURE INPFIT (I)
   GMAX = 0
   GPOS = 0
   GWIDTH = 0
   CTYPE = 0
   DOMAX = 1
   DOPOS = 1
   DOWIDTH = 1
   TYPE 'SET WINDOW FOR FITTING AREA.'
   TVWIN
   NGAUSS = I
   FOR J = 1 TO I
      TYPE 'PLACE ON MAXIMUM OF',J,'TH COMPONENT'
      IMXY;IMVAL
      GMAX(J) = PIXVAL
      GPOS(1,J) = PIXXY(1)
      GPOS(2,J) = PIXXY(2)
      END
   RETURN
   FINISH