f_dbcsr_timeset Subroutine

private subroutine f_dbcsr_timeset(routineN, routineN_len, handle) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(C_PTR), intent(in) :: routineN
integer(kind=C_INT), intent(in) :: routineN_len
integer(kind=C_INT), intent(out) :: handle

Contents

Source Code


Source Code

   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