;+
;
; @file_comments
; scan an Oasis file (version < 2.5)
;
; @categories know what is inside
;
; @param FILENAME {in}{required}
; The file name
;
; @restrictions
; List the variable names included in a Oasis file
;
; @examples
; IDL> scanoasis,'grids_orca_t106'
;
; @history
; Sebastien Masson (smasson\@lodyc.jussieu.fr)
;                            July 01, 2002
; @version
; $Id$
;
;-
;
PRO scanoasis, filename
;
  compile_opt idl2, strictarrsubs
;

   openr, unit,filename , /F77_UNFORMATTED, /GET_LUN, /SWAP_IF_LITTLE_ENDIAN $
    , error=err
   if err ne 0 then begin
      ras = report(!err_string)
      return
   endif

   char8 = '12345678'
   WHILE NOT EOF(unit) DO BEGIN
      readu, unit, char8
      ras = report(char8)
      readu, unit
   ENDWHILE

   free_lun,unit
   return
end