Fortranのプログラミングについて

質問

Fortranのプログラミングについて分からない事があり、質問させていただきます。ご回答いただければ幸いです。

現在、
R = 1 2 3 4 5 6 ・・・ 30
T = n1 n2 n3 n4 n5 n6 ・・・ n30
n1≦n2≦n3≦n4≦n5≦n6≦・・・≦n30

順位（R）と、順位に対応する値（T）のデータがあるのですが、値が同じ場合には
其々の順位を平均したものを割り振りたいと考えています。
例えば、
3位と4位と5位の値が同じ場合には、全てを4位として扱い、10位と11位の値が同じであればそれぞれを10.5位
とする様なプログラムを組み立てたいのですが、どの様にすればよいのか分かりません。

どなたか、お教えいただけないでしょうか？

回答No.2

Siegrune · ベストアンサー

## fortranとはまた懐かしい。
## 私は、Fortran80～Fortran77くらいの頃しかさわっていないので
## 文法がもうあやふやなので、主として方針だけ。

まず、Tをすべて読み込んで配列Ｔに格納します。
次に、Rをすべて読み込んで配列Ｒに格納します。
配列Ｔを２番目から順番に処理していきます。（１番目は比較対象になるだけ）
integer i
integer j
integer wk
integer totalR
wk = 1
do i = 2,30
if (配列Ｔ(i).NE. 配列Ｔ(i - 1)) then
* 値が一致していない時、その直前までを平均する。
* 注：wkからi-1までの配列が同じ値となっている。
totalR = 0
do j = wk,i-1
totalR = totalR + R(j)
end do j
do j = wk,i-1
R(j) = totalR / (i - 1 - wk + 1)
end do j

wk = i

end if
end do i

* 途中から最後まで等しかったときに平均処理がされないので
totalR = 0
do j = wk,30
totalR = totalR + R(j)
end do j
do j = wk,30
R(j) = totalR / (i - 1 - wk + 1)
end do j

後は、配列Ｒと配列Ｔを出力する。
とこんな感じ。

## Fortran80ではブロックＩＦ文ってなかったなあ～。
## Do loopもこんな書き方できるのか、といいつつ。
（文法は以下のサイトを参考にしています。）
http://www-het.ph.tsukuba.ac.jp/~ishizuka/Link/F90/sec0.html

お礼

機器の不具合で返信ができず、遅くなりました。
素人の私でも分かりやすいプログラム内容で大変ありがたいです。

自分でも一応は書いてみたのですが、こちらのほうが数倍スマートでしたので
教えていただいた方法で行いたいと思います。
プログラムにもセンスが求められるんですね。

ありがとうございました。

回答No.1

osamuy

こんなのとか。

http://www.ideone.com/H48Ol

お礼

回答していただきました事、感謝いたします。

はやくに回答していただいたのですが、自分にも流れが追いやすい方を
選ばせていただきました。
すみません。