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

Last change on this file since 76 was 44, checked in by pinsard, 18 years ago

upgrade of LECTURE/ReadWrite according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files
  • Property svn:executable set to *
File size: 1.2 KB
Line 
1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
5; NAME:scanoasis
6;
7; PURPOSE:scan an Oasis file (version < 2.5)
8;
9; CATEGORY:know what is inside
10;
11; CALLING SEQUENCE:scanoasis, filename
12;
13; INPUTS: filename: the file name!
14;
15; KEYWORD PARAMETERS:
16;
17; OUTPUTS:
18;
19; COMMON BLOCKS:
20;
21; SIDE EFFECTS: List the variable names included in a Oasis file
22;
23; RESTRICTIONS:
24;
25; EXAMPLE:  IDL> scanoasis,'grids_orca_t106'
26;
27; MODIFICATION HISTORY:Sebastien Masson (smasson@lodyc.jussieu.fr)
28;                      July 01, 2002
29;-
30;------------------------------------------------------------
31;------------------------------------------------------------
32;------------------------------------------------------------
33
34PRO scanoasis, filename
35
36   openr, unit,filename , /F77_UNFORMATTED, /GET_LUN, /SWAP_IF_LITTLE_ENDIAN $
37    , error=err
38   if err ne 0 then begin
39      print,!err_string
40      return
41   endif
42
43   char8 = '12345678'
44   WHILE NOT EOF(unit) DO BEGIN
45      readu, unit, char8
46      print,  char8
47      readu, unit
48   ENDWHILE
49
50   free_lun,unit
51   return
52end
Note: See TracBrowser for help on using the repository browser.