Subroutine:   IRCO_NAMEPOCH
 
 Purpose:      returns name and epoch of a coordinate system
 
 Category	WORLD COORDINATES, IRAS

 File:         irco.shl
 
 Author:       Do Kester
 
 Person resp.: Do Kester
 
 Address:      guspace!do or rugfx4!do         (uucp)
 
 Use: call irco_namepoch(
 	coor1  	I  	integer 
 	name    O       character*(*)
       epoch ) O       real
 
 	coor1	coordinate system
	name	the name of the system
	epoch	the epoch of the system ( zero if non-applicable )

 Description:  
 	For the system given with COOR1 the name and the epoch 
 	are returned
	The predefined systems are numbered as follows:
	  1	Equatorial	2000
	  2	Galactic
	  3	Ecliptic	2000
	  4	Supergalactic
	  5	Sunreferenced	sun at eclon = 0
	
 Updates:      19 june 1990 DK