{"id":141,"date":"2017-09-13T10:27:43","date_gmt":"2017-09-13T13:27:43","guid":{"rendered":"http:\/\/www.professores.uff.br\/diomarcesarlobao\/?page_id=141"},"modified":"2017-09-13T10:27:43","modified_gmt":"2017-09-13T13:27:43","slug":"matprod-f","status":"publish","type":"page","link":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/matprod-f\/","title":{"rendered":"matprod.f"},"content":{"rendered":"<pre>c&lt;html&gt;\r\nc&lt;head&gt;&lt;title&gt;matprod.f&lt;\/title&gt;&lt;\/head&gt;\r\nc&lt;body&gt;\r\nc&lt;pre&gt;\r\n\r\n      program dimtest\r\nc\r\nc     test the Matrix multiply and other matrix\r\nc     aritmetic\r\nc\r\nc     John Mahaffy 3\/31\/96\r\nc\r\n       real a(3,3), b(3,3), c(3,3),x(3),y(3)\r\n      data a\/1,2,3,1,2,3,1,2,3\/\r\n      data b\/1,1,1,2,2,2,3,3,3\/\r\n      data x\/1,2,3\/,y\/2,2,2\/\r\nc     &lt;a name=2&gt;&lt;font color=FF0000&gt;\r\n      c = matmul(a,b)\r\n      y = matmul(a,x)\r\nc     &lt;\/font&gt;\r\n      write(*,*) ' a = '\r\n      write( *, 2000) ((a(i,j),j=1,3),i=1,3)\r\n      write(*,*) ' b = '\r\n      write( *, 2000)  ((b(i,j),j=1,3),i=1,3)\r\n      write(*,*) ' c = a b ='\r\n      write( *, 2000)  ((c(i,j),j=1,3),i=1,3)\r\n      write( *, 2001) \"x\", x\r\n      write(*,*) ' y = a x '\r\n      write(*,2001) 'y', y\r\nc     &lt;a name=1&gt;&lt;font color=FF0000&gt;\r\n      dotpro = dot_product(x,y)\r\nc     &lt;\/font&gt;\r\n      write(*,*)  'Evaluate the dot product of x and y'\r\n      write(*,'(a,f8.1)') 'Result of DOT_PRODUCT function =', dotpro\r\n      dotpro = sum(x*y)\r\n      write(*,'(a,f8.1)') 'Dot Product using SUM function =', dotpro\r\n 2000 format(4x,3f8.1)\r\n 2001 format (\/, 1x,a1,' = ', f8.1,\/, (5x,f8.1))\r\n      stop\r\n      end\r\nc&lt;\/pre&gt;\r\nc&lt;\/body&gt;\r\nc&lt;\/html&gt;<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>c&lt;html&gt; c&lt;head&gt;&lt;title&gt;matprod.f&lt;\/title&gt;&lt;\/head&gt; c&lt;body&gt; c&lt;pre&gt; program dimtest c c test the Matrix multiply and other matrix c aritmetic c c John Mahaffy 3\/31\/96 c real a(3,3), b(3,3), c(3,3),x(3),y(3) data a\/1,2,3,1,2,3,1,2,3\/ data b\/1,1,1,2,2,2,3,3,3\/ data x\/1,2,3\/,y\/2,2,2\/ c &lt;a name=2&gt;&lt;font color=FF0000&gt; c = matmul(a,b) y = matmul(a,x) c &lt;\/font&gt; write(*,*) &#8216; a = &#8216; write( *, 2000) ((a(i,j),j=1,3),i=1,3) write(*,*) [&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-141","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/141","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=141"}],"version-history":[{"count":1,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/141\/revisions"}],"predecessor-version":[{"id":142,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/141\/revisions\/142"}],"wp:attachment":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/media?parent=141"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/categories?post=141"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/tags?post=141"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}