The TELEMAC-MASCARET system  trunk
p_isum.F
Go to the documentation of this file.
1 ! ***********************
2  INTEGER FUNCTION p_isum
3 ! ***********************
4 !
5  &(mypart)
6 !
7 !***********************************************************************
8 ! PARALLEL V6P1 21/08/2010
9 !***********************************************************************
10 !
11 !brief SUM OF VALUES FROM ALL THE PROCESSORS.
12 !
13 !history RAINER JOHANNI (SGI MUNICH)
14 !+ **/10/1999
15 !+
16 !+ ADAPTED FOR MPI
17 !
18 !history J.A. JANKOWSKI (BAW KARLSRUHE)
19 !+ 28/12/1999
20 !+
21 !+ RELEASE 5.0 MODIFIED
22 !
23 !history J-M HERVOUET (LNHE)
24 !+ 10/06/2005
25 !+ V5P9
26 !+
27 !
28 !history N.DURAND (HRW), S.E.BOURBAN (HRW)
29 !+ 13/07/2010
30 !+ V6P0
31 !+ Translation of French comments within the FORTRAN sources into
32 !+ English comments
33 !
34 !history N.DURAND (HRW), S.E.BOURBAN (HRW)
35 !+ 21/08/2010
36 !+ V6P0
37 !+ Creation of DOXYGEN tags for automated documentation and
38 !+ cross-referencing of the FORTRAN sources
39 !
40 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
41 !| MYPART |-->| SEND BUFFER.
42 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
43 !
46  IMPLICIT NONE
47 !
48 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
49 !
50  INTEGER, INTENT(IN) :: MYPART
51 !
52 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
53 !
54 #if defined HAVE_MPI
55  INTEGER IER
56 !
57 !-----------------------------------------------------------------------
58  CALL mpi_allreduce(mypart,p_isum,1,mpi_integer,mpi_sum,
59  & comm,ier)
60 !
61  IF(ier.NE.0) THEN
62  WRITE(lu,*) 'P_ISUM: ERROR IN MPI_ALLREDUCE'
63  WRITE (lu,*) 'MPI ERROR ',ier
64  CALL plante(1)
65  stop
66  ENDIF
67  RETURN
68 #else
69  WRITE(lu,*) 'CALL OF P_ISUM IN ITS VOID VERSION'
70 !
71  p_isum=mypart
72 #endif
73 !
74 !-----------------------------------------------------------------------
75 !
76  END
integer, parameter mpi_integer
integer function p_isum(MYPART)
Definition: p_isum.F:7