Mercurial > fem-fenics-eugenio

annotate src/is_master_node.cc @ 268:61830a4f9ab9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Improve formatting
author Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
date Thu, 14 Aug 2014 12:26:55 +0200
parents 072aee55bb75
children f4d6ae912a08
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
255
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
1 /*
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
2 Copyright (C) 2014 Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
3
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
4 This program is free software; you can redistribute it and/or modify it under
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
5 the terms of the GNU General Public License as published by the Free Software
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
6 Foundation; either version 3 of the License, or (at your option) any later
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
7 version.
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
8
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
9 This program is distributed in the hope that it will be useful, but WITHOUT
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
10 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
11 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
12 details.
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
13
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
14 You should have received a copy of the GNU General Public License along with
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
15 this program; if not, see <http://www.gnu.org/licenses/>.
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
16 */
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
17
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
18 #include <dolfin.h>
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
19 #include <octave/oct.h>
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
20 #include "dolfin_compat.h"
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
21
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
22 DEFUN_DLD (is_master_node, args, nargout,
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
23 "-*- texinfo -*-\n\
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
24 @deftypefn {Function File} {} \
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
25 is_master_process ()\n\
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
26 Return true if called on node zero.\n\
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
27 @end deftypefn")
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
28 {
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
29 octave_value retval;
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
30 int nargin = args.length ();
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
31
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
32 if (nargin > 0 || nargout > 1)
268
61830a4f9ab9 Improve formatting
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents: 255
diff changeset
33 { print_usage (); }
255
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
34 else
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
35 {
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
36 #ifdef LATEST_DOLFIN
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
37 retval = (dolfin::MPI::rank (MPI_COMM_WORLD) == 0);
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
38 #else
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
39 // This works also in 1.4.0, but it is now deprecated
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
40 retval = (dolfin::MPI::process_number () == 0);
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
41 #endif
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
42 }
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
43
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
44 return retval;
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
45 }