!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! MIRA program initialization
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! Common variable and symbol definitions
!
if file("gag_pro:common-definitions.greg") then
   ! Old names for the jul07 version of gildas
   @ common-definitions.greg
endif
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! MIRA specific variable definitions
!
if .not.exist(mira_def) then
   define logical mira_def /global
   let mira_def no
   !
   !define integer nbeam and so on...
   !
   ! Success
   !
   let mira_def yes
   !
endif
!
! Next time user will call @ define, menu and window will pop up
!
let sic%initwindow yes
sic priority 2 * 1 MIRA 3 LAS ANALYSE FIT DSB2SSB MAP
!
!define double sec /global
!
sec = pi/6.48e5 
!
define real blc[4] trc[4] /global
!
define real dx dy mira_xmax mira_xmin mira_ymax mira_ymin /global
!
mira_xmin = 4.0
mira_xmax = 29.5
mira_ymin = 1.5 !2.5
! this is o.k.:
!mira_ymax = 20  !21.0
! try now this:
mira_ymax = 19.5
!
symbol aliCheck "@ mira_pro:p_plot_alignment.mira"
!
return
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
