Ignore:
Timestamp:
07/06/06 16:48:41 (18 years ago)
Author:
pinsard
Message:

improvements of ReadWrite/?*.pro header

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/SRC/ReadWrite/read_oasis.pro

    • Property svn:executable deleted
    • Property svn:keywords set to Id
    r121 r130  
    33;------------------------------------------------------------ 
    44;+ 
    5 ; @file_comments read the f77 unformated files used in Oasis (version < 2.5)  
     5; @file_comments 
     6; read the f77 unformated files used in Oasis (version < 2.5) 
    67; 
    78; @categories reading 
    89; 
    9 ;        @param filename {in}{required} the filename 
    10 ;        @param varname {in}{required} the name of the variable to be read 
    11 ;        @param jpi {in}{required} 
    12 ;        @param jpj {in}{required}  
    13 ;        the size of the 2d array to be read 
     10; @param filename {in}{required} the filename 
    1411; 
    15 ; @keyword /I2 
    16 ; @keyword /I4 
    17 ; @keyword /I8 
    18 ; @keyword /R4 
     12; @param varname {in}{required} the name of the variable to be read 
     13; 
     14; @param jpi {in}{required} 
     15; 
     16; @param jpj {in}{required} 
     17; the size of the 2d array to be read 
     18; 
     19; @keyword I2 
     20; @keyword I4 
     21; @keyword I8 
     22; @keyword R4 
    1923; to change the default format (R8) of the data to be read. 
    2024; 
     
    2933; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    3034;                      July 01, 2002 
     35; @version $Id$ 
    3136;- 
    3237;------------------------------------------------------------ 
     
    6974      ELSE:res = dblarr(jpi, jpj) 
    7075   endcase 
    71     
     76 
    7277   readu, unit, res 
    73     
     78 
    7479   free_lun,unit 
    7580 
Note: See TracChangeset for help on using the changeset viewer.