Fortran Dolton DO LOOP