ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

File bindings

Просмотр исходного кода 
This commit was SVN r2689.
Этот коммит содержится в:
Vishal Sahay 2004-09-15 20:43:28 +00:00
родитель 52a3a9b62b
Коммит 67bf0036b4
15 изменённых файлов: 141 добавлений и 23 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

6
src/mpi/f77/file_delete_f.c
Просмотреть файл

@ -48,5 +48,9 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_DELETE,
void mpi_file_delete_f(char *filename, MPI_Fint *info, MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_Info c_info;
c_info = MPI_Info_f2c(*info);
*ierr = OMPI_INT_2_FINT(MPI_File_delete(filename, c_info));
}

10
src/mpi/f77/file_get_amode_f.c
Просмотреть файл

@ -48,5 +48,13 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_AMODE,
void mpi_file_get_amode_f(MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_File c_fh;
OMPI_SINGLE_NAME_DECL(amode);
c_fh = MPI_File_f2c(*fh);
*ierr = OMPI_INT_2_FINT(MPI_File_get_amode(c_fh,
OMPI_SINGLE_NAME_CONVERT(amode)
));
OMPI_SINGLE_INT_2_FINT(amode);
}

9
src/mpi/f77/file_get_atomicity_f.c
Просмотреть файл

@ -48,5 +48,12 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_ATOMICITY,
void mpi_file_get_atomicity_f(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_File c_fh;
OMPI_SINGLE_NAME_DECL(flag);
c_fh = MPI_File_f2c(*fh);
*ierr = OMPI_INT_2_FINT(MPI_File_get_atomicity(c_fh,
OMPI_SINGLE_NAME_CONVERT(flag)));
OMPI_SINGLE_INT_2_FINT(flag);
}

14
src/mpi/f77/file_get_byte_offset_f.c
Просмотреть файл

@ -46,7 +46,17 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_BYTE_OFFSET,
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_get_byte_offset_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *disp, MPI_Fint *ierr)
void mpi_file_get_byte_offset_f(MPI_Fint *fh, MPI_Fint *offset,
MPI_Fint *disp, MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_File c_fh;
MPI_Offset c_disp;
c_fh = MPI_File_f2c(*fh);
*ierr = OMPI_INT_2_FINT(MPI_File_get_byte_offset(c_fh,
(MPI_Offset) *offset,
&c_disp));
*disp = (MPI_Fint) c_disp;
}

11
src/mpi/f77/file_get_errhandler_f.c
Просмотреть файл

@ -46,7 +46,14 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_ERRHANDLER,
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_get_errhandler_f(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr)
void mpi_file_get_errhandler_f(MPI_Fint *fh, MPI_Fint *errhandler, MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_File c_fh;
MPI_Errhandler c_errhandler;
c_fh = MPI_File_f2c(*fh);
*ierr = OMPI_INT_2_FINT(MPI_File_get_errhandler(c_fh, &c_errhandler));
*errhandler = MPI_Errhandler_c2f(c_errhandler);
}

7
src/mpi/f77/file_get_group_f.c
Просмотреть файл

@ -48,5 +48,10 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_GROUP,
void mpi_file_get_group_f(MPI_Fint *fh, MPI_Fint *group, MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_File c_fh = MPI_File_f2c(*fh);
MPI_Group c_grp;
*ierr = OMPI_INT_2_FINT(MPI_File_get_group(c_fh, &c_grp));
*group = MPI_Group_c2f(c_grp);
}

7
src/mpi/f77/file_get_info_f.c
Просмотреть файл

@ -48,5 +48,10 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_INFO,
void mpi_file_get_info_f(MPI_Fint *fh, MPI_Fint *info_used, MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_File c_fh = MPI_File_f2c(*fh);
MPI_Info c_info;
*ierr = OMPI_INT_2_FINT(MPI_File_get_info(c_fh, &c_info));
*info_used = MPI_Info_c2f(c_info);
}

7
src/mpi/f77/file_get_position_f.c
Просмотреть файл

@ -48,5 +48,10 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_POSITION,
void mpi_file_get_position_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_File c_fh = MPI_File_f2c(*fh);
MPI_Offset c_offset;
*ierr = OMPI_INT_2_FINT(MPI_File_get_position(c_fh,
&c_offset));
*offset = (MPI_Fint) c_offset;
}

10
src/mpi/f77/file_get_position_shared_f.c
Просмотреть файл

