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

The last few f77 bindings

Просмотр исходного кода 
This commit was SVN r2771.
Этот коммит содержится в:
Vishal Sahay 2004-09-20 06:28:41 +00:00
родитель b86c488a36
Коммит d843dddf18
10 изменённых файлов: 76 добавлений и 20 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

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

@ -48,5 +48,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ABORT,
void mpi_abort_f(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_Comm c_comm = MPI_Comm_f2c(*comm);
*ierr = OMPI_INT_2_FINT(MPI_Abort(c_comm, OMPI_FINT_2_INT(*errorcode)));
}

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

@ -46,7 +46,22 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ACCUMULATE,
#include "mpi/f77/profile/defines.h"
#endif
void mpi_accumulate_f(char *origin_addr, MPI_Fint *origin_count, MPI_Fint *origin_datatype, MPI_Fint *target_rank, MPI_Fint *target_disp, MPI_Fint *target_count, MPI_Fint *target_datatype, MPI_Fint *op, MPI_Fint *win, MPI_Fint *ierr)
void mpi_accumulate_f(char *origin_addr, MPI_Fint *origin_count,
MPI_Fint *origin_datatype, MPI_Fint *target_rank,
MPI_Fint *target_disp, MPI_Fint *target_count,
MPI_Fint *target_datatype, MPI_Fint *op, MPI_Fint *win,
MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_Datatype c_origin_datatype = MPI_Type_f2c(*origin_datatype);
MPI_Datatype c_target_datatype = MPI_Type_f2c(*target_datatype);
MPI_Win c_win = MPI_Win_f2c(*win);
MPI_Op c_op = MPI_Op_f2c(*op);
*ierr = OMPI_INT_2_FINT(MPI_Accumulate(origin_addr,
OMPI_FINT_2_INT(*origin_count),
c_origin_datatype,
OMPI_FINT_2_INT(*target_rank),
(MPI_Aint) *target_disp,
OMPI_FINT_2_INT(*target_count),
c_target_datatype, c_op, c_win));
}

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

@ -48,5 +48,10 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ADD_ERROR_CLASS,
void mpi_add_error_class_f(MPI_Fint *errorclass, MPI_Fint *ierr)
{
/* This function not yet implemented */
OMPI_SINGLE_NAME_DECL(errorclass);
*ierr = OMPI_INT_2_FINT(MPI_Add_error_class(OMPI_SINGLE_NAME_CONVERT(errorclass)
));
OMPI_SINGLE_INT_2_FINT(errorclass);
}

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

@ -48,5 +48,12 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ADD_ERROR_CODE,
void mpi_add_error_code_f(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr)
{
/* This function not yet implemented */
OMPI_SINGLE_NAME_DECL(errorcode);
*ierr = OMPI_INT_2_FINT(MPI_Add_error_code(OMPI_FINT_2_INT(*errorclass),
OMPI_SINGLE_NAME_CONVERT(errorcode)
));
OMPI_SINGLE_INT_2_FINT(errorcode);
}

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

@ -8,6 +8,10 @@
#include "mpi.h"
#include "mpi/f77/bindings.h"
#include "mpi/f77/constants.h"
#include "errhandler/errhandler.h"
#include "communicator/communicator.h"
#include "mpi/f77/strings.h"
#if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILE_LAYER
#pragma weak PMPI_ADD_ERROR_STRING = mpi_add_error_string_f
@ -46,7 +50,20 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ADD_ERROR_STRING,
#include "mpi/f77/profile/defines.h"
#endif
void mpi_add_error_string_f(MPI_Fint *errorcode, char *string, MPI_Fint *ierr)
void mpi_add_error_string_f(MPI_Fint *errorcode, char *string,
MPI_Fint *ierr, int len)
{
/* This function not yet implemented */
char *c_string;
int c_err;
if (len > MPI_MAX_ERROR_STRING) {
c_err = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_ARG,
"MPI_ADD_ERROR_STRING");
*ierr = OMPI_INT_2_FINT(c_err);
return;
}
ompi_fortran_string_f2c(string, len, &c_string);
*ierr = OMPI_INT_2_FINT(MPI_Add_error_string(OMPI_FINT_2_INT(*errorcode),
c_string));
}

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

@ -48,5 +48,9 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ADDRESS,
void mpi_address_f(char *location, MPI_Fint *address, MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_Aint addr;
*ierr = OMPI_INT_2_FINT(MPI_Address(location, &addr));
*address = (MPI_Fint) addr;
}

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

@ -48,5 +48,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLOC_MEM,
void mpi_alloc_mem_f(MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_Info c_info = MPI_Info_f2c(*info);
*ierr = OMPI_INT_2_FINT(MPI_Alloc_mem((MPI_Aint) *size, c_info, baseptr));
}

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

