|
Last change
on this file since 3567 was
11,
checked in by aslmd, 14 years ago
|
|
spiga@svn-planeto:ajoute le modele meso-echelle martien
|
|
File size:
750 bytes
|
| Line | |
|---|
| 1 | ! Include file to define variables for Fortran to C interface(s) |
|---|
| 2 | ! Robert Grumbine 16 March 1998 |
|---|
| 3 | INTEGER,PARAMETER:: BACIO_OPENR=1 ! Open file for read only |
|---|
| 4 | INTEGER,PARAMETER:: BACIO_OPENW=2 ! Open file for write only |
|---|
| 5 | INTEGER,PARAMETER:: BACIO_OPENRW=4 ! Open file for read or write |
|---|
| 6 | INTEGER,PARAMETER:: BACIO_CLOSE=8 ! Close file |
|---|
| 7 | INTEGER,PARAMETER:: BACIO_READ=16 ! Read from the file |
|---|
| 8 | INTEGER,PARAMETER:: BACIO_WRITE=32 ! Write to the file |
|---|
| 9 | INTEGER,PARAMETER:: BACIO_NOSEEK=64 ! Start I/O from previous spot |
|---|
| 10 | INTEGER,PARAMETER:: BACIO_OPENWT=128 ! Open for write only with truncation |
|---|
| 11 | INTEGER,PARAMETER:: BACIO_OPENWA=256 ! Open for write only with append |
|---|
Note: See
TracBrowser
for help on using the repository browser.
