【超初心者】プログラミング質問スレ【基礎】part4

クイックソートに関して質問があります。
クイックソートのコードを書いたのですが、一回実行するだけでは不完全で
二回実行すれば完全にソートされるという謎仕様になってしまいました。
どういうエラーを含んでいると想像されますか？
よろしくお願いします。

アルゴリズムどおりに実装してください

>>303
コードをさらせば回答は即効でつくと思います。

http://loda.jp/matome0/?id=60

遅くなりましたが、上がコードです。Fortran95です。
qsortがクイックソートの再帰可のサブルーチンで、pivotは基準決め、partitionは入れ替えと分割位置決めをするサブルーチンです。