{"type":"rich","categories":["Fortran95"],"blog_url":"https://fortran66.hatenablog.com/","author_url":"https://blog.hatena.ne.jp/fortran66/","image_url":null,"blog_title":"fortran66\u306e\u30d6\u30ed\u30b0","url":"https://fortran66.hatenablog.com/entry/20111011/1318415128","author_name":"fortran66","title":"\u30e1\u30e2\u5e33","provider_url":"https://hatena.blog","version":"1.0","description":"program test4 implicit none ! Variables real, allocatable :: x(:, :) ! Body of test4 allocate( x(100, 100) ) x = 1.0 call desub(x) print *, allocated(x) call alsub(x) print *, allocated(x) print *, x stop contains subroutine desub(x) real, allocatable, intent(in out) :: x(:, :) deallocate(x) return \u2026","width":"100%","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ffortran66.hatenablog.com%2Fentry%2F20111011%2F1318415128\" title=\"\u30e1\u30e2\u5e33 - 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>","provider_name":"Hatena Blog","published":"2011-10-11 19:25:28","height":"190"}