fortran エラーについて

質問

fortranで、副プログラムを使ってデータを昇順または降順に並べ替えるプログラムを入力して実行しようとしたところ、

・Unexpected junk in formal argument list at (1)
・Two main PROGRAMs at (1) and (2)

という2つのエラーが出ました。
これらの改善方法を教えて頂きたいです。
初心者ですので簡単なところで間違えている可能性もありますが、ご指摘いただければ幸いです。

以下、実際に入力したプログラムです。
------------------------------
implicit none
integer::i,n
real::x(1000),a(1000),b(1000)

n=1000

open(10,file='input-data-1.txt')
do i=1,n
read(10,*) x(i)
end do
close(10)

open(10,file='output-data-1.txt')
do i=1,n
call koukan(i,x(i),a(i),b(i))
write(10,'(i4,2f10.3)') i,a(i),b(i)
end do
close(10)
stop
end

subroutine koukan(i,x(i),shoujun,koujun)
implicit none
integer::i,n,made
real::x(1000),w,shoujun,koujun

do made=n-1,1,-1
do i=1,made
if(x(i)>x(i+1)) then
w=x(i)
x(i)=x(i+1)
x(i+1)=w
end if
end do
end do
shoujun=x(i)

do made=n-1,1,-1
do i=1,made
if(x(i)<x(i+1)) then
w=x(i)
x(i)=x(i+1)
x(i+1)=w
end if
end do
end do
koujun=x(i)

return
end
------------------------------

回答No.2

f272 · ベストアンサー

エラーメッセージを必ず読むこと。またエラーが起こった場所もかかれているはずです。
今回のエラーは，仮引数にゴミがあるというのだからゴミを取り除きましょう。
誤　subroutine koukan(i,x(i),shoujun,koujun)
正　subroutine koukan(i,x,shoujun,koujun)

それに付随して，こちらも修正しましょう。
誤　 call koukan(i,x(i),a(i),b(i))
正　 call koukan(i,x,a(i),b(i))

主プログラムが2つあるというエラーメッセージは，1つ目のエラーによって副プログラムが副プログラムであると認識されていないためです。

で，これらを修正すると，動くようにはなるけど，非常に無駄なことをしているプログラムになります。少し修正するだけで1/1000の計算量になります。

補足

ありがとうございます！！

そうですね、エラーメッセージの意味をきちんと読み取れるようにしたいと思います。

最後の少しの修正とは、どのようなものでしょうか…。今後に役立てたいため、教えて頂けると幸いです。

回答No.4

f272

> アクセスする順番を変えるとはどういうことでしょうか？

例えば配列aが昇順に並んでいるのなら
do i=1,n
write(10,'(i4,2f10.3)') i,a(n+1-i)
end do
で書き出されるのは降順になります。

お礼

丁寧なご説明のおかげで、理解することができました。
今回は、大変勉強になりました。本当にありがとうございました！

回答No.3

f272

do i=1,n
call koukan(i,x(i),a(i),b(i))
write(10,'(i4,2f10.3)') i,a(i),b(i)
end do
でkoukanを1000回呼び出しています。でもkoukanでは配列xの中身をソートしているようです。つまり1000回ソートしているわけで，無駄ですよね。ループの外で1回呼び出せばよい。
ついでに言うと，koukanではxの中身を書き換えていますが，それとは別にソート後の配列も別に用意しています。ソート後の配列を使うのならソート前の配列を書き換えるべきではないし，ソート前の配列を書き換えるのならソート後の配列は不要です。
それから昇順と降順は，一方があれば他方はアクセスする順番を変えるだけです。2つとも計算するのは無駄でしょう。

補足

ループ内での呼び出しは無駄、ソート前の配列を書き換えるならソート後の配列は不要、というのはその通りですね、ありがとうございます。

昇順と降順の2つとも計算するのは無駄だと思っていましたが、効率的な方法が思いつかずにいました。こちらの理解不足で申し訳ありませんが、アクセスする順番を変えるとはどういうことでしょうか？

回答No.1

redslove10

subroutine koukan(i,x(i),shoujun,koujun)
じゃなくて
subroutine koukan(i,x,shoujun,koujun)
かな

お礼

すみません、補足の方は解決しました。

早いご回答ありがとうございました！

補足

ありがとうございます！！

無事エラーはなくなり、output-data-1.txtのファイルを作成することができたのですが、このファイルを開いてみても何も入力されていませんでした。このファイルに結果を出力するにはどうすれば良いのでしょうか…。