!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! IMAGER program general information
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
if (sic%program.eq."imager") then
  message r welcome " * Current developer: S.Guilloteau"
  message r welcome " "
  message r welcome " * IMAGER is an advanced imaging tool replacing MAPPING, "
  message r welcome " * with new facilities developped in language ADVANCED\"
  message r welcome " "
  message r welcome " * For help, type HELP IMAGER at the IMAGER prompt"
  imager\tips
else
  !
  message r welcome " * Current developer: S.Guilloteau"
  message r welcome " "
  message r welcome " * VIEWER is a Data Cube Visualisation Tool"
  message r welcome " "
  message r welcome " * For help, type HELP at the VIEWER prompt"
endif
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
