monitor_set_Init Subroutine

private impure subroutine monitor_set_Init(this, parallel)

Initializes a set of monitors.

Type Bound

monitor_set

Arguments

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

A set of monitor objects
type(parallel_obj), intent(in), target :: parallel

Parallel structure to link with

Calls

proc~~monitor_set_init~~CallsGraph proc~monitor_set_init monitor_set%monitor_set_Init proc~hashtbl_obj_init hashtbl_obj%hashtbl_obj_Init proc~monitor_set_init->proc~hashtbl_obj_init

Called by

proc~~monitor_set_init~~CalledByGraph proc~monitor_set_init monitor_set%monitor_set_Init proc~cdifs_obj_preparesolvermonitor cdifs_obj_PrepareSolverMonitor proc~cdifs_obj_preparesolvermonitor->proc~monitor_set_init proc~grans_obj_preparesolvermonitor grans_obj_PrepareSolverMonitor proc~grans_obj_preparesolvermonitor->proc~monitor_set_init proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolvermonitor proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->proc~grans_obj_preparesolvermonitor 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 monitor_set_Init(this,parallel)
      !> Initializes a set of monitors.
      implicit none
      class(monitor_set), intent(inout) :: this                                !! A set of monitor objects
      type(parallel_obj), intent(in),    &
                                 target :: parallel                            !! Parallel structure to link with

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

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

      return
    end subroutine monitor_set_Init