Fortran Do Loop Example