timestop Subroutine

public subroutine timestop(handle)

Stop timer

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: handle

Contents

Source Code


Source Code

   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