{"id":133,"date":"2017-09-13T10:22:34","date_gmt":"2017-09-13T13:22:34","guid":{"rendered":"http:\/\/www.professores.uff.br\/diomarcesarlobao\/?page_id=133"},"modified":"2017-09-13T10:22:34","modified_gmt":"2017-09-13T13:22:34","slug":"linint2-f","status":"publish","type":"page","link":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/linint2-f\/","title":{"rendered":"linint2.f"},"content":{"rendered":"<pre>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\r\nc\r\nc    John Mahaffy 2\/12\/95\r\nc\r\n      real xtab(11),ytab(11)\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      if (x.lt.xtab(1).or.x.gt.xtab(11)) then\r\n         write(6,*) 'x = ', x, '  is out of table range'\r\n         stop\r\n      endif\r\n      do 100 i=2,11\r\n         if (x.le.xtab(i)) go to 200\r\n  100    continue\r\n  200 i1=i-1\r\n      wx=(x-xtab(i1))\/(xtab(i1+1)-xtab(i1))\r\n      y=(1-wx)*ytab(i1)+wx*ytab(i1+1)\r\n      return\r\n      end<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>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 c c John Mahaffy 2\/12\/95 c real xtab(11),ytab(11) [&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-133","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/133","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=133"}],"version-history":[{"count":1,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/133\/revisions"}],"predecessor-version":[{"id":134,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/133\/revisions\/134"}],"wp:attachment":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/media?parent=133"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/categories?post=133"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/tags?post=133"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}