anchor.diff:  character(C_CHAR), dimension(*), intent(in) :: name
   end subroutine
   end interface
  +
   call sirius_start_timer_aux(name)
   end subroutine sirius_start_timer
   
  
positive.code: integer(C_INT), intent(in) :: ld
  end subroutine
  end interface
  call sirius_set_hubbard_occupancies_aux(handler,occ,ld)
  end subroutine sirius_set_hubbard_occupancies_complex
  
  
negative.code: integer(C_INT), intent(in) :: ld
  end subroutine
  end interface
  
  call sirius_get_hubbard_occupancies_aux(handler,occ,ld)
  end subroutine sirius_get_hubbard_occupancies_complex
  
  