Changeset 130 for trunk/SRC/ReadWrite/read_oasis.pro
- Timestamp:
- 07/06/06 16:48:41 (18 years ago)
- 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 3 3 ;------------------------------------------------------------ 4 4 ;+ 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) 6 7 ; 7 8 ; @categories reading 8 9 ; 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 14 11 ; 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 19 23 ; to change the default format (R8) of the data to be read. 20 24 ; … … 29 33 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 30 34 ; July 01, 2002 35 ; @version $Id$ 31 36 ;- 32 37 ;------------------------------------------------------------ … … 69 74 ELSE:res = dblarr(jpi, jpj) 70 75 endcase 71 76 72 77 readu, unit, res 73 78 74 79 free_lun,unit 75 80
Note: See TracChangeset
for help on using the changeset viewer.