Documentation for module base_hooks

Central dispatch for basic hooks

source: base_hooks.F
Loading...

public Subroutines/Functions:

SUBROUTINE
cp_abort (location, message)
Terminate the program
SUBROUTINE
cp_warn (location, message)
Issue a warning
SUBROUTINE
cp__a (filename, linenr)
CPASSERT handler
SUBROUTINE
cp__b (filename, linenr, message)
CPABORT handler
FUNCTION
cp__l (filename, linenr)
Helper routine to assemble __LOCATION__
SUBROUTINE
cp__w (filename, linenr, message)
CPWARN handler
SUBROUTINE
timeset (routinen, handle)
Start timer
SUBROUTINE
timestop (handle)
Stop timer

Other:

PROCEDURE(cp_abort_interface),
POINTER :: cp_abort_hook = >null()
PROCEDURE(cp_warn_interface),
POINTER :: cp_warn_hook = >null()
PROCEDURE(timeset_interface),
POINTER :: timeset_hook = >null()
PROCEDURE(timestop_interface),
POINTER :: timestop_hook = >null()

SUBROUTINEcp_abort(location, message)

Terminate the program

Arguments:
CHARACTER(*),
INTENT(in)
:: location ...
CHARACTER(*),
INTENT(in)
:: message ...

SUBROUTINEcp_warn(location, message)

Issue a warning

Arguments:
CHARACTER(*),
INTENT(in)
:: location ...
CHARACTER(*),
INTENT(in)
:: message ...

SUBROUTINEcp__a(filename, linenr)

CPASSERT handler

Arguments:
CHARACTER(*),
INTENT(in)
:: filename ...
INTEGER,
INTENT(in)
:: linenr ...

SUBROUTINEcp__b(filename, linenr, message)

CPABORT handler

Arguments:
CHARACTER(*),
INTENT(in)
:: filename ...
INTEGER,
INTENT(in)
:: linenr ...
CHARACTER(*),
INTENT(in)
:: message ...

FUNCTIONcp__l(filename, linenr)

Helper routine to assemble __LOCATION__

Return Value ::
Arguments:
CHARACTER(*),
INTENT(in)
:: filename ...
INTEGER,
INTENT(in)
:: linenr ...

SUBROUTINEcp__w(filename, linenr, message)

CPWARN handler

Arguments:
CHARACTER(*),
INTENT(in)
:: filename ...
INTEGER,
INTENT(in)
:: linenr ...
CHARACTER(*),
INTENT(in)
:: message ...

SUBROUTINEtimeset(routinen, handle)

Start timer

Arguments:
CHARACTER(*),
INTENT(in)
:: routinen ...
INTEGER,
INTENT(out)
:: handle ...

SUBROUTINEtimestop(handle)

Stop timer

Arguments:
INTEGER,
INTENT(in)
:: handle ...