@ -46,7 +46,13 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_POSITION_SHARED,
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_get_position_shared_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr)
void mpi_file_get_position_shared_f(MPI_Fint *fh, MPI_Fint *offset,
MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_File c_fh = MPI_File_f2c(*fh);
MPI_Offset c_offset;
*ierr = OMPI_INT_2_FINT(MPI_File_get_position_shared(c_fh,
&c_offset));
*offset = (MPI_Fint) c_offset;
}

7
src/mpi/f77/file_get_size_f.c
Просмотреть файл

@ -48,5 +48,10 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_SIZE,
void mpi_file_get_size_f(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_File c_fh = MPI_File_f2c(*fh);
MPI_Offset c_size;
*ierr = OMPI_INT_2_FINT(MPI_File_get_size(c_fh,
&c_size));
*size = (MPI_Fint) c_size;
}

13
src/mpi/f77/file_get_type_extent_f.c
Просмотреть файл

@ -46,7 +46,16 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_TYPE_EXTENT,
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_get_type_extent_f(MPI_Fint *fh, MPI_Fint *datatype, MPI_Fint *extent, MPI_Fint *ierr)
void mpi_file_get_type_extent_f(MPI_Fint *fh, MPI_Fint *datatype,
MPI_Fint *extent, MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_File c_fh = MPI_File_f2c(*fh);
MPI_Aint c_extent;
MPI_Datatype c_type;
c_type = MPI_Type_f2c(*datatype);
*ierr = OMPI_INT_2_FINT(MPI_File_get_type_extent(c_fh, c_type, &c_extent));
*extent = (MPI_Fint) c_extent;
}

15
src/mpi/f77/file_get_view_f.c
Просмотреть файл

@ -46,7 +46,18 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_VIEW,
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_get_view_f(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *ierr)
void mpi_file_get_view_f(MPI_Fint *fh, MPI_Fint *disp,
MPI_Fint *etype, MPI_Fint *filetype,
char *datarep, MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_File c_fh = MPI_File_f2c(*fh);
MPI_Datatype c_etype, c_filetype;
MPI_Offset c_disp;
*ierr = OMPI_INT_2_FINT(MPI_File_get_view(c_fh, &c_disp, &c_etype,
&c_filetype, datarep));
*disp = (MPI_Fint) c_disp;
*etype = MPI_Type_c2f(c_etype);
*filetype = MPI_Type_c2f(c_filetype);
}

16
src/mpi/f77/file_iread_at_f.c
Просмотреть файл

@ -46,7 +46,19 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IREAD_AT,
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_iread_at_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr)
void mpi_file_iread_at_f(MPI_Fint *fh, MPI_Fint *offset,
char *buf, MPI_Fint *count,
MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_File c_fh = MPI_File_f2c(*fh);
MPI_Datatype c_type = MPI_Type_f2c(*datatype);
MPI_Request c_request;
*ierr = OMPI_INT_2_FINT(MPI_File_iread_at(c_fh, (MPI_Offset) *offset,
buf, OMPI_FINT_2_INT(*count),
c_type,
&c_request));
if (MPI_SUCCESS == *ierr) {
*request = MPI_Request_c2f(c_request);
}
}

15
src/mpi/f77/file_iread_f.c
Просмотреть файл

@ -46,7 +46,18 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IREAD,
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_iread_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr)
void mpi_file_iread_f(MPI_Fint *fh, char *buf, MPI_Fint *count,
MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_File c_fh = MPI_File_f2c(*fh);
MPI_Datatype c_type = MPI_Type_f2c(*datatype);
MPI_Request c_request;
*ierr = OMPI_INT_2_FINT(MPI_File_iread(c_fh, buf,
OMPI_FINT_2_INT(*count),
c_type, &c_request));
if (MPI_SUCCESS == *ierr) {
*request = MPI_Request_c2f(c_request);
}
}

17
src/mpi/f77/file_iread_shared_f.c
Просмотреть файл

@ -46,7 +46,20 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IREAD_SHARED,
#include "mpi/f77/profile/defines.h"
#endif
void mpi_file_iread_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr)
void mpi_file_iread_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count,
MPI_Fint *datatype, MPI_Fint *request,
MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_File c_fh = MPI_File_f2c(*fh);
MPI_Datatype c_type = MPI_Type_f2c(*datatype);
MPI_Request c_request;
*ierr = OMPI_INT_2_FINT(MPI_File_iread_shared(c_fh,
buf,
OMPI_FINT_2_INT(*count),
c_type,
&c_request));
if (MPI_SUCCESS == *ierr) {
*request = MPI_Request_c2f(c_request);
}
}