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

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

start to modify headers of ReadWrite? *.pro files for better idldoc output
  • Property svn:executable set to *
File size: 1.1 KB
RevLine 
[44]1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
[106]5; @file_comments scan an Oasis file (version < 2.5)
[44]6;
[106]7; @categories know what is inside
[44]8;
[106]9; @param filename {in}{required} the file name
[44]10;
[106]11; @restrictions List the variable names included in a Oasis file
[44]12;
[106]13; @examples
14;  IDL> scanoasis,'grids_orca_t106'
[44]15;
[106]16; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
[44]17;                      July 01, 2002
18;-
19;------------------------------------------------------------
20;------------------------------------------------------------
21;------------------------------------------------------------
22
23PRO scanoasis, filename
24
25   openr, unit,filename , /F77_UNFORMATTED, /GET_LUN, /SWAP_IF_LITTLE_ENDIAN $
26    , error=err
27   if err ne 0 then begin
28      print,!err_string
29      return
30   endif
31
32   char8 = '12345678'
33   WHILE NOT EOF(unit) DO BEGIN
34      readu, unit, char8
35      print,  char8
36      readu, unit
37   ENDWHILE
38
39   free_lun,unit
40   return
41end
Note: See TracBrowser for help on using the repository browser.