MAPL_MemUtilsInit Subroutine

public subroutine MAPL_MemUtilsInit(mode, RC)

Arguments

Type IntentOptional Attributes Name
integer, intent(in), optional :: mode
integer, intent(out), optional :: RC

Calls

proc~~mapl_memutilsinit~~CallsGraph proc~mapl_memutilsinit MAPL_MemUtilsInit proc~mapl_return MAPL_Return proc~mapl_memutilsinit->proc~mapl_return at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception

Called by

proc~~mapl_memutilsinit~~CalledByGraph proc~mapl_memutilsinit MAPL_MemUtilsInit proc~test_main test_main proc~test_main->proc~mapl_memutilsinit proc~test_main~4 test_main proc~test_main~4->proc~mapl_memutilsinit program~utcfio utCFIO program~utcfio->proc~test_main

Source Code

    subroutine MAPL_MemUtilsInit(mode,RC)
      integer, optional, intent(IN )   :: mode
      integer, optional, intent(OUT)   :: RC

      character(len=ESMF_MAXSTR), parameter :: IAm="MAPL_MemUtilsInit"
!initialize memutils module
!currently sets default cache characteristics
!(will provide overrides later)
!also sets pe to my_pe on t3e
#ifdef _CRAYT3E
!all sizes in bytes
      l1_cache_line_size = 32
      l1_cache_size = 8192
      l1_associativity = 1
      l2_cache_line_size = 64
      l2_cache_size = 98304
      l2_associativity = 3
#else
!defaults
      l1_cache_line_size = 1
      l1_cache_size = 1
      l1_associativity = 1
      l2_cache_line_size = 1
      l2_cache_size = 1
      l2_associativity = 1
#endif
#ifdef _CRAYT3E
      pe = SHMEM_MY_PE()
#endif
      memutils_initialized = .TRUE.

      gmax_save = 0.0
      if (present(mode)) then
         MAPL_MemUtilsMode=mode
      else
         MAPL_memUtilsMode=MAPL_MemUtilsModeBase
      endif

      _RETURN(ESMF_SUCCESS)
    end subroutine MAPL_MemUtilsInit