{"url":"https://fortran66.hatenablog.com/entry/20120412/1334163264","blog_url":"https://fortran66.hatenablog.com/","categories":["FORTRAN77"],"width":"100%","author_name":"fortran66","version":"1.0","type":"rich","provider_url":"https://hatena.blog","blog_title":"fortran66\u306e\u30d6\u30ed\u30b0","image_url":null,"title":"\u518d\u5e30\u3092\u4f7f\u308f\u306a\u3044 quick sort","published":"2012-04-12 01:54:24","height":"190","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ffortran66.hatenablog.com%2Fentry%2F20120412%2F1334163264\" title=\"\u518d\u5e30\u3092\u4f7f\u308f\u306a\u3044 quick sort - fortran66\u306e\u30d6\u30ed\u30b0\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","provider_name":"Hatena Blog","author_url":"https://blog.hatena.ne.jp/fortran66/","description":"\u518d\u5e30\u3092\u4f7f\u308f\u306a\u3044 Quicksort \u3092\u66f8\u3044\u3066\u307f\u305f\u306e\u3067\u3059\u304c\u3001\u3064\u3044\u3067\u306a\u306e\u3067FORTRAN77 \u306b\u66f8\u304d\u76f4\u3057\u3066\u307f\u307e\u3057\u305f\u3002\u518d\u5e30\u3092\u4f7f\u308f\u306a\u3044\u5206\u3001\u4f5c\u696d\u9818\u57df\u3068\u3057\u3066\u5165\u529b\u914d\u5217\u3068\u307b\u307c\u540c\u3058\u9577\u3055\u306e\u4f5c\u696d\u914d\u5217\u304c\uff13\u672c\u4f7f\u3063\u3066\u3044\u307e\u3059\u3002\u518d\u5e30\u3092\u4f7f\u3063\u3066\u3044\u306a\u3044\u306e\u3067\u5927\u5e45\u306b\u30b9\u30d4\u30fc\u30c9\u30a2\u30c3\u30d7\u3057\u307e\u3057\u305f\u3002\u307e\u305f\u3001\u540c\u3058\u518d\u5e30\u3092\u4f7f\u308f\u306a\u3044\u7248\u3067\u3082\u3001F77\u7248\u306f\u540c\u7b49\u306eF90\u7248\u306e\u3082\u306e\u3088\u308a\u9ad8\u901f\u3067\u3059\u3002\u30e1\u30e2\u30ea\u30fc\u306e\u53d7\u3051\u6e21\u3057\u306e\u554f\u984c\u3060\u3068\u601d\u3046\u306e\u3067\u3059\u304c\u3001\u3069\u3053\u3067\u5dee\u304c\u3064\u3044\u3066\u3044\u308b\u306e\u304b\u30fb\u30fb\u30fb\u30fb\u30fb\u8abf\u3079\u3066\u3044\u307e\u305b\u3093\u3002 \u30bd\u30fc\u30b9 SUBROUTINE qsort77(n, x, w, indx, iwk) REAL x(n), w(n) INTEGER indx(n + 2), iwk(n + 2) \u2026"}