{"height":"190","blog_title":"fortran66\u306e\u30d6\u30ed\u30b0","blog_url":"https://fortran66.hatenablog.com/","published":"2008-03-05 02:24:17","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ffortran66.hatenablog.com%2Fentry%2F20080305%2F1204651457\" title=\" - 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>","author_url":"https://blog.hatena.ne.jp/fortran66/","categories":["Fortran","uhoplot"],"width":"100%","image_url":"http://cdn-ak.f.st-hatena.com/images/fotolife/f/fortran66/20080305/20080305022232.gif","provider_url":"https://hatena.blog","description":"\u306a\u3064\u304b\u3057\u3044\u30de\u30f3\u30c7\u30eb\u30d6\u30ed\u96c6\u5408\u3092\u3070\u3002 PROGRAM Mandel USE plotter IMPLICIT NONE INTEGER, PARAMETER :: kd = SELECTED_REAL_KIND(15) INTEGER, PARAMETER :: m = 1000, nwinx = 800 , nwiny = 600 INTEGER :: i, j, imax, jmax, maxiter, icount REAL (kd) :: xmin, xmax, ymin, ymax REAL (kd) :: xmin1, xmax1, ymin1, ymax1 REAL (kd) :: \u2026","author_name":"fortran66","provider_name":"Hatena Blog","url":"https://fortran66.hatenablog.com/entry/20080305/1204651457","title":"","type":"rich","version":"1.0"}