@ -48,5 +48,9 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_GET_PARENT,
void mpi_comm_get_parent_f(MPI_Fint *parent, MPI_Fint *ierr)
{
/* This function not yet implemented */
MPI_Comm c_parent;
*ierr = OMPI_INT_2_FINT(MPI_Comm_get_parent(&c_parent));
*parent = MPI_Comm_c2f(c_parent);
}

10
src/mpi/f77/profile/prototypes_pmpi.h
Просмотреть файл

@ -21,7 +21,7 @@
void pmpi_accumulate_f(char *origin_addr, MPI_Fint *origin_count, MPI_Fint *origin_datatype, MPI_Fint *target_rank, MPI_Fint *target_disp, MPI_Fint *target_count, MPI_Fint *target_datatype, MPI_Fint *op, MPI_Fint *win, MPI_Fint *ierr);
void pmpi_add_error_class_f(MPI_Fint *errorclass, MPI_Fint *ierr);
void pmpi_add_error_code_f(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr);
void pmpi_add_error_string_f(MPI_Fint *errorcode, char *string, MPI_Fint *ierr);
void pmpi_add_error_string_f(MPI_Fint *errorcode, char *string, MPI_Fint *ierr, int l);
void pmpi_address_f(char *location, MPI_Fint *address, MPI_Fint *ierr);
void pmpi_allgather_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);
void pmpi_allgatherv_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);
@ -313,7 +313,7 @@ void pmpi_abort(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
void pmpi_accumulate(char *origin_addr, MPI_Fint *origin_count, MPI_Fint *origin_datatype, MPI_Fint *target_rank, MPI_Fint *target_disp, MPI_Fint *target_count, MPI_Fint *target_datatype, MPI_Fint *op, MPI_Fint *win, MPI_Fint *ierr);
void pmpi_add_error_class(MPI_Fint *errorclass, MPI_Fint *ierr);
void pmpi_add_error_code(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr);
void pmpi_add_error_string(MPI_Fint *errorcode, char *string, MPI_Fint *ierr);
void pmpi_add_error_string(MPI_Fint *errorcode, char *string, MPI_Fint *ierr, int l);
void pmpi_address(char *location, MPI_Fint *address, MPI_Fint *ierr);
void pmpi_allgather(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);
void pmpi_allgatherv(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);
@ -600,7 +600,7 @@ void pmpi_abort_(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
void pmpi_accumulate_(char *origin_addr, MPI_Fint *origin_count, MPI_Fint *origin_datatype, MPI_Fint *target_rank, MPI_Fint *target_disp, MPI_Fint *target_count, MPI_Fint *target_datatype, MPI_Fint *op, MPI_Fint *win, MPI_Fint *ierr);
void pmpi_add_error_class_(MPI_Fint *errorclass, MPI_Fint *ierr);
void pmpi_add_error_code_(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr);
void pmpi_add_error_string_(MPI_Fint *errorcode, char *string, MPI_Fint *ierr);
void pmpi_add_error_string_(MPI_Fint *errorcode, char *string, MPI_Fint *ierr, int l);
void pmpi_address_(char *location, MPI_Fint *address, MPI_Fint *ierr);
void pmpi_allgather_(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);
void pmpi_allgatherv_(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);
@ -887,7 +887,7 @@ void pmpi_abort__(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
void pmpi_accumulate__(char *origin_addr, MPI_Fint *origin_count, MPI_Fint *origin_datatype, MPI_Fint *target_rank, MPI_Fint *target_disp, MPI_Fint *target_count, MPI_Fint *target_datatype, MPI_Fint *op, MPI_Fint *win, MPI_Fint *ierr);
void pmpi_add_error_class__(MPI_Fint *errorclass, MPI_Fint *ierr);
void pmpi_add_error_code__(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr);
void pmpi_add_error_string__(MPI_Fint *errorcode, char *string, MPI_Fint *ierr);
void pmpi_add_error_string__(MPI_Fint *errorcode, char *string, MPI_Fint *ierr, int l);
void pmpi_address__(char *location, MPI_Fint *address, MPI_Fint *ierr);
void pmpi_allgather__(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);
void pmpi_allgatherv__(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);
@ -1174,7 +1174,7 @@ void PMPI_ABORT(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
void PMPI_ACCUMULATE(char *origin_addr, MPI_Fint *origin_count, MPI_Fint *origin_datatype, MPI_Fint *target_rank, MPI_Fint *target_disp, MPI_Fint *target_count, MPI_Fint *target_datatype, MPI_Fint *op, MPI_Fint *win, MPI_Fint *ierr);
void PMPI_ADD_ERROR_CLASS(MPI_Fint *errorclass, MPI_Fint *ierr);
void PMPI_ADD_ERROR_CODE(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr);
void PMPI_ADD_ERROR_STRING(MPI_Fint *errorcode, char *string, MPI_Fint *ierr);
void PMPI_ADD_ERROR_STRING(MPI_Fint *errorcode, char *string, MPI_Fint *ierr, int l);
void PMPI_ADDRESS(char *location, MPI_Fint *address, MPI_Fint *ierr);
void PMPI_ALLGATHER(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);
void PMPI_ALLGATHERV(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);

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

@ -25,7 +25,7 @@ void mpi_abort_f(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
void mpi_accumulate_f(char *origin_addr, MPI_Fint *origin_count, MPI_Fint *origin_datatype, MPI_Fint *target_rank, MPI_Fint *target_disp, MPI_Fint *target_count, MPI_Fint *target_datatype, MPI_Fint *op, MPI_Fint *win, MPI_Fint *ierr);
void mpi_add_error_class_f(MPI_Fint *errorclass, MPI_Fint *ierr);
void mpi_add_error_code_f(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr);
void mpi_add_error_string_f(MPI_Fint *errorcode, char *string, MPI_Fint *ierr);
void mpi_add_error_string_f(MPI_Fint *errorcode, char *string, MPI_Fint *ierr, int l);
void mpi_address_f(char *location, MPI_Fint *address, MPI_Fint *ierr);
void mpi_allgather_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);
void mpi_allgatherv_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);
@ -334,7 +334,7 @@ void mpi_abort(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
void mpi_accumulate(char *origin_addr, MPI_Fint *origin_count, MPI_Fint *origin_datatype, MPI_Fint *target_rank, MPI_Fint *target_disp, MPI_Fint *target_count, MPI_Fint *target_datatype, MPI_Fint *op, MPI_Fint *win, MPI_Fint *ierr);
void mpi_add_error_class(MPI_Fint *errorclass, MPI_Fint *ierr);
void mpi_add_error_code(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr);
void mpi_add_error_string(MPI_Fint *errorcode, char *string, MPI_Fint *ierr);
void mpi_add_error_string(MPI_Fint *errorcode, char *string, MPI_Fint *ierr, int l);
void mpi_address(char *location, MPI_Fint *address, MPI_Fint *ierr);
void mpi_allgather(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);
void mpi_allgatherv(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);
@ -635,7 +635,7 @@ void mpi_abort_(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
void mpi_accumulate_(char *origin_addr, MPI_Fint *origin_count, MPI_Fint *origin_datatype, MPI_Fint *target_rank, MPI_Fint *target_disp, MPI_Fint *target_count, MPI_Fint *target_datatype, MPI_Fint *op, MPI_Fint *win, MPI_Fint *ierr);
void mpi_add_error_class_(MPI_Fint *errorclass, MPI_Fint *ierr);
void mpi_add_error_code_(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr);
void mpi_add_error_string_(MPI_Fint *errorcode, char *string, MPI_Fint *ierr);
void mpi_add_error_string_(MPI_Fint *errorcode, char *string, MPI_Fint *ierr, int l);
void mpi_address_(char *location, MPI_Fint *address, MPI_Fint *ierr);
void mpi_allgather_(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);
void mpi_allgatherv_(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);
@ -936,7 +936,7 @@ void mpi_abort__(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
void mpi_accumulate__(char *origin_addr, MPI_Fint *origin_count, MPI_Fint *origin_datatype, MPI_Fint *target_rank, MPI_Fint *target_disp, MPI_Fint *target_count, MPI_Fint *target_datatype, MPI_Fint *op, MPI_Fint *win, MPI_Fint *ierr);
void mpi_add_error_class__(MPI_Fint *errorclass, MPI_Fint *ierr);
void mpi_add_error_code__(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr);
void mpi_add_error_string__(MPI_Fint *errorcode, char *string, MPI_Fint *ierr);
void mpi_add_error_string__(MPI_Fint *errorcode, char *string, MPI_Fint *ierr, int l);
void mpi_address__(char *location, MPI_Fint *address, MPI_Fint *ierr);
void mpi_allgather__(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);
void mpi_allgatherv__(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);
@ -1237,7 +1237,7 @@ void MPI_ABORT(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr);
void MPI_ACCUMULATE(char *origin_addr, MPI_Fint *origin_count, MPI_Fint *origin_datatype, MPI_Fint *target_rank, MPI_Fint *target_disp, MPI_Fint *target_count, MPI_Fint *target_datatype, MPI_Fint *op, MPI_Fint *win, MPI_Fint *ierr);
void MPI_ADD_ERROR_CLASS(MPI_Fint *errorclass, MPI_Fint *ierr);
void MPI_ADD_ERROR_CODE(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr);
void MPI_ADD_ERROR_STRING(MPI_Fint *errorcode, char *string, MPI_Fint *ierr);
void MPI_ADD_ERROR_STRING(MPI_Fint *errorcode, char *string, MPI_Fint *ierr, int l);
void MPI_ADDRESS(char *location, MPI_Fint *address, MPI_Fint *ierr);
void MPI_ALLGATHER(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);
void MPI_ALLGATHERV(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr);