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

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

そしてマルチポストもされているようですね。
https://oshiete.goo.ne.jp/qa/9937714.html
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q10179504260
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11179493871
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q10179503690
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q10179401045
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13179504573

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

[quote="Math" id=3,19561,147808]fortan に関しては過去ログにもみあたらなっかたのでfortan のforumに聞かれるといいでしょう。
[url]https://www.ibm.com/developerworks/community/groups/service/html/communityoverview?communityUuid=b10932b4-0edd-4e61-89f2-6e478ccba9aa#fullpageWidgetId=W1ecde6bc4dbe_4dff_bc2d_81423915c226[/url]　
etc...[/quote]

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

fortan に関しては過去ログにもみあたらなっかたのでfortan のforumに聞かれるといいでしょう。
[url]https://www.ibm.com/developerworks/community/groups/service/html/communityoverview?communityUuid=b10932b4-0edd-4e61-89f2-6e478ccba9aa#fullpageWidgetId=W1ecde6bc4dbe_4dff_bc2d_81423915c226[/url]　
etc...

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で割った時の
結果のみを出力させたいです。
どうか、お願いします＞＜