timeset Subroutine

public subroutine timeset(routineN, handle)

Start timer

Arguments

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

Contents

Source Code


Source Code

   SUBROUTINE timeset(routineN, handle)
      !! Start timer
      CHARACTER(LEN=*), INTENT(IN)                       :: routineN
      INTEGER, INTENT(OUT)                               :: handle

      IF (ASSOCIATED(timeset_hook)) THEN
         CALL timeset_hook(routineN, handle)
      ELSE
         handle = -1
      END IF
   END SUBROUTINE timeset