timestop Subroutine

public subroutine timestop(handle)

Stop timer

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	handle

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