{"id":137,"date":"2017-09-13T10:23:59","date_gmt":"2017-09-13T13:23:59","guid":{"rendered":"http:\/\/www.professores.uff.br\/diomarcesarlobao\/?page_id=137"},"modified":"2017-09-13T10:23:59","modified_gmt":"2017-09-13T13:23:59","slug":"linint4-f","status":"publish","type":"page","link":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/linint4-f\/","title":{"rendered":"linint4.f"},"content":{"rendered":"<pre>c&lt;html&gt;\r\nc&lt;body&gt;\r\nc&lt;pre&gt; \r\n      subroutine linint(x,y,xtab,ytab,ntab)\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     xtab and ytab are provided through the argument list as is their\r\nc     length ntab.\r\nc\r\nc    John Mahaffy 2\/12\/95\r\nc\r\n      real xtab(ntab),ytab(ntab)\r\nc&lt;a name=\"save\"&gt;&lt;font color=\"FF0000\"&gt;\r\n      save ilast\r\nc&lt;\/a&gt;&lt;\/font&gt;\r\n      data ilast\/1\/\r\nc\r\nc    Start the search from the last point of table use index\r\nc\r\n      if (x.le.xtab(ilast+1)) then\r\nc\r\nc    Search down the table from point of last use\r\nc\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\nc\r\nc    Search up the table from point of last use\r\nc\r\n          do 40 i1=ilast+1,ntab-1\r\n              if(x.le.xtab(i1+1)) go to 60\r\n  40          continue\r\n          write(6,*) 'x = ', x, '  is above the table range'\r\n          stop\r\n      endif\r\nc\r\nc   Bounding points found, interpolate\r\nc\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,xtab,ytab,ntab) 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-137","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/137","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=137"}],"version-history":[{"count":1,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/137\/revisions"}],"predecessor-version":[{"id":138,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/137\/revisions\/138"}],"wp:attachment":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/media?parent=137"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/categories?post=137"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/tags?post=137"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}