Working Fortran version.  Speed king