{"type":"rich","width":"100%","title":"\u25a0\u5b9f\u884c\u4f8b","published":"2009-02-17 02:48:01","version":"1.0","provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/fortran66/","categories":[],"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ffortran66.hatenablog.com%2Fentry%2F20090217%2F1234892881\" title=\"\u25a0\u5b9f\u884c\u4f8b - 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>","height":"190","blog_title":"fortran66\u306e\u30d6\u30ed\u30b0","blog_url":"https://fortran66.hatenablog.com/","provider_name":"Hatena Blog","image_url":"http://cdn-ak.f.st-hatena.com/images/fotolife/f/fortran66/20090218/20090218031557.gif","description":"JOB CARD //FORTHCLG JOB (001),'FORTRAN H FIBONACCI', // CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1) //FIBONACC EXEC FORTHCLG,REGION.FORT=384K //FORT.SYSLIN DD UNIT=SYSDA //FORT.SYSABEND DD SYSOUT=A //FORT.SYSIN DD * C C FIBONACCI C READ(35, 100) N 100 FORMAT(I8) IFIB0 = 0 IFIB1 = 1 WRITE(6, 200) IFIB0 WRITE(6\u2026","url":"https://fortran66.hatenablog.com/entry/20090217/1234892881","author_name":"fortran66"}