fortran: do loop