{"id":191,"date":"2017-09-13T11:03:33","date_gmt":"2017-09-13T14:03:33","guid":{"rendered":"http:\/\/www.professores.uff.br\/diomarcesarlobao\/?page_id=191"},"modified":"2017-09-13T11:03:33","modified_gmt":"2017-09-13T14:03:33","slug":"thcl-f","status":"publish","type":"page","link":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/thcl-f\/","title":{"rendered":"thcl.f"},"content":{"rendered":"<pre>      function thcl(temp)\r\nc\r\nc     function thcl evaluates the freon liquid thermal conductivity\r\nc     as a function of liquid enthalpy\r\nc\r\nc          liquid temperature          temp   in (j\/kg)\r\nc          thermal conductivity        thcl   in (w\/m\/k)\r\nc\r\nc\r\nc\r\n      dimension tabl(4,26)\r\n      save ilast\r\n      data ilast\/15\/,ntab\/26\/\r\n      data tabl\/\r\n     &amp;  1.99826700E+02, 1.15267000E-01,-3.03660304E-04, 6.96601393E-07,\r\n     &amp;  2.10937800E+02, 1.11979000E-01,-2.88180288E-04, 6.96601393E-07,\r\n     &amp;  2.22048900E+02, 1.08863000E-01,-2.72700273E-04,-6.88501377E-07,\r\n     &amp;  2.33160000E+02, 1.05748000E-01,-2.88000288E-04, 6.88501377E-07,\r\n     &amp;  2.44271100E+02, 1.02633000E-01,-2.72700273E-04,-6.96601393E-07,\r\n     &amp;  2.55382200E+02, 9.95170000E-02,-2.88180288E-04, 7.04701409E-07,\r\n     &amp;  2.66493300E+02, 9.64020000E-02,-2.72520273E-04,-7.04701409E-07,\r\n     &amp;  2.77604400E+02, 9.32870000E-02,-2.88180288E-04, 6.96822277E-07,\r\n     &amp;  2.88715600E+02, 9.01710000E-02,-2.72695225E-04,-6.88955687E-07,\r\n     &amp;  2.99826700E+02, 8.70560000E-02,-2.88005336E-04, 6.88955687E-07,\r\n     &amp;  3.10937800E+02, 8.39410000E-02,-2.72695225E-04,-6.97055703E-07,\r\n     &amp;  3.22048900E+02, 8.08250000E-02,-2.88185336E-04, 7.05155719E-07,\r\n     &amp;  3.33160000E+02, 7.77100000E-02,-2.72515225E-04,-7.05155719E-07,\r\n     &amp;  3.44271100E+02, 7.45950000E-02,-2.88185336E-04, 6.97055703E-07,\r\n     &amp;  3.55382200E+02, 7.14790000E-02,-2.72695225E-04,-6.88955687E-07,\r\n     &amp;  3.66493300E+02, 6.83640000E-02,-2.88005336E-04, 6.88955687E-07,\r\n     &amp;  3.77604400E+02, 6.52490000E-02,-2.72695225E-04,-6.96822277E-07,\r\n     &amp;  3.88715600E+02, 6.21330000E-02,-2.88180288E-04, 7.04701409E-07,\r\n     &amp;  3.99826700E+02, 5.90180000E-02,-2.72520273E-04,-7.04701409E-07,\r\n     &amp;  4.10937800E+02, 5.59030000E-02,-2.88180288E-04, 6.96601393E-07,\r\n     &amp;  4.22048900E+02, 5.27870000E-02,-2.72700273E-04,-4.89240978E-06,\r\n     &amp;  4.33160000E+02, 4.91530000E-02,-3.81420381E-04, 6.80401361E-07,\r\n     &amp;  4.44271100E+02, 4.49990000E-02,-3.66300366E-04,-6.28561257E-06,\r\n     &amp;  4.55382200E+02, 4.01530000E-02,-5.05980506E-04,-2.45592491E-05,\r\n     &amp;  4.66493300E+02, 3.14990000E-02,-1.05174105E-03,-2.18924207E-04,\r\n     &amp;  4.70937800E+02, 2.25000000E-02, 0.00000000E+00, 0.00000000E+00\/\r\n      x=temp\r\nc    Start the search from the last point of table use index\r\nc\r\n      if (x.le.tabl(1,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.tabl(1,i1)) go to 60\r\n  20          continue\r\nc         write(6,*) 'x = ', x, '  is below the table range'\r\n          i1=1\r\n          go to 60\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.tabl(1,i1+1)) go to 60\r\n  40          continue\r\nc         write(6,*) 'x = ', x, '  is above the table range'\r\n          i1=ntab-1\r\n          go to 60\r\n      endif\r\nc\r\nc   Bounding points found, interpolate\r\nc\r\n  60  dx=(x-tabl(1,i1))\r\n      thcl=tabl(2,i1)+tabl(3,i1)*dx+tabl(4,i1)*dx**2\r\n      ilast=i1\r\n  120 continue\r\n      return\r\n      end<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>function thcl(temp) c c function thcl evaluates the freon liquid thermal conductivity c as a function of liquid enthalpy c c liquid temperature temp in (j\/kg) c thermal conductivity thcl in (w\/m\/k) c c c dimension tabl(4,26) save ilast data ilast\/15\/,ntab\/26\/ data tabl\/ &amp; 1.99826700E+02, 1.15267000E-01,-3.03660304E-04, 6.96601393E-07, &amp; 2.10937800E+02, 1.11979000E-01,-2.88180288E-04, 6.96601393E-07, &amp; 2.22048900E+02, 1.08863000E-01,-2.72700273E-04,-6.88501377E-07, &amp; [&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-191","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/191","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=191"}],"version-history":[{"count":1,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/191\/revisions"}],"predecessor-version":[{"id":192,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/191\/revisions\/192"}],"wp:attachment":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/media?parent=191"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/categories?post=191"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/tags?post=191"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}