collision_obj_AddPointParticles Subroutine

private impure subroutine collision_obj_AddPointParticles(this, PP)

Adds Point Particles to list of collisional objects.

Type Bound

collision_obj

Arguments

Type IntentOptional Attributes Name
class(collision_obj), intent(inout) :: this

Collision utility
type(particle_set), intent(in), target :: PP

Point particles

Called by

proc~~collision_obj_addpointparticles~~CalledByGraph proc~collision_obj_addpointparticles collision_obj%collision_obj_AddPointParticles none~add~4 collision_obj%Add none~add~4->proc~collision_obj_addpointparticles proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->none~add~4 proc~grans_obj_preparesolvercollision grans_obj_PrepareSolverCollision proc~grans_obj_preparesolvercollision->none~add~4 interface~cdifs_obj_preparesolver cdifs_obj%cdifs_obj_PrepareSolver interface~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolver proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->proc~grans_obj_preparesolvercollision interface~grans_obj_preparesolver grans_obj%grans_obj_PrepareSolver interface~grans_obj_preparesolver->proc~grans_obj_preparesolver

Source Code

    impure subroutine collision_obj_AddPointParticles(this,PP)
      !> Adds Point Particles to list of collisional objects.
      implicit none
      class(collision_obj), intent(inout) :: this                              !! Collision utility
      type(particle_set),   intent(in),    &
                                   target :: PP                                !! Point particles

      if (.not.associated(this%PP)) then
        this%PP => PP
      else
        call this%parallel%Stop("Collision object already contains an PP object")
      end if

      return
    end subroutine collision_obj_AddPointParticles