{"id":149,"date":"2017-09-13T10:32:49","date_gmt":"2017-09-13T13:32:49","guid":{"rendered":"http:\/\/www.professores.uff.br\/diomarcesarlobao\/?page_id=149"},"modified":"2017-09-13T10:32:49","modified_gmt":"2017-09-13T13:32:49","slug":"noadv-f","status":"publish","type":"page","link":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/noadv-f\/","title":{"rendered":"noadv.f"},"content":{"rendered":"<pre>c &lt;html&gt;\r\nc &lt;head&gt;&lt;title&gt;&lt;\/title&gt;&lt;\/head&gt;\r\nc &lt;body&gt;\r\nc &lt;pre&gt;\r\nc\r\n      program nodav\r\nc\r\nc    Demonstration of the Nonoadvance option on READ and WRITE\r\nc\r\nc    John Mahaffy  2\/24\/96\r\nc\r\n      implicit none\r\n      real a,b,c,d,w,x,y,z\r\n      integer lenrec\r\n      data w,x,y,z\/1.,2.,3.,4.\/\r\nc\r\nc    Begin executable statements\r\nc\r\n      write(*,2002,advance='no')\r\n      read (*,*) a\r\n      write(*,*) 'number =',a\r\n      open (11,file='noadv.out')\r\n      write(11,*) 'START'\r\n      write(11,2000,advance='no') w,x\r\n      write(11,2000)y,z\r\n      write(11,*) 'DONE'\r\nc&lt;name =\"rewind\"&gt;&lt;font color=\"FF0000\"&gt;\r\n      rewind(11)\r\nc&lt;\/font&gt;&lt;\/a&gt;\r\n      read(11,*)\r\nc &lt;a name=\"read\"&gt;&lt;font color=\"FF0000\"&gt;\r\n      read(11,2000,advance='no') a,b\r\nc &lt;\/font&gt;&lt;\/a&gt;\r\n      read(11,2000) c,d\r\n      print 2001, a,b,c,d\r\nc\r\nc   Try a BACKSPACE and read again\r\nc\r\nc&lt;a name=\"bspace\"&gt;&lt;font color=\"FF0000\"&gt;\r\n      backspace (11)\r\nc&lt;\/a&gt;&lt;\/font&gt;\r\n      print *, 'Re-read the record'\r\n      read(11,*) a,b,c,d\r\n      print 2001, a,b,c,d\r\n      stop\r\n 2000 format(1x,4f5.1)\r\n 2001 format ( ' a = ',f5.1,', b = ',f5.1,', c = ', f5.1,\r\n     &amp;   ', d = ',f5.1)\r\n 2002 format (' Type in a number: ')\r\n      end\r\nc &lt;\/pre&gt;\r\nc &lt;\/body&gt;\r\nc &lt;\/html&gt;\r\nc<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>c &lt;html&gt; c &lt;head&gt;&lt;title&gt;&lt;\/title&gt;&lt;\/head&gt; c &lt;body&gt; c &lt;pre&gt; c program nodav c c Demonstration of the Nonoadvance option on READ and WRITE c c John Mahaffy 2\/24\/96 c implicit none real a,b,c,d,w,x,y,z integer lenrec data w,x,y,z\/1.,2.,3.,4.\/ c c Begin executable statements c write(*,2002,advance=&#8217;no&#8217;) read (*,*) a write(*,*) &#8216;number =&#8217;,a open (11,file=&#8217;noadv.out&#8217;) write(11,*) &#8216;START&#8217; write(11,2000,advance=&#8217;no&#8217;) w,x [&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-149","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/149","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=149"}],"version-history":[{"count":1,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/149\/revisions"}],"predecessor-version":[{"id":150,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/149\/revisions\/150"}],"wp:attachment":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/media?parent=149"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/categories?post=149"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/tags?post=149"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}