FORTRAN CODE TO PASCAL - this time I got it right - c-means.for (1/1)

begin 644 c-means.for
<uuencoded_portion_removed>
45%523@T*("`@("!%3D0-"@T*#0H`
`
end