Fortran 90 loop namming