1 | include(dom.inc)
2 |
3 | SUBROUTINE master_sumvectors(s_Q_rtot,iproc)
4 |
5 | ! ================================================================!
6 | ! !
7 | ! master_sumvectors.F: Copy result vectors sent by slaves !
8 | ! !
9 | ! out : !
10 | ! !
11 | ! author : J. AMAYA (september 2008) !
12 | ! !
13 | ! ================================================================!
14 |
15 | USE mod_prissma
16 |
17 | IMPLICIT NONE
18 |
19 | ! IN
20 | DOM_INT :: iproc
21 | DOM_REAL,DIMENSION(3,i_dom_ncells) :: s_Q_rtot
22 |
23 | Q_rtot = Q_rtot + s_Q_rtot
24 |
25 | END SUBROUTINE master_sumvectors