Why is SECH written in this form in the legacy FORTRAN code?

Question

I am working on a publicly available legacy code and I am stuck with the implementation of an equation in the code.

The equation implemented is: Equation

In th