невозможно найти объект C _kmns при передаче в.Fortran()

Я пытаюсь изменить функцию stats::kmeans, чтобы она возвращала количество итерации(см. здесь). Когда я копирую исходный код в свой собственный файл, изменяю функцию и запускаю ее, я получаю сообщение об ошибке об отсутствии объекта C_kmnsпри попытке выполнить функцию do_one. Этот объект передается вызову .Fortranи нигде не создается в функции kmeans. Откуда этот объект?

Ошибка, которую я получаю:

Error in do_one(nmeth) : object 'C_kmns' not found

Вот фрагмент кода «оскорбительного» вызова.

   do_one <- function(nmeth) {
      Z <-
               switch(nmeth,
                        { # 1
                           Z <-.Fortran(C_kmns, as.double(x), as.integer(m),
                                    as.integer(ncol(x)),
                                   ...