function pr_sun, SUN, silent=silent

;+
;	Function PRSUN issues variables containing in the structure
;	SUN of type 'SOL_EPHEMERIDE' in the form suitable for reading.
;	If keyword parameter SILENT is not set, these variables are 
;	printed in command log.
;-

if strupcase(tag_names(SUN,/str)) ne 'SOL_EPHEMERIDE' then message,	$
	'Incorrect type of input variable.'


Output=["Current time data, degree:",  $
" ",    $
"Position angle = "+string(SUN.Dp*!radeg,format="(F6.2)"), $
"Radius = "+string(SUN.R*!radeg*60,format="(F6.2)")+"'", $
"Centre's latitude = "+string(SUN.B0*!radeg,format="(F6.2)"), $
"Centre's Karring. long. = "+string(SUN.Karr*!radeg,format="(F6.1)"), $
"Hour angle = "+string(SUN.H*!radeg,format="(F6.2)"), $
"Declination = "+string(SUN.Decl*!radeg,format="(F6.2)"), $
"Culmination = "+smh(SUN.Tcul*3600d0,/ms)]


if not keyword_set(silent) then for j=0,n_elements(Output)-1 do print, Output(j)

	return,	output

	end