dbcsr_machine_internal Module

Implementation of machine interface based on Fortran 2003 and POSIX



Contents


Variables

TypeVisibilityAttributesNameInitial
integer(kind=int_8), public, SAVE:: m_memory_max =0

Functions

public function m_iargc() result(ic)

The number of arguments of the fortran program

Arguments

None

Return Value integer

public function m_procrun(pid) result(run_on)

Returns if a process is running on the local machine 1 if yes and 0 if not

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: pid

Return Value integer


Subroutines

public subroutine m_abort()

Can be used to get a nice core

Arguments

None

public subroutine m_flush(lunit)

Flush a given unit

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: lunit

public subroutine m_memory(mem)

Returns the total amount of memory [bytes] in use, if known, zero otherwise

Arguments

TypeIntentOptionalAttributesName
integer(kind=int_8), intent(out), optional :: mem

public subroutine m_memory_details(MemTotal, MemFree, Buffers, Cached, Slab, SReclaimable, MemLikelyFree)

Arguments

TypeIntentOptionalAttributesName
integer(kind=int_8), optional :: MemTotal
integer(kind=int_8), optional :: MemFree
integer(kind=int_8), optional :: Buffers
integer(kind=int_8), optional :: Cached
integer(kind=int_8), optional :: Slab
integer(kind=int_8), optional :: SReclaimable
integer(kind=int_8), optional :: MemLikelyFree

public subroutine m_mov(source, TARGET)

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: source
character(len=*), intent(in) :: TARGET

public subroutine m_hostnm(hname)

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(out) :: hname

public subroutine m_getcwd(curdir)

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(out) :: curdir

public subroutine m_chdir(dir, ierror)

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: dir
integer, intent(out) :: ierror

public subroutine m_getlog(user)

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(out) :: user

public subroutine m_getuid(uid)

Arguments

TypeIntentOptionalAttributesName
integer, intent(out) :: uid

public subroutine m_getpid(pid)

Arguments

TypeIntentOptionalAttributesName
integer, intent(out) :: pid

public subroutine m_getarg(i, arg)

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: i
character(len=*), intent(out) :: arg