{"id":193,"date":"2017-09-13T11:06:34","date_gmt":"2017-09-13T14:06:34","guid":{"rendered":"http:\/\/www.professores.uff.br\/diomarcesarlobao\/?page_id=193"},"modified":"2017-09-13T11:06:34","modified_gmt":"2017-09-13T14:06:34","slug":"viscl-f","status":"publish","type":"page","link":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/viscl-f\/","title":{"rendered":"viscl.f"},"content":{"rendered":"<pre>      function viscl(temp)\r\nc\r\nc     function viscl evaluates the freon liquid dynamic viscosity\r\nc     as a function of liquid enthalpy and pressure\r\nc\r\nc          liquid temperature          temp   in (K)\r\nc          liquid viscosity            viscl  in (pa*s)\r\nc\r\nc\r\n      dimension tabl(4,26)\r\n      save ilast\r\n      data ilast\/10\/,ntab\/26\/\r\n      data tabl\/\r\n     &amp;  1.99826700E+02, 1.67800000E-03,-3.35700336E-05, 3.48300697E-07,\r\n     &amp;  2.10937800E+02, 1.34800000E-03,-2.58300258E-05, 3.48300697E-07,\r\n     &amp;  2.22048900E+02, 1.10400000E-03,-1.80900181E-05, 1.53900308E-07,\r\n     &amp;  2.33160000E+02, 9.22000000E-04,-1.46700147E-05, 1.78200356E-07,\r\n     &amp;  2.44271100E+02, 7.81000000E-04,-1.07100107E-05, 9.72001944E-08,\r\n     &amp;  2.55382200E+02, 6.74000000E-04,-8.55000855E-06, 6.48001296E-08,\r\n     &amp;  2.66493300E+02, 5.87000000E-04,-7.11000711E-06, 7.29001458E-08,\r\n     &amp;  2.77604400E+02, 5.17000000E-04,-5.49000549E-06, 3.24039284E-08,\r\n     &amp;  2.88715600E+02, 4.60000000E-04,-4.76991243E-06, 4.85917867E-08,\r\n     &amp;  2.99826700E+02, 4.13000000E-04,-3.69009603E-06, 1.62083430E-08,\r\n     &amp;  3.10937800E+02, 3.74000000E-04,-3.32991099E-06, 3.23917542E-08,\r\n     &amp;  3.22048900E+02, 3.41000000E-04,-2.61009495E-06, 8.31055012E-12,\r\n     &amp;  3.33160000E+02, 3.12000000E-04,-2.60991027E-06, 4.04917705E-08,\r\n     &amp;  3.44271100E+02, 2.88000000E-04,-1.71009405E-06,-2.42917380E-08,\r\n     &amp;  3.55382200E+02, 2.66000000E-04,-2.24990991E-06, 6.47918191E-08,\r\n     &amp;  3.66493300E+02, 2.49000000E-04,-8.10093149E-07,-3.23917542E-08,\r\n     &amp;  3.77604400E+02, 2.36000000E-04,-1.52990919E-06,-7.07119392E-12,\r\n     &amp;  3.88715600E+02, 2.19000000E-04,-1.53006633E-06, 5.83196499E-12,\r\n     &amp;  3.99826700E+02, 2.02000000E-04,-1.52993673E-06,-5.83196499E-12,\r\n     &amp;  4.10937800E+02, 1.85000000E-04,-1.53006633E-06,-2.42942166E-08,\r\n     &amp;  4.22048900E+02, 1.65000000E-04,-2.06993727E-06, 8.09418424E-09,\r\n     &amp;  4.33160000E+02, 1.43000000E-04,-1.89006669E-06, 5.83196499E-12,\r\n     &amp;  4.44271100E+02, 1.22000000E-04,-1.88993709E-06,-4.45559211E-08,\r\n     &amp;  4.55382200E+02, 9.55000000E-05,-2.88006768E-06, 1.78258676E-08,\r\n     &amp;  4.66493300E+02, 6.57000000E-05,-2.48393768E-06,-1.07120525E-06,\r\n     &amp;  4.70937800E+02, 3.35000000E-05, 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      viscl=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 viscl(temp) c c function viscl evaluates the freon liquid dynamic viscosity c as a function of liquid enthalpy and pressure c c liquid temperature temp in (K) c liquid viscosity viscl in (pa*s) c c dimension tabl(4,26) save ilast data ilast\/10\/,ntab\/26\/ data tabl\/ &amp; 1.99826700E+02, 1.67800000E-03,-3.35700336E-05, 3.48300697E-07, &amp; 2.10937800E+02, 1.34800000E-03,-2.58300258E-05, 3.48300697E-07, &amp; 2.22048900E+02, 1.10400000E-03,-1.80900181E-05, [&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-193","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/193","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=193"}],"version-history":[{"count":1,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/193\/revisions"}],"predecessor-version":[{"id":194,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/193\/revisions\/194"}],"wp:attachment":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/media?parent=193"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/categories?post=193"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/tags?post=193"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}