1 | include(dom.inc)
   2 | 
   3 |       SUBROUTINE slave_vectors(d_buffer,d_buffersize)
   4 | 
   5 | !       ================================================================!
   6 | !                                                                       !
   7 | !       slave_vectors.F : Fills global vectors on slave processes.      !
   8 | !                         slave processes.                              !
   9 | !                                                                       !
  10 | !       out             : Global vectors and values for slave processes !
  11 | !                                                                       !
  12 | !       author          : J. AMAYA (october 2007)                       !
  13 | !                                                                       !
  14 | !       ================================================================!
  15 | 
  16 |         USE mod_pmm
  17 |         USE mod_inout
  18 |         USE mod_slave
  19 | 
  20 |         IMPLICIT NONE
  21 | 
  22 |         INCLUDE 'pmm_constants.h'
  23 |         INCLUDE 'dom_constants.h'
  24 | 
  25 | !       IN
  26 |         DOM_INT :: d_buffersize
  27 |         DOM_REAL, DIMENSION(d_buffersize) :: d_buffer
  28 | 
  29 | !       LOCAL
  30 |         DOM_INT :: i, j, k, n, iend, ibeg
  31 | 
  32 | !       ----------------!
  33 | !       Allocate vetors !
  34 | !       ----------------!
  35 | 
  36 |         IF (ALLOCATED(s_mu))        DEALLOCATE(s_mu)
  37 |         IF (ALLOCATED(s_eta))       DEALLOCATE(s_eta)
  38 |         IF (ALLOCATED(s_ksi))       DEALLOCATE(s_ksi)
  39 |         IF (ALLOCATED(s_w))         DEALLOCATE(s_w)
  40 | 
  41 |         ALLOCATE(s_mu(is_ndir))
  42 |         ALLOCATE(s_eta(is_ndir))
  43 |         ALLOCATE(s_ksi(is_ndir))
  44 |         ALLOCATE(s_w(is_ndir))
  45 | 
  46 | !       -------------------!
  47 | !       Write real vectors !
  48 | !       -------------------!
  49 | 
  50 |         s_mu   (1:is_ndir) = d_buffer(1:is_ndir)
  51 |         s_eta  (1:is_ndir) = d_buffer(is_ndir+1:2*is_ndir)
  52 |         s_ksi  (1:is_ndir) = d_buffer(2*is_ndir+1:3*is_ndir)
  53 |         s_w    (1:is_ndir) = d_buffer(3*is_ndir+1:4*is_ndir)
  54 | 
  55 | !       print*," (",pmm_rank,") is_ndir: ", is_ndir
  56 | !       print*," (",pmm_rank,") Directions:"
  57 | !       DO i=1,is_ndir
  58 | !         print*," (",pmm_rank,")   ",i,":",s_mu(i),s_eta(i),s_ksi(i)
  59 | !       ENDDO
  60 | 
  61 |       END SUBROUTINE slave_vectors