３１番さん
ありがとうございます。
ってことは、iのdoループをなくしてkのdoループのみにしたらよいという事ですか？
そして、formatを書かずに読み込ませれば良いでしょうかね？

ちなみに２６番の「do 30 i=1,144 」は間違いで、iではなくkです。