rmvs_coarray_cocollect_tp Subroutine

public subroutine rmvs_coarray_cocollect_tp(tp)

Broadcasts the image 1 object to all other images in a coarray

Arguments

Type IntentOptional Attributes Name
type(rmvs_tp), intent(inout), codimension[*] :: tp

RMVS pl object

Calls

proc~~rmvs_coarray_cocollect_tp~~CallsGraph proc~rmvs_coarray_cocollect_tp rmvs_coarray_cocollect_tp interface~cocollect~4 cocollect proc~rmvs_coarray_cocollect_tp->interface~cocollect~4

Called by

proc~~rmvs_coarray_cocollect_tp~~CalledByGraph proc~rmvs_coarray_cocollect_tp rmvs_coarray_cocollect_tp interface~cocollect~2 cocollect interface~cocollect~2->proc~rmvs_coarray_cocollect_tp

Source Code

   subroutine rmvs_coarray_cocollect_tp(tp)
      !! author: David A. Minton
      !!
      !! Broadcasts the image 1 object to all other images in a coarray 
      implicit none
      ! Arguments
      type(rmvs_tp),intent(inout),codimension[*]  :: tp  !! RMVS pl object

      call cocollect(tp%lperi)
      call cocollect(tp%plperP) 
      call cocollect(tp%plencP)

      call co_sum(tp%npltp,1)
      call cocollect(tp%nplenc)
      call co_sum(tp%nbody,1)
      call cocollect(tp%id)
      call cocollect(tp%info)
      call cocollect(tp%lmask)
      call cocollect(tp%status)
      call cocollect(tp%ldiscard)
      call cocollect(tp%lcollision)
      call cocollect(tp%lencounter)
      call cocollect(tp%mu)
      call cocollect(tp%rh)
      call cocollect(tp%vh)
      call cocollect(tp%rb)
      call cocollect(tp%vb)
      call cocollect(tp%ah)
      call cocollect(tp%aobl)
      call cocollect(tp%agr)
      call cocollect(tp%atide)
      call cocollect(tp%ir3h)
      call cocollect(tp%isperi)
      call cocollect(tp%peri)
      call cocollect(tp%atp)
      call cocollect(tp%a)
      call cocollect(tp%e)
      call cocollect(tp%inc)
      call cocollect(tp%capom)
      call cocollect(tp%omega)
      call cocollect(tp%capm)

      return
   end subroutine rmvs_coarray_cocollect_tp