{"id":135,"date":"2017-09-13T10:23:14","date_gmt":"2017-09-13T13:23:14","guid":{"rendered":"http:\/\/www.professores.uff.br\/diomarcesarlobao\/?page_id=135"},"modified":"2017-09-13T10:23:14","modified_gmt":"2017-09-13T13:23:14","slug":"linint3-f","status":"publish","type":"page","link":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/linint3-f\/","title":{"rendered":"linint3.f"},"content":{"rendered":"<pre>c&lt;html&gt;\r\nc&lt;body&gt;\r\nc&lt;pre&gt;\r\n      subroutine linint(x,y)\r\nc\r\nc     Given a value of x return a value of y based on interpolation\r\nc     within a table of y values (ytab) corresponding to the x values\r\nc     contained in the array xtab.  The subroutine assumes that the\r\nc     values in xtab increase monotonically.  Efficiency is increased\r\nc     by remembering the table points used in the last call (ilast).\r\nc\r\nc    John Mahaffy 2\/12\/95\r\nc\r\n      real xtab(11),ytab(11)\r\nc&lt;a name=\"save\"&gt;&lt;font color=\"FF0000\"&gt;\r\n      save ilast\r\nc&lt;\/font&gt;&lt;\/a&gt;\r\n      data ytab\/1.0,2.1,3.2,4.4,5.7,7.1,8.6,10.2,11.9,13.7,15.8\/\r\n      data xtab\r\n     &amp; \/300.,400.,500.,600.,700.,800.,900.,1000.,1100.,1200.,1300.\/\r\n      data ilast\/1\/\r\n      if (x.le.xtab(ilast+1)) then\r\n          do 20 i1=ilast,1,-1\r\n              if(x.ge.xtab(i1)) go to 60\r\n  20          continue\r\n          write(6,*) 'x = ', x, '  is below the table range'  \r\n          stop\r\n      else\r\n          do 40 i1=ilast+1,10\r\n              if(x.le.xtab(i1+1)) go to 60\r\n  40          continue\r\n          write(6,*) 'x = ', x, '  is below the table range'  \r\n          stop\r\n      endif\r\n  60  wx=(x-xtab(i1))\/(xtab(i1+1)-xtab(i1))\r\n      y=(1-wx)*ytab(i1)+wx*ytab(i1+1)\r\n      ilast=i1\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; subroutine linint(x,y) c c Given a value of x return a value of y based on interpolation c within a table of y values (ytab) corresponding to the x values c contained in the array xtab. The subroutine assumes that the c values in xtab increase monotonically. Efficiency is increased c by [&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-135","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/135","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=135"}],"version-history":[{"count":1,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/135\/revisions"}],"predecessor-version":[{"id":136,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/135\/revisions\/136"}],"wp:attachment":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/media?parent=135"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/categories?post=135"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/tags?post=135"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}