This is the Fortran code as I received it; unmolested as far as I know.