すみません。
エロ動画をダウンロードするための連番リストを作成しようとしています

do i=1,10
write(6,*) "http://www4.xtokyo.com/jpmo/j171/jpmo_1",i,".mpg"
end do

これでループを回すとリダイレクトで連番ファイルが作成されるのですが、
jpmo_ 1 .mpg
のように、切れ目で空白がひと文字分はいってしまいます。

jpmo_1.mpg
のように連続的に文字列をつなげるにはどうすればよいのでしょうか？
よろしくお願いします。