フォートラン質問

[フォートラン]

fortranしきゅう質問！

do i=500,5000
if (条件) then
kosuu(i,-i)=kosuu(i,-i)+1
atai(i,-i)=atai(i,-i)+st(i)
endif
enddo

とある時、iによって変わるatai値をkosuu個数で割り、平均値を出し、平均値のみを出力するには、どうすれば良いでしょうか。
ただし、atai(i,-i)は、iによって変わる格子であり、atai(i,-i)の中に入っている数がkosuu(i,-i)です。
なので、i=500〜5000の間に入っているatai(i,-i)の合計を計算し、kosuu(i,-i)で割り、
その結果を一個づつ出力させたいです。
ただし、kosuuが3の時は、1〜2の結果ではなく、最終的な個数の合計値である3で割った時の
結果のみを出力させたいです。
どうか、お願いします＞＜

[Math]

fortan に関しては過去ログにもみあたらなっかたのでfortan のforumに聞かれるといいでしょう。
https://www.ibm.com/developerworks/comm ... 423915c226　
etc...

[asd]

こちらの質問と同じ方でしょうか？
http://dixq.net/forum/viewtopic.php?f=3 ... 0&p=147811

であれば、上記のトピックもきちんと対応してくださいね。

そしてマルチポストもされているようですね。
https://oshiete.goo.ne.jp/qa/9937714.html
https://detail.chiebukuro.yahoo.co.jp/q ... 0179504260
https://detail.chiebukuro.yahoo.co.jp/q ... 1179493871
https://detail.chiebukuro.yahoo.co.jp/q ... 0179503690
https://detail.chiebukuro.yahoo.co.jp/q ... 0179401045
https://detail.chiebukuro.yahoo.co.jp/q ... 3179504573

フォーラムルールをよく読んで守ってくださいね。

fortan に関しては過去ログにもみあたらなっかたのでfortan のforumに聞かれるといいでしょう。
https://www.ibm.com/developerworks/comm ... 423915c226　
etc...

別のトピックでも指摘してますがfortanではなくfortranですよね？
また紹介されているフォーラムは長いこと投稿がないようなのと、英語でも質問が必要なようなので個人的にはあまりおすすめできないような気がします。