フォートランのソース変更を試みています

質問

オリジナルは、ファイルAを読み込んで計算後に別ファイルへ書き出す内容です。それを繰り返し行なうよう変更すべく、恐らくは配列処理で対応可能かと思うのですが力不足のためご教授願いたく。

下記ファイルAには1行目にトータルグループ数、2行目に縦・横・奥行きのポイント数、3行目以降で各ポイントの値が入っています。
　　1
　　41 33 33
　-0.622790027E-02 -0.585733028E-02 -0.541264331E-02
　-0.487901969E-02 -0.423867628E-02 -0.349753047E-02　
　-0.622790027E-02 -0.585733028E-02 -0.541264331E-02 ---以下省略

下記ファイルBについても同様にしたいのですが、配列について今ひとつ理解不足なので困っています。
　　3
　　41 33 33　---(1)
　　21 33 12　---(2)
　　11 33 21　---(3)
　-0.622E-02 -0.585E-02 -0.541E-02
　-0.487E-02 -0.423E-02 -0.349E-02　
　-0.622E-02 -0.585E-02 -0.541E-02 ---中略ここまで(1)
　-0.622E-02 -0.585E-02 -0.541E-02
　-0.487E-02 -0.423E-02 -0.349E-02　
　-0.622E-02 -0.585E-02 -0.541E-02 ---中略ここまで(2)
　-0.622E-02 -0.583E-02 -0.541E-02
　-0.487E-02 -0.421E-02 -0.349E-02　
　-0.622E-02 -0.585E-02 -0.541E-02 ---中略ここまで(3)

元ソース内のDo文については理解できていると思いますが、プログラムに関しては初心者レベルです。ファイルAでは上から順に読み込まれて計算処理し、別ファイルに書き出しています。始めの(1)～(3)を配列に格納してポイント値へ移行し、(1)分が終われば(2)分へ移るようなDo文で対処できるのかな？と考えられるのですが・・・・

よろしくお願い致します。

回答No.1

DIooggooID · ベストアンサー

オリジナルでは、最初にトータルのグループ数を読み込んでいるとのことですが、この値を２以上にした場合の処理（繰り返し処理）は考慮されていないのでしょうか。

オリジナルでは、
　　41 33 33　
これらを、I , J , K の各変数に読み込んでいるとするなら。

例えば、
　　41 33 33　---(1)　は、
　　　　　I( 1 ) , J( 1 ) , K( 1 ) に

　　21 33 12　---(2)　は、
　　　　　I( 2 ) , J( 2 ) , K( 2 ) に

　　11 33 21　---(3)　は、
　　　　　I( 3 ) , J( 3 ) , K( 3 ) に読み込んでから

処理するというように考えてみてはいかがでしょうか。

お礼

早々のアドバイスをありがとうございます。

オリジナルの繰り返し処理は考慮されていません、そのため繰り返し処理ができるよう修正を加えたいのですが・・・。その配列が理解不足のため苦しんでおりました。

似たようなソースがあり、それを流用したところ繰り返し処理は解決されたようです。他の箇所で問題があるようなので、色々と試していたため御礼が遅くなりました。