solid_set_Localize Subroutine

private impure subroutine solid_set_Localize(this)

Localizes markers of all solids in this set on the grid.

Type Bound

solid_set

Arguments

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

A collection of solids

Calls

proc~~solid_set_localize~~CallsGraph proc~solid_set_localize solid_set%solid_set_Localize proc~lagrangian_set_localize lagrangian_set%lagrangian_set_Localize proc~solid_set_localize->proc~lagrangian_set_localize proc~block_obj_getowningcell block_obj%block_obj_GetOwningCell proc~lagrangian_set_localize->proc~block_obj_getowningcell

Source Code

    impure subroutine solid_set_Localize(this)
      !> Localizes markers of all solids in this set on the grid.
      implicit none
      class(solid_set), intent(inout) :: this                                  !! A collection of solids
      ! Work variables
      integer :: n

      do n=1,this%count
        call this%p(n)%Localize
      end do

      return
    end subroutine solid_set_Localize