SUBROUTINE f_dbcsr_timestop(handle) BIND(C, name="c_dbcsr_timestop") INTEGER(KIND=C_INT), INTENT(IN) :: handle CALL timestop(handle) END SUBROUTINE f_dbcsr_timestop