Changeset 238 for trunk/SRC/ReadWrite/write_oasis.pro
- Timestamp:
- 03/27/07 15:43:18 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ReadWrite/write_oasis.pro
r236 r238 4 4 ; write an Oasis file (version < 2.5) 5 5 ; 6 ; @param FILENAME {in}{required} 6 ; @param FILENAME {in}{required} 7 7 ; the filename 8 8 ; 9 ; @param VARNAME {in}{required} 9 ; @param VARNAME {in}{required} 10 10 ; the name of the variable to be written 11 11 ; 12 ; @param Z2D {in}{required} 12 ; @param Z2D {in}{required} 13 13 ; the variable (2D array) to be written 14 14 ; … … 19 19 ; to change the default format (R8) of the data to be written. 20 20 ; 21 ; @keyword APPEND 22 ; to open the file with the file pointer at the end of the file, ready for 21 ; @keyword APPEND 22 ; to open the file with the file pointer at the end of the file, ready for 23 23 ; data to be appended. 24 24 ; 25 ; @restrictions 25 ; @restrictions 26 26 ; varname is automatically written as a "character*8" 27 27 ; by default z2d is written as an R8 array 28 28 ; 29 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 29 ; @history 30 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 30 31 ; July 01, 2002 31 ; @version $Id$ 32 ; @version 33 ; $Id$ 34 ; 32 35 ;- 33 36 ; … … 42 45 return 43 46 endif 44 47 45 48 writeu, unit, string(varname, format='(a8)') 46 49 case 1 of
Note: See TracChangeset
for help on using the changeset viewer.