>>608
PROGRAM ero_list
IMPLICIT NONE
CHARACTER (LEN=50) :: fmt
INTEGER :: i
DO i = 1, 10
WRITE(fmt, '(a, i1, a)') '(a, i', INT( LOG10(REAL(i)) ) + 1, ', a)'
WRITE(6, fmt) "http://www4.xtokyo.com/jpmo/j171/jpmo_",i,".mpg"
END DO
STOP
END PROGRAM ero_list

出力結果
http://www4.xtokyo.com/jpmo/j171/jpmo_1.mpg
http://www4.xtokyo.com/jpmo/j171/jpmo_2.mpg
http://www4.xtokyo.com/jpmo/j171/jpmo_3.mpg
http://www4.xtokyo.com/jpmo/j171/jpmo_4.mpg
http://www4.xtokyo.com/jpmo/j171/jpmo_5.mpg
http://www4.xtokyo.com/jpmo/j171/jpmo_6.mpg
http://www4.xtokyo.com/jpmo/j171/jpmo_7.mpg
http://www4.xtokyo.com/jpmo/j171/jpmo_8.mpg
http://www4.xtokyo.com/jpmo/j171/jpmo_9.mpg
http://www4.xtokyo.com/jpmo/j171/jpmo_10.mpg