fortranでテキストデータ読込できない。教えて下さい。

質問

fortran95(g95)を使用しています。
以下のようなテキストファイルを読み込みたいのですができません。

a.txtの中身
-------------------------
0.000000 -11084.0 1.940757E-03
0.000000 -11059.6 6.324515E-04
0.000000 -11035.2 2.825573E-02
0.000000 -11010.7 1.419570E-03
--------------------------

----と-----の間のデータです。
最初に空白が3つ
次に8桁の実数
次に空白が1つ
次に8桁の実数（マイナス記号含む）
次に空白が2つ
最後に12桁の実数（指数含む）
となっています。

real :: z(3,4)
　　open(1,FILE='a.txt')　　
do j = 1, 4
read(1,1000,end=99)(z(k,j), k=1,3)
enddo
99 continue
close(1)

1000 format(F11.6,F9.1,E14.6)

上記のようなコードを作成しています。
do j = 1,4
write(*,*) (z(k,j),k=1,3)
enddo
上記のように出力させると

0. 0. 0.
0. 0. 0.
0. 0. 0.
0. 0. 0.

となります。

よくわからない。
分かる方、教えて下さい。
お願いします。

回答No.1

f272

不思議ですね。
INQUIRE文を使ってちゃんとファイルを読める状態になっているのかどうかを確認したらどうでしょう。

お礼

返事ありがとうございます。
確かにおかしいのですが、

違うファイルのものから
コードをコピーアンドペーストをしていました。
もう一度、自分で打ち直したら
正しく出力できました。

読んで頂き、返事して頂きありがとうございます。