IO: fix for 'file' help page
[scilab.git] / scilab / modules / others_tools / src / c / initMPI.c
1 /*
2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3  * Copyright (C) 2013 - S/E - Sylvestre Ledru
4  *
5  * This file must be used under the terms of the CeCILL.
6  * This source file is licensed as described in the file COPYING, which
7  * you should have received as part of this distribution.  The terms
8  * are also available at
9  * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
10  *
11  */
12
13 #include <stdio.h>
14 #include <mpi.h>                        // for MPI_Error_string, MPI_Init, etc
15 #include <stddef.h>                     // for NULL
16 #include "localization.h"               // for _
17
18 MPI_Errhandler errhdl;
19
20 void MPIErrHandler(MPI_Comm * comm, int *errorcode, ...)
21 {
22     char buffer[4096];
23     int resultlen;
24
25     MPI_Error_string(*errorcode, buffer, &resultlen);
26     buffer[resultlen] = 0;
27     fprintf(stderr, _("MPI error: %s\n"), buffer);
28 }
29
30
31 int initScilabMPI()
32 {
33     int flag;
34     MPI_Initialized(&flag);
35     if (!flag)
36     {
37         /* MPI Not yet initialized */
38         MPI_Init(NULL, NULL);
39     }
40     return 0;
41 }