{"id":44,"date":"2017-09-11T13:08:28","date_gmt":"2017-09-11T16:08:28","guid":{"rendered":"http:\/\/www.professores.uff.br\/diomarcesarlobao\/?page_id=44"},"modified":"2017-09-11T13:08:48","modified_gmt":"2017-09-11T16:08:48","slug":"aorder-f","status":"publish","type":"page","link":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/aorder-f\/","title":{"rendered":"aorder.f"},"content":{"rendered":"<pre>c&lt;html&gt;\r\nc&lt;body&gt;\r\nc&lt;pre&gt;\r\n      program order\r\nc\r\nc   Demonstrate the storage order of elements in a\r\nc   Multiply Dimensioned Array and the use of the\r\nc   EQUIVALENCE statement\r\nc\r\nc     John Mahaffy  3\/26\/96\r\nc\r\nc\r\n      implicit none\r\nc&lt;a name=\"in\"&gt;&lt;font color=\"FF0000\"&gt;\r\n      integer a(5,5), b(25), i, j\r\nc&lt;\/a&gt;&lt;\/font&gt;\r\nc&lt;a name=\"equal\"&gt;&lt;font color=\"FF0000\"&gt;\r\n      equivalence (a(1,1),b(1))\r\nc&lt;\/font&gt;&lt;\/a&gt;\r\nc\r\nc     Put some values into \"a\", and because it\r\nc     occupies the same space also into \"b\"\r\nc\r\n      do i=1,5\r\n         do j=1,5\r\n            a(i,j)= 100*i+j\r\n         enddo\r\n      enddo\r\nc\r\n      write(*,*) \"Hundred's digit is the first index of the array\"\r\n      write(*,*) 'One''s digit is the second index'\r\n      write(*,2000) ((a(i,j),j=1,5),i=1,5)\r\n      write(*,2001) b\r\n 2000 format ( \/, 'a(i,j) = ',\/ (5i5))\r\n 2001 format (\/, 'b = ',\/,(15i5))\r\n      stop\r\n      end\r\nc&lt;\/pre&gt;\r\nc&lt;\/body&gt;\r\nc&lt;\/html&gt;\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>c&lt;html&gt; c&lt;body&gt; c&lt;pre&gt; program order c c Demonstrate the storage order of elements in a c Multiply Dimensioned Array and the use of the c EQUIVALENCE statement c c John Mahaffy 3\/26\/96 c c implicit none c&lt;a name=&#8221;in&#8221;&gt;&lt;font color=&#8221;FF0000&#8243;&gt; integer a(5,5), b(25), i, j c&lt;\/a&gt;&lt;\/font&gt; c&lt;a name=&#8221;equal&#8221;&gt;&lt;font color=&#8221;FF0000&#8243;&gt; equivalence (a(1,1),b(1)) c&lt;\/font&gt;&lt;\/a&gt; c c Put some [&hellip;]<\/p>\n","protected":false},"author":22,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"_exactmetrics_skip_tracking":false,"_exactmetrics_sitenote_active":false,"_exactmetrics_sitenote_note":"","_exactmetrics_sitenote_category":0,"footnotes":""},"categories":[],"tags":[],"class_list":["post-44","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/44","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/users\/22"}],"replies":[{"embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/comments?post=44"}],"version-history":[{"count":1,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/44\/revisions"}],"predecessor-version":[{"id":45,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/44\/revisions\/45"}],"wp:attachment":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/media?parent=44"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/categories?post=44"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/tags?post=44"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}