character*10 venus_descriptor
         character*10 earth_descriptor
         character*10 titan_descriptor
	 parameter(venus_descriptor='VENUS VIRA')
	 parameter(earth_descriptor='EARTH')
         parameter(titan_descriptor='TITAN')