initialize_global_memory_profiler Subroutine

public subroutine initialize_global_memory_profiler(name)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in), optional :: name

Calls

proc~~initialize_global_memory_profiler~~CallsGraph proc~initialize_global_memory_profiler initialize_global_memory_profiler proc~get_global_memory_profiler get_global_memory_profiler proc~initialize_global_memory_profiler->proc~get_global_memory_profiler

Source Code

   subroutine initialize_global_memory_profiler(name)
      character(*), optional, intent(in) :: name

      type(MemoryProfiler), pointer :: memory_profiler
      character(:), allocatable :: name_

      if (present(name)) then
         name_ = name
      else
         name_ = 'top'
      end if

      memory_profiler => get_global_memory_profiler()
      memory_profiler = MemoryProfiler(name_)

   end subroutine initialize_global_memory_profiler