 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1834 | 回復: 8 | |||||
| 當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | |||||
beefly專家顧問 (職業(yè)作家)
地溝油冶煉專家
|
[交流]
在Fortran程序中，自定義打印數(shù)據(jù)列數(shù)的三種方法 已有7人參與
|
||||
|
有時候為了便于數(shù)據(jù)顯示和后期的數(shù)據(jù)處理，我們希望能控制Fortran程序打印的數(shù)據(jù)列數(shù)，但是write語句不允許在格式控制符中加入變量。其實通過一些技巧，這是可以實現(xiàn)的。 示例代碼如下： 首先，由用戶定義輸出的列數(shù)： 例1，打印數(shù)組a。這里利用了Fortran90引入的一個wreite選項advance='no'，表示打印之后不換行。注意此選項對Fortran 77編譯器（例如pgf77，g77）無效。每次只打印一個數(shù)組的元素，當數(shù)據(jù)編號能被列數(shù)整除時，執(zhí)行一個空的write命令，起到換行作用。輸出為： 例2，打印數(shù)組b。這里利用字符串frmt存儲輸出格式，并利用write語句把自定義的整型列數(shù)作為字符打印到frmt，把frmt預留的第2到第5個字符位置改為用戶定義的列數(shù)。在上面的例子中，frmt改后成為( 3f11.3)。我們一般只輸出幾列到幾十列，因此預留4個字符位置一般足夠了。輸出為： 例3，打印數(shù)組c。這個例子可看作是例2的擴展，輸出更靈活一些。不僅是列數(shù)，每個元素的輸出格式也都由用戶按照Fortran的格式定義。例如： 然后根據(jù)Fortran格式，還要把前后的括號加上。輸出如下： 用戶自定義的格式未必總是符合語法的。如果作為正式的程序，最好給write加上一個出錯判斷：若給定格式的輸出無法執(zhí)行，則按照默認格式輸出。 |
回復此樓» 本帖已獲得的紅花（最新10朵）
小范范1989» 猜你喜歡
085602化工求調(diào)劑（331分）
已經(jīng)有6人回復
-
332求調(diào)劑
已經(jīng)有13人回復
-
11408總分309，一志愿東南大學求調(diào)劑，不挑專業(yè)
已經(jīng)有4人回復
-
材料專碩調(diào)劑
已經(jīng)有11人回復
-
材料調(diào)劑
已經(jīng)有10人回復
-
材料科學與工程調(diào)劑
已經(jīng)有8人回復
-
307求調(diào)劑
已經(jīng)有16人回復
-
303求調(diào)劑
已經(jīng)有4人回復
-
求調(diào)劑323材料與化工
已經(jīng)有9人回復
-
266分，求材料相關(guān)專業(yè)調(diào)劑
已經(jīng)有4人回復
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 急：求用Fortran或者其他語言編寫一個程序，處理下面的數(shù)據(jù)�。。。。。。。。�！
已經(jīng)有37人回復
- Fortran怎么從一個dat文件中讀取不同類型數(shù)據(jù)賦值給不同的變量？
已經(jīng)有8人回復
- Fortran如何讀取不確定行數(shù)的數(shù)據(jù)
已經(jīng)有3人回復
- 高分求將我的MATLAB程序改寫為FORTRAN程序（1000BB）
已經(jīng)有13人回復
- Fortran輸出二進制數(shù)據(jù)，用matlab讀出，結(jié)果出錯，求助問題何在？
已經(jīng)有4人回復
- fortran編譯中$符號的使用
已經(jīng)有4人回復
- fortran程序在SSH計算中心上運行的問題！
已經(jīng)有13人回復
- 請教一下CFX如何導入FORTRAN用戶自定義程序
已經(jīng)有5人回復
- 關(guān)于復數(shù)在Fortran中如何定義的問題
已經(jīng)有3人回復
- 用Fortran編寫程序輸出的數(shù)據(jù)一般用什么程序作圖比較好？
已經(jīng)有28人回復
- fortran，帶字符的數(shù)據(jù)讀取與存儲！
已經(jīng)有11人回復
- 一個主程序，一個subroutine程序，要如何將兩個程序組合在fortran里運行
已經(jīng)有4人回復
- fortran中如何處理字符和數(shù)據(jù)混合的文件
已經(jīng)有6人回復
- Fortran數(shù)據(jù)讀入格式的修改
已經(jīng)有5人回復
- 請教 fortran 運行錯誤的原因
已經(jīng)有13人回復
- 關(guān)于fortran中的rewind 語言
已經(jīng)有5人回復
- Fortran中子程序與函數(shù)的區(qū)別
已經(jīng)有7人回復
- 如何改變fortran的浮點精度
已經(jīng)有28人回復
- 請教一個fortran小程序編譯出錯的問題，謝謝
已經(jīng)有9人回復
- 寫了一個fortran90的小程序，編譯通不過，請大俠幫忙
已經(jīng)有59人回復
- 【求助】fortran中是如何實現(xiàn)將兩個變量的值在同一行進行打印出來的
已經(jīng)有7人回復
- 【求助】fortran中怎么存儲不確定長度的數(shù)據(jù)【已完結(jié)】
已經(jīng)有6人回復
5樓2015-02-02 00:23:04
qchem
鐵桿木蟲 (著名寫手)
- 應助: 280 (大學生)
- 金幣: 6871.6
- 散金: 1411
- 紅花: 43
- 帖子: 2586
- 在線: 669.2小時
- 蟲號: 183011
- 注冊: 2006-02-12
- 專業(yè): 理論和計算化學
4樓2015-02-01 23:50:26
yebin2006
木蟲 (小有名氣)
- 應助: 1 (幼兒園)
- 金幣: 5042
- 散金: 19
- 帖子: 78
- 在線: 128.7小時
- 蟲號: 1269098
- 注冊: 2011-04-18
- 性別: GG
- 專業(yè): 電力系統(tǒng)
6樓2015-02-02 00:28:53
pippi6
鐵桿木蟲 (著名寫手)
工程和科學數(shù)值計算咨詢
- 應助: 413 (碩士)
- 貴賓: 0.002
- 金幣: 7116.5
- 散金: 15
- 紅花: 63
- 帖子: 1639
- 在線: 798.9小時
- 蟲號: 2469437
- 注冊: 2013-05-14
- 專業(yè): 計算數(shù)學與科學工程計算
"7樓2015-02-02 22:40:40
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 一志愿鄭大材料工程290求調(diào)劑 +7 | Youth_ 2026-03-30 | 7/350 |
|
|---|---|---|---|---|
|
|
[考研] 一志愿北京化工大學材料與化工（085600）296求調(diào)劑 +21 | 稻妻小編 2026-03-26 | 21/1050 |
|
|
|
[考研] 070300一志愿211，312分求調(diào)劑院校 +4 | 小黃鴨寶 2026-03-30 | 4/200 |
|
|
|
[考研] 085602 化學工程專碩 340分求調(diào)劑 +4 | qianbai11 2026-03-29 | 4/200 |
|
|
|
[考研] 085600，專業(yè)課化工原理，320分求調(diào)劑 +4 | 大饞小子 2026-03-29 | 4/200 |
|
|
[考研] 290求調(diào)劑 +3 | dfffsar 2026-03-29 | 3/150 |
|
|
|
[考研] 材料科學與工程求調(diào)劑 +6 | 深V宿舍吧 2026-03-29 | 6/300 |
|
|
|
[考研] 275求調(diào)劑 +15 | Micky11223 2026-03-25 | 20/1000 |
|
|
|
[考研] 085602 化工專碩 338分 求調(diào)劑 +12 | 路癡小琪 2026-03-27 | 12/600 |
|
|
|
[考研] 086502化學工程342求調(diào)劑 +6 | 阿姨復古不過 2026-03-27 | 6/300 |
|
|
|
[考研] 070300化學求調(diào)劑 +4 | 起個名咋這么難 2026-03-27 | 4/200 |
|
|
|
[考研] 07化學280分求調(diào)劑 +10 | 722865 2026-03-23 | 10/500 |
|
|
|
[考研] 348求調(diào)劑 +4 | 小懶蟲不懶了 2026-03-27 | 5/250 |
|
|
|
[考研] 298調(diào)劑 +3 | jiyingjie123 2026-03-27 | 3/150 |
|
|
|
[考研] 考研調(diào)劑 +9 | 小蠟新筆 2026-03-26 | 9/450 |
|
|
|
[考研] 調(diào)劑求收留 +7 | 果然有我 2026-03-26 | 7/350 |
|
|
|
[考研] 中國科學院深圳先進技術(shù)研究院-光纖傳感課題組招生-中國科學院大學、深圳理工大學聯(lián)培 +5 | YangTyu1 2026-03-26 | 5/250 |
|
|
|
[考研] 一志愿 南京郵電大學 288分 材料考研 求調(diào)劑 +3 | jl0720 2026-03-26 | 3/150 |
|
|
|
[考研] 302求調(diào)劑 +4 | 錦衣衛(wèi)藤椒 2026-03-25 | 4/200 |
|
|
|
[考研] 347求調(diào)劑 +4 | L when 2026-03-25 | 4/200 |
|