source: trunk/SRC/ReadWrite/scanoasis.pro @ 224

Last change on this file since 224 was 163, checked in by navarro, 18 years ago

header improvements : type of parameters and keywords, default values, spell checking + idldoc assistant (IDL online_help)
  • Property svn:keywords set to Id
File size: 1.1 KB
Line 
1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
5; @file_comments
6; scan an Oasis file (version < 2.5)
7;
8; @categories know what is inside
9;
10; @param FILENAME {in}{required}
11; The file name
12;
13; @restrictions
14; List the variable names included in a Oasis file
15;
16; @examples
17; IDL> scanoasis,'grids_orca_t106'
18;
19; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
20;                            July 01, 2002
21; @version $Id$
22;-
23;------------------------------------------------------------
24;------------------------------------------------------------
25;------------------------------------------------------------
26
27PRO scanoasis, filename
28;
29  compile_opt idl2, strictarrsubs
30;
31
32   openr, unit,filename , /F77_UNFORMATTED, /GET_LUN, /SWAP_IF_LITTLE_ENDIAN $
33    , error=err
34   if err ne 0 then begin
35      print,!err_string
36      return
37   endif
38
39   char8 = '12345678'
40   WHILE NOT EOF(unit) DO BEGIN
41      readu, unit, char8
42      print,  char8
43      readu, unit
44   ENDWHILE
45
46   free_lun,unit
47   return
48end
Note: See TracBrowser for help on using the repository browser.