{"title":"\u30d1\u30b9\u30ab\u30eb\u306e\u4e09\u89d2\u5f62\u3068\u30b7\u30a7\u30eb\u30d4\u30f3\u30b9\u30ad\u30fc\u306e\u4e09\u89d2\u5f62","description":"\u30cd\u30c3\u30c8\u3092\u5f98\u5f8a\u3057\u3066\u3044\u305f\u3068\u3053\u308d\u3001\u30d1\u30b9\u30ab\u30eb\u306e\u4e09\u89d2\u5f62\u306e\u5076\u5947\u6027\u3092\u30d7\u30ed\u30c3\u30c8\u3059\u308b\u3068\u3001\u30b7\u30a7\u30eb\u30d4\u30f3\u30b9\u30ad\u30fc\u306e\u4e09\u89d2\u5f62\u304c\u51fa\u3066\u304f\u308b\u3068\u3044\u3046\u8a18\u8ff0\u304c\u3042\u3063\u305f\u306e\u3067\u3001\u78ba\u304b\u3081\u3066\u307f\u307e\u3057\u305f\u3002 \u30bd\u30fc\u30b9\u30fb\u30d7\u30ed\u30b0\u30e9\u30e0 Fortran2003 program pascal implicit none integer, parameter :: n = 32 integer, allocatable :: pas(:) integer :: i character (len = 80) :: fmt pas = [1] do i = 1, n write(fmt, *) '(t', n - i + 1, ', *(i2))' print fmt,\u2026","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/f/fortran66/20170209/20170209011914.png","blog_title":"fortran66\u306e\u30d6\u30ed\u30b0","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ffortran66.hatenablog.com%2Fentry%2F2017%2F02%2F09%2F012311\" title=\"\u30d1\u30b9\u30ab\u30eb\u306e\u4e09\u89d2\u5f62\u3068\u30b7\u30a7\u30eb\u30d4\u30f3\u30b9\u30ad\u30fc\u306e\u4e09\u89d2\u5f62 - 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/","width":"100%","blog_url":"https://fortran66.hatenablog.com/","version":"1.0","type":"rich","author_name":"fortran66","provider_name":"Hatena Blog","provider_url":"https://hatena.blog","height":"190","published":"2017-02-09 01:23:11","url":"https://fortran66.hatenablog.com/entry/2017/02/09/012311","categories":[]}