make the c interface functions compile and work and start with the fortran interface functions.
Этот коммит содержится в:
родитель
f2af8e94ff
Коммит
01f752a504
@ -391,9 +391,13 @@ nodist_libmpi_c_pmpi_la_SOURCES += \
|
||||
pfile_get_view.c \
|
||||
pfile_iread_at.c \
|
||||
pfile_iread.c \
|
||||
pfile_iread_at_all.c \
|
||||
pfile_iread_all.c \
|
||||
pfile_iread_shared.c \
|
||||
pfile_iwrite_at.c \
|
||||
pfile_iwrite.c \
|
||||
pfile_iwrite_at_all.c \
|
||||
pfile_iwrite_all.c \
|
||||
pfile_iwrite_shared.c \
|
||||
pfile_open.c \
|
||||
pfile_preallocate.c \
|
||||
|
@ -143,9 +143,13 @@
|
||||
#define MPI_File_get_view PMPI_File_get_view
|
||||
#define MPI_File_iread_at PMPI_File_iread_at
|
||||
#define MPI_File_iread PMPI_File_iread
|
||||
#define MPI_File_iread_at_all PMPI_File_iread_at_all
|
||||
#define MPI_File_iread_all PMPI_File_iread_all
|
||||
#define MPI_File_iread_shared PMPI_File_iread_shared
|
||||
#define MPI_File_iwrite_at PMPI_File_iwrite_at
|
||||
#define MPI_File_iwrite PMPI_File_iwrite
|
||||
#define MPI_File_iwrite_at_all PMPI_File_iwrite_at_all
|
||||
#define MPI_File_iwrite_all PMPI_File_iwrite_all
|
||||
#define MPI_File_iwrite_shared PMPI_File_iwrite_shared
|
||||
#define MPI_File_open PMPI_File_open
|
||||
#define MPI_File_preallocate PMPI_File_preallocate
|
||||
|
@ -450,9 +450,13 @@ libmpi_mpifh_la_SOURCES += \
|
||||
file_get_view_f.c \
|
||||
file_iread_at_f.c \
|
||||
file_iread_f.c \
|
||||
file_iread_at_all_f.c \
|
||||
file_iread_all_f.c \
|
||||
file_iread_shared_f.c \
|
||||
file_iwrite_at_f.c \
|
||||
file_iwrite_f.c \
|
||||
file_iwrite_at_all_f.c \
|
||||
file_iwrite_all_f.c \
|
||||
file_iwrite_shared_f.c \
|
||||
file_open_f.c \
|
||||
file_preallocate_f.c \
|
||||
|
@ -128,12 +128,16 @@
|
||||
#define ompi_file_write_at_f pompi_file_write_at_f
|
||||
#define ompi_file_write_at_all_f pompi_file_write_at_all_f
|
||||
#define ompi_file_iread_at_f pompi_file_iread_at_f
|
||||
#define ompi_file_iwrite_at_all_f pompi_file_iwrite_at_all_f
|
||||
#define ompi_file_iread_at_all_f pompi_file_iread_at_all_f
|
||||
#define ompi_file_iwrite_at_f pompi_file_iwrite_at_f
|
||||
#define ompi_file_read_f pompi_file_read_f
|
||||
#define ompi_file_read_all_f pompi_file_read_all_f
|
||||
#define ompi_file_write_f pompi_file_write_f
|
||||
#define ompi_file_write_all_f pompi_file_write_all_f
|
||||
#define ompi_file_iread_f pompi_file_iread_f
|
||||
#define ompi_file_iwrite_all_f pompi_file_iwrite_all_f
|
||||
#define ompi_file_iread_all_f pompi_file_iread_all_f
|
||||
#define ompi_file_iwrite_f pompi_file_iwrite_f
|
||||
#define ompi_file_seek_f pompi_file_seek_f
|
||||
#define ompi_file_get_position_f pompi_file_get_position_f
|
||||
|
@ -187,12 +187,16 @@ PN2(void, MPI_File_write_at, mpi_file_write_at, MPI_FILE_WRITE_AT, (MPI_Fint *fh
|
||||
PN2(void, MPI_File_write_at_all, mpi_file_write_at_all, MPI_FILE_WRITE_AT_ALL, (MPI_Fint *fh, MPI_Offset *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr));
|
||||
PN2(void, MPI_File_iread_at, mpi_file_iread_at, MPI_FILE_IREAD_AT, (MPI_Fint *fh, MPI_Offset *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr));
|
||||
PN2(void, MPI_File_iwrite_at, mpi_file_iwrite_at, MPI_FILE_IWRITE_AT, (MPI_Fint *fh, MPI_Offset *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr));
|
||||
PN2(void, MPI_File_iread_at_all, mpi_file_iread_at_all, MPI_FILE_IREAD_AT_ALL, (MPI_Fint *fh, MPI_Offset *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr));
|
||||
PN2(void, MPI_File_iwrite_at_all, mpi_file_iwrite_at_all, MPI_FILE_IWRITE_AT_ALL, (MPI_Fint *fh, MPI_Offset *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr));
|
||||
PN2(void, MPI_File_read, mpi_file_read, MPI_FILE_READ, (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr));
|
||||
PN2(void, MPI_File_read_all, mpi_file_read_all, MPI_FILE_READ_ALL, (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr));
|
||||
PN2(void, MPI_File_write, mpi_file_write, MPI_FILE_WRITE, (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr));
|
||||
PN2(void, MPI_File_write_all, mpi_file_write_all, MPI_FILE_WRITE_ALL, (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr));
|
||||
PN2(void, MPI_File_iread, mpi_file_iread, MPI_FILE_IREAD, (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr));
|
||||
PN2(void, MPI_File_iwrite, mpi_file_iwrite, MPI_FILE_IWRITE, (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr));
|
||||
PN2(void, MPI_File_iread_all, mpi_file_iread_all, MPI_FILE_IREAD_ALL, (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr));
|
||||
PN2(void, MPI_File_iwrite_all, mpi_file_iwrite_all, MPI_FILE_IWRITE_ALL, (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr));
|
||||
PN2(void, MPI_File_seek, mpi_file_seek, MPI_FILE_SEEK, (MPI_Fint *fh, MPI_Offset *offset, MPI_Fint *whence, MPI_Fint *ierr));
|
||||
PN2(void, MPI_File_get_position, mpi_file_get_position, MPI_FILE_GET_POSITION, (MPI_Fint *fh, MPI_Offset *offset, MPI_Fint *ierr));
|
||||
PN2(void, MPI_File_get_byte_offset, mpi_file_get_byte_offset, MPI_FILE_GET_BYTE_OFFSET, (MPI_Fint *fh, MPI_Offset *offset, MPI_Offset *disp, MPI_Fint *ierr));
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user