hecmw_tuning_fx.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
! Copyright (c) 2019 FrontISTR Commons
! This software is released under the MIT License, see LICENSE.txt
!-------------------------------------------------------------------------------
 
module hecmw_tuning_fx
  use hecmw_util
  implicit none
 
  private
 
  public :: hecmw_tuning_fx_calc_sector_cache
 
  !!
  !! Please set TotalSectorCacheSize to
  !!  (on K-computer) : 12
  !!  (on FX10)       : 24
  !!
  integer, parameter :: TotalSectorCacheSize = 12
 
contains
 
  subroutine hecmw_tuning_fx_calc_sector_cache( N, NDOF, &
      sectorCacheSize0, sectorCacheSize1 )
    implicit none
    integer(kind=kint), intent(in) :: n, ndof
    integer(kind=kint), intent(out) :: sectorcachesize0, sectorcachesize1
    ! calculate sector cache size
    sectorcachesize1 = int((dble(n) * ndof * kreal / (4096 * 128)) + 0.999)
    if (sectorcachesize1 > totalsectorcachesize / 2 ) &
      sectorcachesize1 = totalsectorcachesize / 2
    sectorcachesize0 = totalsectorcachesize - sectorcachesize1
    ! write(*,*) 'Vector size =', N * NDOF * kreal, '[byte]  ', &
      !            'sectorCache0 =', sectorCacheSize0, '[way]  ', &
      !            'sectorCache1 =', sectorCacheSize1, '[way]'
  end subroutine hecmw_tuning_fx_calc_sector_cache
 
end module hecmw_tuning_fx