Fortran Do While Statement Cpp Portal