!
! Define and initialize the Box labelling properties
if .not.exist(box) then
  define struc box /global
  define character*20 box%legendx box%legendy /global
  define character*1 box%kindx box%kindy box%bunit /global
  define character*4 box%gunit /global
  define character*12 box%sunit /global
  define double box%aunit /global
  !
endif
define integer iunit junit
define character*1 gunit[4]
define character*4 bunit[4]
define character*12 sunit[4]
define double aunit[4]
let bunit "Deg" "Min" "Sec" "Rad"
let sunit "in degree" "in arcmin" "in arcsec" "in radian"
let gunit "^"   "'"   "`"   " "
let aunit pi/180 pi/180/60 pi/180/3600 1.d0
!
let iunit max(angle_unit,0) ! 0 <==> ABSOLUTE
let junit abs(angle_unit)   ! Secondary unit
let box%bunit 'bunit[junit]' ! Angle Unit if not Absolute
let box%gunit "("'gunit[junit]'")" ! GreG symbol for Angle Unit if not Absolute
let box%aunit aunit[junit]
let box%sunit 'sunit[junit]'
if junit.eq.4 let box%gunit " "
