Fortran Do While Statement Programming Chamberlain