{"id":87,"date":"2017-09-11T15:26:45","date_gmt":"2017-09-11T18:26:45","guid":{"rendered":"http:\/\/www.professores.uff.br\/diomarcesarlobao\/?page_id=87"},"modified":"2017-09-11T15:26:45","modified_gmt":"2017-09-11T18:26:45","slug":"debug1-f","status":"publish","type":"page","link":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/debug1-f\/","title":{"rendered":"debug1.f"},"content":{"rendered":"<pre> program debug1\r\nc\r\nc       John Mahaffy,  Penn State University, CmpSc 201 Example\r\nc       1\/26\/96\r\nc\r\nc\r\nc     Program to demonstrate debugging process\r\nc\r\nc     John Mahaffy, 1\/23\/96\r\nc\r\n      implicit none\r\n      real mass1, mass2, vel1,vel2\r\n      real avmass, ketot , avvel\r\n      data mass1,mass2,vel1,vel2 \/1.0,1.0,1.0,1.0\/\r\nc\r\nc     mass1, and mass2 are the masses of two objects\r\nc     vel1 and vel2 are there respective velocities\r\nc     avmass and avvel are the mean values of mass and velocity respectively\r\nc     ketot is the total kinetic energy of the two objects\r\nc\r\nc\r\nc     calulate the mean value of system masses\r\nc\r\n      call meanval(2,mass1,mass2,vel1,vel2,avmass,avvel)\r\nc\r\nc     calculate the total kinetic energy\r\nc\r\n      ketot=    (mass1*vel1**2+mass2*vel2**2)\/2.0\r\n      print *, 'Mean mass is: ', avmass\r\n      print *, 'Mean velocity is: ', avvel\r\n      print *, 'Total Kinetic Energy is: ', ketot\r\n      stop\r\n      end\r\n      subroutine meanval(rwf,x1,x2,y1,y2,xmean,ymean)\r\nc\r\nc     calculate a weighted mean for two pairs of numbers based\r\nc     on a reciprocal weighting factor\r\nc\r\nc     John Mahaffy 6\/07\/95\r\nc\r\n      implicit none\r\n      real rwf,x1,x2,y1,y2,xmean,ymean\r\nc\r\nc     rwf - reciprocal weighting factor converted to standard weighting factor\r\nc     x1,x2 -  first pair of numbers\r\nc     xmean -  weighted mean of first pair of numbers\r\nc     y1,y2 -  second pair of numbers\r\nc     ymean -  weighted mean of second pair of numbers\r\nc\r\n      rwf=1.\/rwf\r\n      xmean=rwf*x1+(1.-rwf)*x2\r\n      ymean=rwf*y1+(1.-rwf)*y2\r\n      return\r\n      end<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>program debug1 c c John Mahaffy, Penn State University, CmpSc 201 Example c 1\/26\/96 c c c Program to demonstrate debugging process c c John Mahaffy, 1\/23\/96 c implicit none real mass1, mass2, vel1,vel2 real avmass, ketot , avvel data mass1,mass2,vel1,vel2 \/1.0,1.0,1.0,1.0\/ c c mass1, and mass2 are the masses of two objects c vel1 [&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-87","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/87","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=87"}],"version-history":[{"count":1,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/87\/revisions"}],"predecessor-version":[{"id":88,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/87\/revisions\/88"}],"wp:attachment":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/media?parent=87"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/categories?post=87"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/tags?post=87"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}