peak_number_of_bits_in_use Function

public function peak_number_of_bits_in_use() result(in_use)

Try to read the peak number of kilobytes currently from /proc/self/status and return number of bits in use. Will return negative if error encountered. This gets VmRSS.

Arguments

None

Return Value integer(kind=int64)


Contents


Source Code

  integer(int64) function peak_number_of_bits_in_use() result(in_use)
    implicit none
    ! We multiply by 1024 * 8 to convert to bits from kilobytes
    in_use = get_status_entry(status_entry = 24) * 1024 * 8
  end function peak_number_of_bits_in_use