collision_obj_Init Subroutine

private impure subroutine collision_obj_Init(this, parallel)

Initializes object.

Type Bound

collision_obj

Arguments

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

Collision utility
type(parallel_obj), intent(in), target :: parallel

Parallel structure to link with

Called by

proc~~collision_obj_init~~CalledByGraph proc~collision_obj_init collision_obj%collision_obj_Init proc~grans_obj_preparesolvercollision grans_obj_PrepareSolverCollision proc~grans_obj_preparesolvercollision->proc~collision_obj_init 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_Init(this,parallel)
      !> Initializes object.
      implicit none
      class(collision_obj), intent(inout) :: this                              !! Collision utility
      type(parallel_obj),   intent(in),    &
                                   target :: parallel                          !! Parallel structure to link with

      ! Link master objects
      this%parallel => parallel

      return
    end subroutine collision_obj_Init