Я конвертирую код на Фортране в C и не понимаю, что здесь происходит.

Этот код взят из TOMS, Транзакции по математическому программному обеспечению, поэтому я не верю, что это ошибочная строка кода.

У ZCOS и A нет других определений в файле, кроме того, что я показываю здесь. Является ли это техникой Фортрана для определения ZCOS как COS, и если да, то что он делает?

REAL ZCOS
ZCOS(A) = COS(A)      
C(I) = ONE / (TWO * ZCOS ( C(I) * PI / DBLE(N+N) ))