Fortran Do While Statement Programming