PRO pang, date_time
;PRO pangle

;date = '1-nov-1998'
;time = '00:00:00'

;date_time = date + ' ' + time

ang = pb0r (date_time, /arcsec)

pangle = ang [0]

bangle = ang [1]

rsun   = ang [2]

print, 'pangle: ', pangle
print, 'bangle: ', bangle
print, 'rsun:   ', rsun

END