SUBROUTINE f_dbcsr_timeset(routineN, routineN_len, handle) BIND(C, name="c_dbcsr_timeset")
TYPE(C_PTR), INTENT(IN) :: routineN
INTEGER(KIND=C_INT), INTENT(IN) :: routineN_len
INTEGER(KIND=C_INT), INTENT(OUT) :: handle
CHARACTER, POINTER :: a(:)
CHARACTER(len=routineN_len) :: routineName
INTEGER :: i
CALL C_F_POINTER(routineN, a, [routineN_len])
! Convert character array "a" to scalar character string
! "routineName"
DO i = 1, routineN_len
routineName(i:i) = a(i)
END DO
CALL timeset(routineName, handle)
END SUBROUTINE f_dbcsr_timeset