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

Remove a few compiler warnings from the example

Просмотр исходного кода 
This commit was SVN r26303.
Этот коммит содержится в:
Jeff Squyres 2012-04-19 20:02:51 +00:00
родитель ecd7108324
Коммит 8111c5e41c
2 изменённых файлов: 22 добавлений и 12 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

2
ompi/mpiext/example/c/mpiext_example_progress.c
Просмотреть файл

@ -30,7 +30,7 @@ static const char FUNC_NAME[] = "OMPI_Progress";
/*
* Global variable from this extension
*/
extern int OMPI_Example_global = 42;
int OMPI_Example_global = 42;
/*
* Just to make the extension "interesting", we pass in an integer and

32
ompi/mpiext/example/mpif-h/mpiext_example_progress_f.c
Просмотреть файл

@ -30,8 +30,15 @@
back-end function is public so that it can be callable from the
mpi_f08_ext library. */
/* Prototype everything so that the compiler doesn't complain */
OMPI_DECLSPEC void OMPI_Progress_f(MPI_Fint *count, MPI_Fint *comm, MPI_Fint *ierr);
OMPI_DECLSPEC void OMPI_PROGRESS(MPI_Fint *count, MPI_Fint *comm, MPI_Fint *ierr);
OMPI_DECLSPEC void ompi_progress(MPI_Fint *count, MPI_Fint *comm, MPI_Fint *ierr);
OMPI_DECLSPEC void ompi_progress_(MPI_Fint *count, MPI_Fint *comm, MPI_Fint *ierr);
OMPI_DECLSPEC void ompi_progress__(MPI_Fint *count, MPI_Fint *comm, MPI_Fint *ierr);
/* Back-end function */
OMPI_DECLSPEC void OMPI_Progress_f(MPI_Fint *count, MPI_Fint *comm, MPI_Fint *ierr)
void OMPI_Progress_f(MPI_Fint *count, MPI_Fint *comm, MPI_Fint *ierr)
{
int c_err;
MPI_Comm c_comm = MPI_Comm_f2c(*comm);
@ -42,16 +49,19 @@ OMPI_DECLSPEC void OMPI_Progress_f(MPI_Fint *count, MPI_Fint *comm, MPI_Fint *ie
}
/* Front-end functions */
OMPI_DECLSPEC void OMPI_PROGRESS(MPI_Fint *count, MPI_Fint *comm, MPI_Fint *ierr) {
OMPI_Progress_f(count, comm, ierr);
}
OMPI_DECLSPEC void ompi_progress(MPI_Fint *count, MPI_Fint *comm, MPI_Fint *ierr) {
OMPI_Progress_f(count, comm, ierr);
}
OMPI_DECLSPEC void ompi_progress_(MPI_Fint *count, MPI_Fint *comm, MPI_Fint *ierr) {
OMPI_Progress_f(count, comm, ierr);
}
OMPI_DECLSPEC void ompi_progress__(MPI_Fint *count, MPI_Fint *comm, MPI_Fint *ierr) {
void OMPI_PROGRESS(MPI_Fint *count, MPI_Fint *comm, MPI_Fint *ierr) {
OMPI_Progress_f(count, comm, ierr);
}
void ompi_progress(MPI_Fint *count, MPI_Fint *comm, MPI_Fint *ierr) {
OMPI_Progress_f(count, comm, ierr);
}
void ompi_progress_(MPI_Fint *count, MPI_Fint *comm, MPI_Fint *ierr) {
OMPI_Progress_f(count, comm, ierr);
}
void ompi_progress__(MPI_Fint *count, MPI_Fint *comm, MPI_Fint *ierr) {
OMPI_Progress_f(count, comm, ierr);
}