integer Day, Hour, Minute
	real    fraction
	character*28 moon(4) /'new moon.','first quarter of the moon.',
	1		      'full moon.', 'last quarter of the moon.'/
	Common /PHOON/ Day, Hour, Minute, Fraction, Moon

	structure /tm_struct/
	    integer tm_sec,  tm_min,  tm_hour
	    integer tm_mday, tm_mon,  tm_year
	    integer tm_wday, tm_yday, tm_isdst
	end structure