Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(KeywordEnforcer), | intent(in), | optional | :: | unusable | ||
integer, | intent(in), | optional | :: | comm | ||
character(len=*), | intent(in), | optional | :: | logging_config | ||
logical, | intent(in), | optional | :: | enable_global_timeprof | ||
logical, | intent(in), | optional | :: | enable_global_memprof | ||
integer, | intent(out), | optional | :: | rc |
subroutine MAPL_Initialize(unusable,comm,logging_config,enable_global_timeprof, enable_global_memprof, rc) class (KeywordEnforcer), optional, intent(in) :: unusable integer, optional, intent(in) :: comm character(len=*), optional,intent(in) :: logging_config logical, optional, intent(in) :: enable_global_timeprof logical, optional, intent(in) :: enable_global_memprof integer, optional, intent(out) :: rc character(:), allocatable :: logging_configuration_file integer :: comm_world,status _UNUSED_DUMMY(unusable) call initialize_profiler(comm=comm_world, enable_global_timeprof=enable_global_timeprof, enable_global_memprof=enable_global_memprof, _RC) if (present(logging_config)) then logging_configuration_file=logging_config else logging_configuration_file='' end if if (present(comm)) then comm_world = comm else comm_world=MPI_COMM_WORLD end if #ifdef BUILD_WITH_PFLOGGER call initialize_pflogger(comm=comm_world,logging_config=logging_configuration_file, _RC) #endif _RETURN(_SUCCESS) end subroutine MAPL_Initialize