1 //-----------------------------------------------------------------------bl-
2 //--------------------------------------------------------------------------
3 //
4 // QUESO - a library to support the Quantification of Uncertainty
5 // for Estimation, Simulation and Optimization
6 //
7 // Copyright (C) 2008-2017 The PECOS Development Team
8 //
9 // This library is free software; you can redistribute it and/or
10 // modify it under the terms of the Version 2.1 GNU Lesser General
11 // Public License as published by the Free Software Foundation.
12 //
13 // This library is distributed in the hope that it will be useful,
14 // but WITHOUT ANY WARRANTY; without even the implied warranty of
15 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 // Lesser General Public License for more details.
17 //
18 // You should have received a copy of the GNU Lesser General Public
19 // License along with this library; if not, write to the Free Software
20 // Foundation, Inc. 51 Franklin Street, Fifth Floor,
21 // Boston, MA 02110-1301 USA
22 //
23 //-----------------------------------------------------------------------el-
24
25 #include <queso/Defines.h>
26
27 #ifdef QUESO_HAS_MPI
28 #include <mpi.h>
29 #endif
30
31 namespace QUESO {
32
MyWorldfullRank()33 int MyWorldfullRank() {
34 int result = 0;
35 #ifdef QUESO_HAS_MPI
36 int iRC;
37 iRC = MPI_Comm_rank(MPI_COMM_WORLD,&result);
38 if (iRC) {}; // just to remove compiler warning
39 #endif
40 return result;
41 }
42
43 } // End namespace QUESO
44