eulerian_set_Init Subroutine

private impure subroutine eulerian_set_Init(this, block, parallel)

Initializes an Eulerian Set.

Type Bound

eulerian_set

Arguments

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

An Eulerian Set
type(block_obj), intent(in), target :: block

A block object
type(parallel_obj), intent(in), target :: parallel

Parallel structure to link with

Calls

proc~~eulerian_set_init~~CallsGraph proc~eulerian_set_init eulerian_set%eulerian_set_Init proc~hashtbl_obj_init hashtbl_obj%hashtbl_obj_Init proc~eulerian_set_init->proc~hashtbl_obj_init

Called by

proc~~eulerian_set_init~~CalledByGraph proc~eulerian_set_init eulerian_set%eulerian_set_Init proc~cdifs_obj_preparesolverfields cdifs_obj_PrepareSolverFields proc~cdifs_obj_preparesolverfields->proc~eulerian_set_init proc~grans_obj_preparesolverfields grans_obj_PrepareSolverFields proc~grans_obj_preparesolverfields->proc~eulerian_set_init proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolverfields proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->proc~grans_obj_preparesolverfields interface~cdifs_obj_preparesolver cdifs_obj%cdifs_obj_PrepareSolver interface~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolver interface~grans_obj_preparesolver grans_obj%grans_obj_PrepareSolver interface~grans_obj_preparesolver->proc~grans_obj_preparesolver

Source Code

    impure subroutine eulerian_set_Init(this,block,parallel)
      !> Initializes an Eulerian Set.
      implicit none
      class(eulerian_set), intent(inout) :: this                               !! An Eulerian Set
      type(block_obj),     intent(in),    &
                                  target :: block                              !! A block object
      type(parallel_obj),  intent(in),    &
                                  target :: parallel                           !! Parallel structure to link with

      ! Point to the master objects
      this%parallel => parallel
      this%block    => block

      ! Initialize hash table, with default size of 20
      call this%tbl%Initialize(EULERIAN_SET_HTBL_SIZE)

      return
    end subroutine eulerian_set_Init