{"id":42,"date":"2017-09-11T13:06:45","date_gmt":"2017-09-11T16:06:45","guid":{"rendered":"http:\/\/www.professores.uff.br\/diomarcesarlobao\/?page_id=42"},"modified":"2017-09-11T13:06:45","modified_gmt":"2017-09-11T16:06:45","slug":"add2-f","status":"publish","type":"page","link":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/add2-f\/","title":{"rendered":"add2.f"},"content":{"rendered":"<pre>c&lt;html&gt;\r\nc&lt;body&gt;\r\nc&lt;pre&gt;\r\n      module global\r\n      implicit none\r\n      real a,b,s\r\nc    a - one of the numbers to be added\r\nc    b - the other number to be added\r\nc    s  - the sum of a and b\r\n      end module global\r\nc\r\n      program add2\r\nc\r\n \r\n      implicit none\r\nc\r\nc   use subroutine input to get the values for a and b\r\nc&lt;a name=\"call\"&gt;&lt;font color=\"FF0000\"&gt;\r\n      call input\r\nc&lt;\/font&gt;&lt;\/a&gt;\r\nc\r\nc    find the sum of and b \r\nc\r\n      call add\r\nc\r\nc     use the subroutine output to send the results to the screen\r\nc\r\n      call output\r\n      stop\r\n      end\r\nc\r\n      subroutine add\r\n      use global\r\n      implicit none\r\nc\r\nc   Add two numbers and store the sum in \"s\"\r\nc\r\n      s = a + b\r\n      return\r\n      end\r\nc\r\n      subroutine input \r\n      use global\r\n      implicit none\r\n      print *, ' This program adds 2 real numbers'\r\n      print *, ' Type them in now separated by a comma or space'\r\nc\r\nc   Now read the numbers that are typed by the user\r\nc   this Fortran read will wait until the numbers are typed\r\nc\r\n      read *, a,b\r\n      return\r\n      end\r\nc\r\n      subroutine output\r\n      use global\r\n      implicit none\r\nc\r\nc   Print out the results with a description\r\nc\r\n      print *,  ' The sum of ', a,' and ' , b\r\n      print *, ' is ' , s\r\n      return\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;body&gt; c&lt;pre&gt; module global implicit none real a,b,s c a &#8211; one of the numbers to be added c b &#8211; the other number to be added c s &#8211; the sum of a and b end module global c program add2 c implicit none c c use subroutine input to get the values [&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-42","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/42","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=42"}],"version-history":[{"count":1,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/42\/revisions"}],"predecessor-version":[{"id":43,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/42\/revisions\/43"}],"wp:attachment":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/media?parent=42"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/categories?post=42"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/tags?post=42"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}