異なるブロックからの倍精度データを直接アクセス ファイルに格納しようとしています。つまり、データは 1 つのブロックの g(m,n) であり、それらはすべて同じサイズです。私が書いたコードは次のとおりです。
OPEN(3,FILE='a.TMP',ACCESS='DIRECT',RECL=8*m*n)
WRITE(3,REC=I) ((g(K,L),K=1,m),L=1,n) ! here "I" is the block number
私はこの種のブロックを200個持っています。ただし、157 番目のブロック データをファイルに書き込んだ後、次のエラーが発生しました。
severe (66): output statement overflows record, unit 3
レコードサイズが大きすぎるということだと思います。これを処理する方法はありますか？レコード数に最大値があるのかな。