Mercurial > fem-fenics-eugenio

annotate src/barrier.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
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 (barrier, 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 barrier ()\n\
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
26 Set an MPI barrier.\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 > 0)
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 dolfin::MPI::barrier (
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
37 #ifdef LATEST_DOLFIN
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
38 MPI_COMM_WORLD
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
39 #endif
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
40 );
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
41 }
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 return retval;
072aee55bb75 Import UFL in a parallel-safe fashion
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
diff changeset
44 }