{"blog_title":"fortran66\u306e\u30d6\u30ed\u30b0","description":"\u53c2\u7167\uff1ahttp://crd.lbl.gov/~dhbailey/dhbpapers/pi-quest.pdf \u25a0\u5b9f\u884c\u7d50\u679c \u25a0\u30bd\u30fc\u30b9\u30b3\u30fc\u30c9 MODULE m_pi IMPLICIT NONE INTEGER, PARAMETER :: kq = KIND(1.0q0) CONTAINS ELEMENTAL REAL(kq) FUNCTION pi_Borwein4(n) !P.Borwein : quartic INTEGER, INTENT(IN) :: n REAL(kq) :: a, y, t, f INTEGER :: i y = SQRT(2.0_kq) - 1.0_kq a = 6.\u2026","published":"2010-03-02 12:14:48","author_url":"https://blog.hatena.ne.jp/fortran66/","height":"190","type":"rich","provider_name":"Hatena Blog","version":"1.0","provider_url":"https://hatena.blog","title":"Borwein Pi \uff14\u6b21\u516c\u5f0f","author_name":"fortran66","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ffortran66.hatenablog.com%2Fentry%2F20100302%2F1267499688\" title=\"Borwein Pi \uff14\u6b21\u516c\u5f0f - 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>","image_url":"http://cdn-ak.f.st-hatena.com/images/fotolife/f/fortran66/20100302/20100302121405.gif","width":"100%","blog_url":"https://fortran66.hatenablog.com/","url":"https://fortran66.hatenablog.com/entry/20100302/1267499688","categories":["Fortran2003"]}