{"id":131,"date":"2017-09-13T10:21:47","date_gmt":"2017-09-13T13:21:47","guid":{"rendered":"http:\/\/www.professores.uff.br\/diomarcesarlobao\/?page_id=131"},"modified":"2017-09-13T10:21:47","modified_gmt":"2017-09-13T13:21:47","slug":"linint1-f","status":"publish","type":"page","link":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/linint1-f\/","title":{"rendered":"linint1.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) evaluated at evenly spaced\r\nc     x points between xmin and xmax.\r\nc\r\nc    John Mahaffy 2\/12\/95\r\nc\r\n       real ytab(11)\r\n       parameter (xmin=300.,dx=100.,xmax=xmin+10.*dx,rdx=1.\/dx)\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       if(x.ge.xmin.and.x.le.xmax) then\r\n               i1= int((x-xmin)*rdx)+1            \r\n               x1=xmin+(i1-1)*dx\r\n               wx=(x-x1)*rdx\r\n               y=(1-wx)*ytab(i1)+wx*ytab(i1+1)\r\n       else\r\n               write(6,*) 'x = ', x, '  is out of table range' \r\n               stop\r\n       endif\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) evaluated at evenly spaced c x points between xmin and xmax. c c John Mahaffy 2\/12\/95 c real ytab(11) parameter (xmin=300.,dx=100.,xmax=xmin+10.*dx,rdx=1.\/dx) data ytab\/1.0,2.1,3.2,4.4,5.7,7.1,8.6,10.2,11.9,13.7,15.8\/ if(x.ge.xmin.and.x.le.xmax) then i1= int((x-xmin)*rdx)+1 x1=xmin+(i1-1)*dx wx=(x-x1)*rdx y=(1-wx)*ytab(i1)+wx*ytab(i1+1) [&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-131","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/131","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=131"}],"version-history":[{"count":1,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/131\/revisions"}],"predecessor-version":[{"id":132,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/131\/revisions\/132"}],"wp:attachment":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/media?parent=131"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/categories?post=131"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/tags?post=131"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}