Fortran Do While Statement Programming Xfinity