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