2004-01-16 02:57:16 +03:00
|
|
|
/*
|
|
|
|
* $HEADER$
|
|
|
|
*/
|
|
|
|
|
|
|
|
#ifndef LAM_FILE_H
|
|
|
|
#define LAM_FILE_H
|
|
|
|
|
|
|
|
#include "mpi.h"
|
2004-03-19 03:00:09 +03:00
|
|
|
#include "errhandler/errhandler.h"
|
2004-03-17 21:45:16 +03:00
|
|
|
#include "mca/io/io.h"
|
2004-01-16 02:57:16 +03:00
|
|
|
|
2004-01-17 00:59:05 +03:00
|
|
|
typedef enum {
|
|
|
|
LAM_IO_1_0_0,
|
|
|
|
LAM_IO_2_0_0
|
|
|
|
} lam_io_version_t;
|
|
|
|
|
|
|
|
|
2004-01-16 02:57:16 +03:00
|
|
|
struct lam_file_t {
|
2004-03-19 03:00:09 +03:00
|
|
|
char f_name[MPI_MAX_OBJECT_NAME];
|
|
|
|
lam_io_version_t lam_io_version;
|
2004-01-16 02:57:16 +03:00
|
|
|
|
2004-03-19 03:00:09 +03:00
|
|
|
/* Hooks for io modules to hang things */
|
2004-01-16 02:57:16 +03:00
|
|
|
|
2004-03-19 03:00:09 +03:00
|
|
|
union {
|
|
|
|
mca_io_1_0_0_t f_io;
|
|
|
|
} mca_io_functions;
|
2004-01-16 02:57:16 +03:00
|
|
|
|
2004-03-19 03:00:09 +03:00
|
|
|
/* index in Fortran <-> C translation array */
|
|
|
|
|
|
|
|
int f_f_to_c_index;
|
|
|
|
|
2004-03-19 09:12:43 +03:00
|
|
|
/* Error handling. This field does not have the "f_" prefix so that
|
|
|
|
the LAM_ERRHDL_* macros can find it, regardless of whether it's a
|
|
|
|
comm, window, or file. */
|
2004-03-19 03:00:09 +03:00
|
|
|
|
2004-03-19 09:12:43 +03:00
|
|
|
lam_errhandler_t *error_handler;
|
2004-01-16 02:57:16 +03:00
|
|
|
};
|
|
|
|
typedef struct lam_file_t lam_file_t;
|
|
|
|
|
|
|
|
#endif /* LAM_FILE_H */
|