|
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:
1.2 KB
|
| Line | |
|---|
| 1 | /* Include file to define variables for Fortran to C interface(s) */ |
|---|
| 2 | /* Robert Grumbine 16 March 1998 */ |
|---|
| 3 | /* NOSEEK added 25 March 1998 */ |
|---|
| 4 | /* CRAY compatibility added 20 April 1998 */ |
|---|
| 5 | |
|---|
| 6 | /* The following line should be either undef or define VERBOSE */ |
|---|
| 7 | /* The latter gives noisy debugging output, while the former */ |
|---|
| 8 | /* relies solely on the return codes */ |
|---|
| 9 | #undef VERBOSE |
|---|
| 10 | |
|---|
| 11 | /* Declare the system type, supported options are: */ |
|---|
| 12 | /* LINUX, SGI, HP, CRAY90, IBM4, IBM8, LINUXF90 */ |
|---|
| 13 | #define IBM4 |
|---|
| 14 | |
|---|
| 15 | |
|---|
| 16 | #include <stdlib.h> |
|---|
| 17 | |
|---|
| 18 | /* Do not change things below here yourself */ |
|---|
| 19 | |
|---|
| 20 | /* IO-related (bacio.c, banio.c) */ |
|---|
| 21 | #define BAOPEN_RONLY 1 |
|---|
| 22 | #define BAOPEN_WONLY 2 |
|---|
| 23 | #define BAOPEN_RW 4 |
|---|
| 24 | #define BACLOSE 8 |
|---|
| 25 | #define BAREAD 16 |
|---|
| 26 | #define BAWRITE 32 |
|---|
| 27 | #define NOSEEK 64 |
|---|
| 28 | #define BAOPEN_WONLY_TRUNC 128 |
|---|
| 29 | #define BAOPEN_WONLY_APPEND 256 |
|---|
| 30 | |
|---|
| 31 | #ifndef CRAY |
|---|
| 32 | # ifdef NOUNDERSCORE |
|---|
| 33 | # define BACIO bacio |
|---|
| 34 | # else |
|---|
| 35 | # ifdef F2CSTYLE |
|---|
| 36 | # define BACIO bacio__ |
|---|
| 37 | # define BANIO banio__ |
|---|
| 38 | # else |
|---|
| 39 | # define BACIO bacio_ |
|---|
| 40 | # define BANIO banio_ |
|---|
| 41 | # endif |
|---|
| 42 | # endif |
|---|
| 43 | #endif |
|---|
Note: See
TracBrowser
for help on using the repository browser.
