! @(#)obsolete.def	14.1.1.1 (ESO-IPG) 09/16/99 09:27:19
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
! 
!  MIDAS procedure   obsolete.def
!  K. Banse	920313			ESO - Garching
!  921127, 930110, 930323, 930923, 940113
! 
!  define obsolete commands here in a consistent manner
! 
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
! 
! the following is a template
! 
! CREA/COMM BLABLA/OHO @ obsolete,test
! 
! CREA/COMM CREATE/AUX_ @ obsolete,creaux
!
!  create keyword OBSOLETE if not there yet
! 
inputi = m$existk("obsolete")
if inputi .eq. 0 then
   write/key obsolete/i/1/10 0 all
endif