1
1

* Rename comm_call_error_handler to match standard comm_call_errhandler

This commit was SVN r805.
Этот коммит содержится в:
Brian Barrett 2004-02-14 19:37:05 +00:00
родитель 063db13374
Коммит 4869543e7e
2 изменённых файлов: 3 добавлений и 3 удалений

Просмотреть файл

@ -439,7 +439,7 @@ extern "C" {
int MPI_Comm_accept(char *port_name, MPI_Info info, int root, int MPI_Comm_accept(char *port_name, MPI_Info info, int root,
MPI_Comm comm, MPI_Comm *newcomm); MPI_Comm comm, MPI_Comm *newcomm);
MPI_Fint MPI_Comm_c2f(MPI_Comm comm); MPI_Fint MPI_Comm_c2f(MPI_Comm comm);
int MPI_Comm_call_error_handler(MPI_Comm comm, int errorcode); int MPI_Comm_call_errhandler(MPI_Comm comm, int errorcode);
int MPI_Comm_compare(MPI_Comm comm1, MPI_Comm comm2, int *result); int MPI_Comm_compare(MPI_Comm comm1, MPI_Comm comm2, int *result);
int MPI_Comm_connect(char *port_name, MPI_Info info, int root, int MPI_Comm_connect(char *port_name, MPI_Info info, int root,
MPI_Comm comm, MPI_Comm *newcomm); MPI_Comm comm, MPI_Comm *newcomm);
@ -950,7 +950,7 @@ extern "C" {
int PMPI_Comm_accept(char *port_name, MPI_Info info, int root, int PMPI_Comm_accept(char *port_name, MPI_Info info, int root,
MPI_Comm comm, MPI_Comm *newcomm); MPI_Comm comm, MPI_Comm *newcomm);
MPI_Fint PMPI_Comm_c2f(MPI_Comm comm); MPI_Fint PMPI_Comm_c2f(MPI_Comm comm);
int PMPI_Comm_call_error_handler(MPI_Comm comm, int errorcode); int PMPI_Comm_call_errhandler(MPI_Comm comm, int errorcode);
int PMPI_Comm_compare(MPI_Comm comm1, MPI_Comm comm2, int *result); int PMPI_Comm_compare(MPI_Comm comm1, MPI_Comm comm2, int *result);
int PMPI_Comm_connect(char *port_name, MPI_Info info, int root, int PMPI_Comm_connect(char *port_name, MPI_Info info, int root,
MPI_Comm comm, MPI_Comm *newcomm); MPI_Comm comm, MPI_Comm *newcomm);

Просмотреть файл

@ -12,6 +12,6 @@
#endif #endif
int MPI_Comm_call_error_handler(MPI_Comm comm, int errorcode) { int MPI_Comm_call_errhandler(MPI_Comm comm, int errorcode) {
return MPI_SUCCESS; return MPI_SUCCESS;
} }