spmd_lagbounds_exch_i22.F File Reference

#include "implicit_f.inc"
#include "spmd.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "task_c.inc"
#include "timeri_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	spmd_lagbounds_exch_i22 (bminmal_spmd, bminmal, isendto, ircvfrom, nin)

Function/Subroutine Documentation

spmd_lagbounds_exch_i22()

subroutine spmd_lagbounds_exch_i22	(		bminmal_spmd,
			bminmal,
		integer, dimension(ninter+1,*)	isendto,
		integer, dimension(ninter+1,*)	ircvfrom,
		integer	nin )

Definition at line 33 of file spmd_lagbounds_exch_i22.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE message_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
        USE spmd_comm_world_mod, ONLY : spmd_comm_world
#include      "implicit_f.inc"
C-----------------------------------------------
C   M e s s a g e   P a s s i n g
C-----------------------------------------------
#include "spmd.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com01_c.inc"
#include      "com04_c.inc"
#include      "task_c.inc"
#include      "timeri_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER ::
     .        ISENDTO(NINTER+1,*), IRCVFROM(NINTER+1,*), NIN
 
      my_real
     .        bminmal(6), bminmal_spmd(6, nspmd)
C-----------------------------------------------
C   L o c a l  V a r i a b l e s
C-----------------------------------------------
#ifdef MPI
      INTEGER MSGTYP, LOC_PROC,P, MSGOFF,
     .        STATUS(MPI_STATUS_SIZE),IERROR,REQ_SB(NSPMD),
     .        REQ_RB(NSPMD),KK,NBIRECV,IRINDEXI(NSPMD),
     .        REQ_RD(NSPMD),REQ_SD(NSPMD),REQ_SD2(NSPMD),
     .        REQ_RC(NSPMD),REQ_SC(NSPMD),
     .        ISINDEXI(NSPMD),
     .        NBX,NBY,NBZ
      my_real
     .        bminma(6,nspmd),
     .        xmaxb,ymaxb,zmaxb,xminb,yminb,zminb
      my_real ::
     .        dx, dy, dz,
     .        xmin,ymin,zmin,xmax,ymax,zmax
      LOGICAL ::
     .        TEST
      DATA msgoff/142/
 
C-----------------------------------------------
C   S o u r c e  L i n e s
C-----------------------------------------------
C
C=======================================================================
C     Exchanging each local lagrangian bounds.
C=======================================================================
      IF(nspmd == 1)RETURN      !precondition
      loc_proc = ispmd + 1
      !-------------------------------------------!
      !    Domain Bounds from i22xsave            !
      !-------------------------------------------!
      bminma(1,loc_proc) = bminmal(1)
      bminma(2,loc_proc) = bminmal(2)
      bminma(3,loc_proc) = bminmal(3)
      bminma(4,loc_proc) = bminmal(4)
      bminma(5,loc_proc) = bminmal(5)
      bminma(6,loc_proc) = bminmal(6)
      !-------------------------------------------!
      !  Local Lagrangian Domain Bounds Sending   !
      !-------------------------------------------!
      DO p = 1, nspmd
        IF(p/=loc_proc) THEN
          msgtyp = msgoff
          CALL mpi_isend(
     .      bminma(1,loc_proc),6  ,real  ,it_spmd(p),msgtyp,
     .      spmd_comm_world    ,req_sb(p),ierror)
        ENDIF
      ENDDO
      !-------------------------------------------!
      ! Remote Lagrangian Domain Bounds Receiving !
      !-------------------------------------------!
      nbirecv=0
      DO p = 1, nspmd
        IF(loc_proc/=p) THEN
          nbirecv=nbirecv+1
          irindexi(nbirecv)=p
          msgtyp = msgoff
          CALL mpi_recv(
     .      bminma(1,p)   ,6      ,real  ,it_spmd(p),msgtyp,
     .      spmd_comm_world,status,ierror)
        ENDIF
      ENDDO
      !-------------------------------------------!
      !     MPI_WAITING                           !
      !-------------------------------------------!
      DO p = 1, nspmd
        IF(p/=loc_proc) THEN
          CALL mpi_wait(req_sb(p),status,ierror)
        ENDIF
      ENDDO
      !-------------------------------------------!
      ! Returning complete bounds data
      bminmal_spmd = bminma
#endif
      RETURN