Subroutine:   irpl_userinfo
 
Purpose:      read user information to snip a plate
 
File:         irpl_userinfo.shl
 
Author:       Do Kester
 
Use: call irpl_userinfo(
       irds,      	O  	character*(*)
 	instru,    	O  	character*(*)
       center,    	O  	doubleprecision(2)
       size,      	O  	doubleprecision(2)
       coor,      	O  	integer
	plotdevice)	O  	character*(*)

       irds,      	name of the IRDS to be made
       instru,    	name of the instrument
       center,    	longitude and latitude of the center
       size,      	lon. and lat. size of the plate
       coor,      	coordinate system long and lat are given in
	plotdevice)	device to display the plate layout on
 
Description:    
 	The routine queries the user for items necessary to build
 	an IRDS. The folling keywords are (possibly) requested:

 	INSTRUME= 	observation mode and band  (in IRUS_INST)
 	CENTER=		longitude and latitude of the IRDS center
 	SIZE=		longitudinal and latitudinal size of the
			IRDS to snip [1.0 1.0]
 	COOR=		coordinate system CENTER is given in (in IRUS_COOR)
			[EQUATORIAL 2000.0]
 ***	EPOCH=		( in IRUS_COOR ) [2000.0]
 ***	POLEDISTANCE=	( in IRUS_COOR ) [0.0]
 ***	REFNODE=	( in IRUS_COOR ) [0.0]
 ***   NEWNODE=	( in IRUS_COOR ) [0.0]
	IRSET=		name of the IRDS to be made [no snip action]
 ***	STATUS=		if the IRDS already exists: Overwrite, Error, Merge.
			[Overwrite]
	OBJECT=		name of the object on the custom plate [none]
	OBSERVER=	name of the observer [none]
 
Externals:    
	IRUS_INST IRUS_COOR
	IRCC_OBSMODE IRCC_RATE IRCC_NDETS
	USERDBLE USERINT USERCHAR USERCHARU
	ANYOUT CANCEL NELC 
	IRDS_EXIST IRDS_CREATE IRDS_DELETE IRDS_ENQUIRE IRDS_CLOSE
	IRCO_NAMEPOCH IRCO_NUMBER
 
Updates:       23 Apr  1990 DK, code
		 17 July 1990 DK, change coor into integer