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

Ensure that we invoke fortran errorhandlers with a function prototype

Просмотр исходного кода 
that uses MPI_Fint's, and that we convert the C int's to MPI_Fint's
before invocation.

This commit was SVN r5029.
Этот коммит содержится в:
Jeff Squyres 2005-03-25 20:25:28 +00:00
родитель b5082f09c2
Коммит df8c736993
2 изменённых файлов: 10 добавлений и 8 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

3
src/errhandler/errhandler.h
Просмотреть файл

@ -43,7 +43,8 @@ enum {
/**
* Typedef for all fortran errhandler functions
*/
typedef void (ompi_errhandler_fortran_handler_fn_t)(int *, int *, ...);
typedef void (ompi_errhandler_fortran_handler_fn_t)(MPI_Fint *,
MPI_Fint *, ...);
/**
* Typedef for generic errhandler function

15
src/errhandler/errhandler_invoke.c
Просмотреть файл

@ -20,12 +20,13 @@
#include "win/win.h"
#include "file/file.h"
#include "errhandler/errhandler.h"
#include "mpi/f77/fint_2_int.h"
int ompi_errhandler_invoke(ompi_errhandler_t *errhandler, void *mpi_object,
int object_type, int err_code, const char *message)
{
int fortran_handle;
MPI_Fint fortran_handle, fortran_err_code = OMPI_INT_2_FINT(err_code);
ompi_communicator_t *comm;
#if OMPI_WANT_MPI2_ONE_SIDED
ompi_win_t *win;
@ -44,8 +45,8 @@ int ompi_errhandler_invoke(ompi_errhandler_t *errhandler, void *mpi_object,
case OMPI_ERRHANDLER_TYPE_COMM:
comm = (ompi_communicator_t *) mpi_object;
if (errhandler->eh_fortran_function) {
fortran_handle = comm->c_f_to_c_index;
errhandler->eh_fort_fn(&fortran_handle, &err_code);
fortran_handle = OMPI_INT_2_FINT(comm->c_f_to_c_index);
errhandler->eh_fort_fn(&fortran_handle, &fortran_err_code);
} else {
errhandler->eh_comm_fn(&comm, &err_code, message, NULL);
}
@ -55,8 +56,8 @@ int ompi_errhandler_invoke(ompi_errhandler_t *errhandler, void *mpi_object,
case OMPI_ERRHANDLER_TYPE_WIN:
win = (ompi_win_t *) mpi_object;
if (errhandler->eh_fortran_function) {
fortran_handle = win->w_f_to_c_index;
errhandler->eh_fort_fn(&fortran_handle, &err_code);
fortran_handle = OMPI_INT_2_FINT(win->w_f_to_c_index);
errhandler->eh_fort_fn(&fortran_handle, &fortran_err_code);
} else {
errhandler->eh_win_fn(&win, &err_code, message, NULL);
}
@ -66,8 +67,8 @@ int ompi_errhandler_invoke(ompi_errhandler_t *errhandler, void *mpi_object,
case OMPI_ERRHANDLER_TYPE_FILE:
file = (ompi_file_t *) mpi_object;
if (errhandler->eh_fortran_function) {
fortran_handle = file->f_f_to_c_index;
errhandler->eh_fort_fn(&fortran_handle, &err_code);
fortran_handle = OMPI_INT_2_FINT(file->f_f_to_c_index);
errhandler->eh_fort_fn(&fortran_handle, &fortran_err_code);
} else {
errhandler->eh_file_fn(&file, &err_code, message, NULL);
}