{"provider_url":"https://hatena.blog","blog_url":"https://fortran66.hatenablog.com/","version":"1.0","type":"rich","categories":["Fortran2008"],"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ffortran66.hatenablog.com%2Fentry%2F20120524%2F1337794945\" title=\"sine and cosine curves - 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>","title":"sine and cosine curves","blog_title":"fortran66\u306e\u30d6\u30ed\u30b0","height":"190","published":"2012-05-24 02:42:25","url":"https://fortran66.hatenablog.com/entry/20120524/1337794945","image_url":"http://cdn-ak.f.st-hatena.com/images/fotolife/f/fortran66/20120524/20120524023915.png","author_name":"fortran66","description":"\u6614\u3088\u304f\u898b\u305f\u6587\u5b57\u30b0\u30e9\u30d5\u3067\u3059\u3002\u7279\u306b\u610f\u5473\u306a\u3057\uff57 Fortran2008 \u3067\u306f\u3001\u4e07\u80fd G \u578b\u306e Format \u304c\u3055\u3089\u306b\u62e1\u5f35\u3055\u308c\u3066 g0 \u306b\u3088\u3063\u3066\u3042\u3089\u3086\u308b\u578b\u3092\u3001\u3088\u304d\u306b\u8a08\u3089\u3063\u3066\u304f\u308c\u307e\u3059\u3002\u307e\u305f\u7e70\u308a\u8fd4\u3057\u6307\u5b9a\u5b50\u306b * \u3092\u4f7f\u3046\u3053\u3068\u3067\u7121\u9650\u53cd\u5fa9\u3068\u306a\u308a\u307e\u3059\u3002 \u5b9f\u884c\u7d50\u679c \u30bd\u30fc\u30b9\u30fb\u30b3\u30fc\u30c9 program test implicit none real, parameter :: pi = 4 * atan(1.0) integer :: i, n character(72) :: fmt n = 50 print *, ' sine and cosine curves' do i = 0, n write(fmt, '(*\u2026","width":"100%","provider_name":"Hatena Blog","author_url":"https://blog.hatena.ne.jp/fortran66/"}