dbcsr_base_hooks Module

Central dispatch for basic hooks


Uses


Variables

Type Visibility Attributes Name Initial
procedure(dbcsr_abort_interface), public, POINTER :: dbcsr_abort_hook => Null()
procedure(dbcsr_warn_interface), public, POINTER :: dbcsr_warn_hook => Null()
procedure(timeset_interface), public, POINTER :: timeset_hook => Null()
procedure(timestop_interface), public, POINTER :: timestop_hook => Null()

Interfaces

interface

  • public subroutine dbcsr_abort_interface(location, message)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: location
    character(len=*), intent(in) :: message

interface

  • public subroutine dbcsr_warn_interface(location, message)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: location
    character(len=*), intent(in) :: message

interface

  • public subroutine timeset_interface(routineN, handle)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: routineN
    integer, intent(out) :: handle

interface

  • public subroutine timestop_interface(handle)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: handle

Functions

public function dbcsr__l(filename, lineNr) result(location)

Helper routine to assemble LOCATION

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
integer, intent(in) :: lineNr

Return Value character(len=default_string_length)


Subroutines

public subroutine dbcsr_abort(location, message)

Terminate the program

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: location
character(len=*), intent(in) :: message

public subroutine dbcsr_warn(location, message)

Issue a warning

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: location
character(len=*), intent(in) :: message

public subroutine timeset(routineN, handle)

Start timer

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: routineN
integer, intent(out) :: handle

public subroutine timestop(handle)

Stop timer

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: handle

public subroutine dbcsr__a(filename, lineNr)

DBCSR_ASSERT handler

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
integer, intent(in) :: lineNr

public subroutine dbcsr__b(filename, lineNr, message)

DBCSR_ABORT handler

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
integer, intent(in) :: lineNr
character(len=*), intent(in) :: message

public subroutine dbcsr__w(filename, lineNr, message)

DBCSR_WARN handler

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
integer, intent(in) :: lineNr
character(len=*), intent(in) :: message