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

Last change on this file since 157 was 136, checked in by pinsard, 18 years ago

some improvements and corrections in some .pro file according to
aspell and idldoc log file
  • 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.