Stop timer
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | handle |
SUBROUTINE timestop(handle)
!! Stop timer
INTEGER, INTENT(IN) :: handle
IF (ASSOCIATED(timestop_hook)) THEN
CALL timestop_hook(handle)
ELSE
IF (handle /= -1) &
CALL dbcsr_abort(dbcsr__l("base_hooks.F", __LINE__), "Got wrong handle")
END IF
END SUBROUTINE timestop