rmvs_coarray_coclone_tp Subroutine

public subroutine rmvs_coarray_coclone_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_coclone_tp~~CallsGraph proc~rmvs_coarray_coclone_tp rmvs_coarray_coclone_tp interface~coclone~4 coclone proc~rmvs_coarray_coclone_tp->interface~coclone~4

Called by

proc~~rmvs_coarray_coclone_tp~~CalledByGraph proc~rmvs_coarray_coclone_tp rmvs_coarray_coclone_tp interface~coclone~2 coclone interface~coclone~2->proc~rmvs_coarray_coclone_tp

Source Code

   subroutine rmvs_coarray_coclone_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 coclone(tp%lperi)
      call coclone(tp%plperP) 
      call coclone(tp%plencP)
      call co_broadcast(tp%index,1)
      call co_broadcast(tp%ipleP,1)
      call co_broadcast(tp%lplanetocentric,1)

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

      return
   end subroutine rmvs_coarray_coclone_tp