dbcsr_base_hooks Module

Central dispatch for basic hooks



Contents


Variables

TypeVisibilityAttributesNameInitial
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

    TypeIntentOptionalAttributesName
    character(len=*), intent(in) :: location
    character(len=*), intent(in) :: message

interface

  • public subroutine dbcsr_warn_interface(location, message)

    Arguments

    TypeIntentOptionalAttributesName
    character(len=*), intent(in) :: location
    character(len=*), intent(in) :: message

interface

  • public subroutine timeset_interface(routineN, handle)

    Arguments

    TypeIntentOptionalAttributesName
    character(len=*), intent(in) :: routineN
    integer, intent(out) :: handle

interface

  • public subroutine timestop_interface(handle)

    Arguments

    TypeIntentOptionalAttributesName
    integer, intent(in) :: handle

Functions

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

Helper routine to assemble LOCATION

Arguments

TypeIntentOptionalAttributesName
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

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: location
character(len=*), intent(in) :: message

public subroutine dbcsr_warn(location, message)

Issue a warning

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: location
character(len=*), intent(in) :: message

public subroutine timeset(routineN, handle)

Start timer

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: routineN
integer, intent(out) :: handle

public subroutine timestop(handle)

Stop timer

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: handle

public subroutine dbcsr__a(filename, lineNr)

DBCSR_ASSERT handler

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: filename
integer, intent(in) :: lineNr

public subroutine dbcsr__b(filename, lineNr, message)

DBCSR_ABORT handler

Arguments

TypeIntentOptionalAttributesName
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

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: filename
integer, intent(in) :: lineNr
character(len=*), intent(in) :: message