Skip to main content

Diigo Home

Fortran プログラミングの基礎知識 - The Diigo Meta page

www.uopmu.ees.osakafu-u.ac.jp/...fortran.html - Cached

This link has been bookmarked by 3 people . It was first bookmarked on 02 Aug 2006, by (ta).

  • 09 Nov 07
    mru17920
    Mr U1

    fortran

    • read 文と write 文における改行



      Fortran は C とは違い、write 文を 1 回実行する度に
      改行を行います。ゆえに、

      <br />(1) do i=1,n<br /> write(6,*) a(i)<br /> end do<br /><br />(2) write(6,*) (a(i),i=1,n)<br /><br />では異なる結果となります。(1) では一つの要素毎に<br />改行するのに対して、(2) では全ての要素を空白で繋げて<br />出力したのち改行します。write の場合よりもっと厄介なのが read です。<br />read は 1 行読んだ後に改行します。<br /><xmp /><br /> ----- ファイル data の内容 -----<br />1 2 3<br />4 5 6<br />7 8 9<br />10 11 12<br /> 空行<br />13 14 15<br /><br /> ----- プログラム -----<br /><br /> dimension b(4),c(4)<br /><br /> open(1,file='data')<br /> read(1,*) a<br /> read(1,*) (b(i),i=1,2)<br /> read(1,*) c &lt;---- (c(i),i=1,4) と同じ<br /> read(1,*) d<br /><br />まず a に 1 が入るのは誰でも分かるでしょう。<br />次の b(1) には何が入るか？　read 文は読み込み実行後に<br />改行するので、b(1) には次の行の 4 が入ります。b(2) は 5 です。<br />次の c(1) ～ c(4) はどうなるでしょうか。b(2) を読み込んだ後に<br />改行するので、c(1) は 7 です。そして c(2) = 8, c(3) = 9 と<br />入り、c(4) のところでその行には読み込むべきデータがなくなって<br />しまいます。このときはデータが見つかるまで改行をして c(4) には<br />次の行の 10 が入ります。d は 13 です。</p></div></div> </div><!--highlight--> </li><!-- annotation --> </ul> </li> <li class="item clearfix" id="user_1"> <div class="timestamp">24 Apr 07</div> <div class="bItem"> <a class="avatarLink avatarPopup" title="kzhk75" href="/profile/kzhk75"> <img src="http://resources.diigo.com/images/avatar/user/kzhk75_48.jpg" alt="kzhk75" /> </a><!--avatar--> <div class="cInfo"> <a title="kzhk75's profile" href="/profile/kzhk75" username="kzhk75" >Kazuhiko Uebayashi</a> <p class="tagspan"> <a href="/tag/fortran">fortran</a> <a href="/tag/%E5%9F%BA%E7%A4%8E%E7%9F%A5%E8%AD%98">基礎知識</a> </p> </div><!--cInfo--> </div> <ul class="annotations"> <li class="aItem"> <div class="highlight private"> <div class="diigoContent"><div class="diigoContentInner">Fortran プログラミングの基礎知識</div></div> </div><!--highlight--> </li><!-- annotation --> </ul> </li> <li class="item clearfix" id="user_2"> <div class="timestamp">02 Aug 06</div> <div class="bItem"> <a class="avatarLink avatarPopup" title="pm0901" href="/profile/pm0901"> <img src="http://resources.diigo.com/images/avatar/user/pm0901_48.jpg" alt="pm0901" /> </a><!--avatar--> <div class="cInfo"> <a title="pm0901's profile" href="/profile/pm0901" username="pm0901" >(ta) </a> <p class="tagspan"> <a href="/tag/fortran">fortran</a> <a href="/tag/programming">programming</a> <a href="/tag/reference">reference</a> <a href="/tag/tips">tips</a> </p> </div><!--cInfo--> </div> </li> </ul> </div> <div id="comments" style="display:none"> <ul id="commentsUL"></ul> <div class="gutter"></div> <h3>Would you like to comment?</h3> <p><a href="/sign-up?referInfo=http%3A%2F%2Fwww.diigo.com%2Fbookmark%2Fhttp%253A%252F%252Fwww.uopmu.ees.osakafu-u.ac.jp%252F%7Eyabu%252Fsoft%252Ffortran.html%3Ftab%3Dpeople%26uname%3Dpm0901">Join Diigo</a> for a free account, or <a href="/sign-in?referInfo=http%3A%2F%2Fwww.diigo.com%2Fbookmark%2Fhttp%253A%252F%252Fwww.uopmu.ees.osakafu-u.ac.jp%252F%7Eyabu%252Fsoft%252Ffortran.html%3Ftab%3Dpeople%26uname%3Dpm0901">sign in</a> if you are already a member.</p> </div> </div> </div> </div> </div><!--leftcolumn--> <div id="rightColumn"> <div id="innerRightColumn"> <div class="sideBox"> <h3 class="bTitle">Top Tags</h3> <div id="urlTags" class="content"> <div class="contentInner"> <ul class="tagspan clearfix"> <li><a href="/tag/fortran">fortran</a></li> <li><a href="/tag/reference">reference</a></li> <li><a href="/tag/tips">tips</a></li> </ul> </div> </div> </div><!--end tags--> <div id="otherLinks" class="sideBox"> <div class="content"> <div class="contentInner"> <a style="font-size:13px;line-height:1.2;" href="/community/site/www.uopmu.ees.osakafu-u.ac.jp">Other bookmarks from the site <span class="green">www.uopmu.ees.osakafu-u.ac.jp</span> &raquo;</a> </div> </div> </div> <div id="checkAnotherURL" class="sideBox"> <h3 class="bTitle">Check out another URL</h3> <div class="content"> <div class="contentInner"> <form onsubmit="submitAnotherURL();return false"> <input id="checkAnotherURLInput" name="url" type="text" class="inputTxt2" onblur="anotherURLonblur();" onfocus="anotherURLonfocus();" /> <input type="submit" value="Go" /> </form> </div> </div> </div> <script type="text/javascript"> var anotherURLHint = "e.g. www.diigo.com"; function anotherURLonblur(){ var el = $("checkAnotherURLInput"); el.setStyle({"color":"#999"}) if(el.value==""){ el.value = anotherURLHint; } } function anotherURLonfocus(){ var el = $("checkAnotherURLInput"); el.setStyle({"color":"#000"}) if(el.value==anotherURLHint){ el.value = ""; } } anotherURLonblur(); function submitAnotherURL(){ var url = $("checkAnotherURLInput").value; document.location= BOOKMARK_HOST + "/bookmark/"+encodeURIComponent(url); } </script> <script type="text/javascript"><!-- window.google_analytics_uacct = "UA-295754-15"; google_ad_client = "pub-7625644023173335"; /* Metapage, 234x60, Right bottom. */ google_ad_slot = "7159274200"; google_ad_width = 234; google_ad_height = 60; google_hints = "fortran reference tips"; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> </div> </div><!--rightcolumn--> </div><!--column--> <div class="footerAD"> <script type="text/javascript"><!-- window.google_analytics_uacct = "UA-295754-15"; google_ad_client = "pub-7625644023173335"; /* www-v3.5-footer */ google_ad_slot = "8836407132"; google_ad_width = 728; google_ad_height = 90; google_hints = "fortran reference tips"; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> </div> </div><!--main--> <div class="clear"></div> <script src="/javascripts/lib/diigo_bookmark.js?1262053211" type="text/javascript"></script> <script src="/javascripts/lib/parse_tags.js?1219836720" type="text/javascript"></script> <link href="/stylesheets/../front-end-utils/front-end-utils.css?1254130448" media="screen" rel="stylesheet" type="text/css" /> <script src="/javascripts/../front-end-utils/front-end-utils.js?1254130448" type="text/javascript"></script> <script type="text/javascript"> function initDiigo() { for(var i=0; i<window.onloadListeners.length;i++) { var func = window.onloadListeners[i]; func.call(); } } window.onloadListeners = []; window.addOnLoadListener = function(listener) { window.onloadListeners[window.onloadListeners.length] = listener; } var _GLOBAL_VAR = {}; _GLOBAL_VAR['my_name'] = ""; var D_DOMAIN = ".diigo.com"; var BOOKMARK_HOST = "http://www.diigo.com"; var GROUP_HOST = "http://groups.diigo.com"; var RESOURCE_HOST = "http://resources.diigo.com"; var SLIDES_HOST = "http://slides.diigo.com" var MESSAGE_HOST = "http://message.diigo.com" var USER_AVATAR_URI = RESOURCE_HOST+"/images/avatar/user"; document.observe("dom:loaded", initDiigo); // IE6 Background image flickers on hover if(BrowserVersion.isIE6){ try {document.execCommand("BackgroundImageCache", false, true);} catch(e) {} } </script> <script src="/javascripts/bookmark_new.js?1260519918" type="text/javascript"></script> <script src="/javascripts/all_about_url.js?1261121284" type="text/javascript"></script> <script type="text/javascript"> var a = 1; _GLOBAL_VAR["bookmarked"] = false; _GLOBAL_VAR["link"] = { link_id:892976, title:"Fortran プログラミングの基礎知識", url_md5:"17360c18f9d55da4bd48c8a300ec8e8c", url:"http://www.uopmu.ees.osakafu-u.ac.jp/~yabu/soft/fortran.html", tags:"fortran,reference,tips,programming,基礎知識", preview_url:"http://www.uopmu.ees.osakafu-u.ac.jp/~yabu/soft/fortran.html"} handleWindowResize(); window.onresize = handleWindowResize; </script> <script type="text/javascript">window.addOnLoadListener(function(){new AvatarPopup()});</script> </body> </html>