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~setupcasefields SetUpCaseFields proc~setupcasefields->proc~eulerian_set_init proc~setupcasefields~10 SetUpCaseFields proc~setupcasefields~10->proc~eulerian_set_init proc~setupcasefields~2 SetUpCaseFields proc~setupcasefields~2->proc~eulerian_set_init proc~setupcasefields~3 SetUpCaseFields proc~setupcasefields~3->proc~eulerian_set_init proc~setupcasefields~4 SetUpCaseFields proc~setupcasefields~4->proc~eulerian_set_init proc~setupcasefields~5 SetUpCaseFields proc~setupcasefields~5->proc~eulerian_set_init proc~setupcasefields~6 SetUpCaseFields proc~setupcasefields~6->proc~eulerian_set_init proc~setupcasefields~7 SetUpCaseFields proc~setupcasefields~7->proc~eulerian_set_init proc~setupcasefields~8 SetUpCaseFields proc~setupcasefields~8->proc~eulerian_set_init proc~setupcasefields~9 SetUpCaseFields proc~setupcasefields~9->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 program~main main program~main->proc~setupcasefields program~main~10 main program~main~10->proc~setupcasefields~6 program~main~11 main program~main~11->proc~setupcasefields~7 program~main~12 main program~main~12->proc~setupcasefields~8 program~main~13 main program~main~13->proc~setupcasefields~9 program~main~14 main program~main~14->proc~setupcasefields~10 program~main~3 main program~main~3->proc~setupcasefields~2 program~main~5 main program~main~5->proc~setupcasefields~3 program~main~8 main program~main~8->proc~setupcasefields~4 program~main~9 main program~main~9->proc~setupcasefields~5 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