 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 9 | 1/1 | 返回列表 |
| 查看: 1830 | 回復(fù): 8 | |||||
beefly專家顧問(wèn) (職業(yè)作家)
地溝油冶煉專家
|
[交流]
在Fortran程序中，自定義打印數(shù)據(jù)列數(shù)的三種方法 已有7人參與
|
|
有時(shí)候?yàn)榱吮阌跀?shù)據(jù)顯示和后期的數(shù)據(jù)處理，我們希望能控制Fortran程序打印的數(shù)據(jù)列數(shù)，但是write語(yǔ)句不允許在格式控制符中加入變量。其實(shí)通過(guò)一些技巧，這是可以實(shí)現(xiàn)的。 示例代碼如下： 首先，由用戶定義輸出的列數(shù)： 例1，打印數(shù)組a。這里利用了Fortran90引入的一個(gè)wreite選項(xiàng)advance='no'，表示打印之后不換行。注意此選項(xiàng)對(duì)Fortran 77編譯器（例如pgf77，g77）無(wú)效。每次只打印一個(gè)數(shù)組的元素，當(dāng)數(shù)據(jù)編號(hào)能被列數(shù)整除時(shí)，執(zhí)行一個(gè)空的write命令，起到換行作用。輸出為： 例2，打印數(shù)組b。這里利用字符串frmt存儲(chǔ)輸出格式，并利用write語(yǔ)句把自定義的整型列數(shù)作為字符打印到frmt，把frmt預(yù)留的第2到第5個(gè)字符位置改為用戶定義的列數(shù)。在上面的例子中，frmt改后成為( 3f11.3)。我們一般只輸出幾列到幾十列，因此預(yù)留4個(gè)字符位置一般足夠了。輸出為： 例3，打印數(shù)組c。這個(gè)例子可看作是例2的擴(kuò)展，輸出更靈活一些。不僅是列數(shù)，每個(gè)元素的輸出格式也都由用戶按照Fortran的格式定義。例如： 然后根據(jù)Fortran格式，還要把前后的括號(hào)加上。輸出如下： 用戶自定義的格式未必總是符合語(yǔ)法的。如果作為正式的程序，最好給write加上一個(gè)出錯(cuò)判斷：若給定格式的輸出無(wú)法執(zhí)行，則按照默認(rèn)格式輸出。 |
回復(fù)此樓» 本帖已獲得的紅花（最新10朵）
» 猜你喜歡
一志愿河北工業(yè)大學(xué)0817化工278分求調(diào)劑
已經(jīng)有15人回復(fù)
-
085601材料工程找調(diào)劑
已經(jīng)有15人回復(fù)
-
材料與化工272求調(diào)劑
已經(jīng)有15人回復(fù)
-
085600 286分 材料求調(diào)劑
已經(jīng)有10人回復(fù)
-
南京大學(xué)化學(xué)調(diào)劑
已經(jīng)有14人回復(fù)
-
一志愿北京工業(yè)大學(xué)，324分求調(diào)劑
已經(jīng)有6人回復(fù)
-
求調(diào)劑
已經(jīng)有5人回復(fù)
-
281求調(diào)劑
已經(jīng)有6人回復(fù)
-
26申博自薦
已經(jīng)有6人回復(fù)
-
一志愿哈爾濱工業(yè)大學(xué)材料與化工方向336分
已經(jīng)有10人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 急：求用Fortran或者其他語(yǔ)言編寫一個(gè)程序，處理下面的數(shù)據(jù)！�。。。。。。。�！
已經(jīng)有37人回復(fù)
- Fortran怎么從一個(gè)dat文件中讀取不同類型數(shù)據(jù)賦值給不同的變量？
已經(jīng)有8人回復(fù)
- Fortran如何讀取不確定行數(shù)的數(shù)據(jù)
已經(jīng)有3人回復(fù)
- 高分求將我的MATLAB程序改寫為FORTRAN程序（1000BB）
已經(jīng)有13人回復(fù)
- Fortran輸出二進(jìn)制數(shù)據(jù)，用matlab讀出，結(jié)果出錯(cuò)，求助問(wèn)題何在？
已經(jīng)有4人回復(fù)
- fortran編譯中$符號(hào)的使用
已經(jīng)有4人回復(fù)
- fortran程序在SSH計(jì)算中心上運(yùn)行的問(wèn)題！
已經(jīng)有13人回復(fù)
- 請(qǐng)教一下CFX如何導(dǎo)入FORTRAN用戶自定義程序
已經(jīng)有5人回復(fù)
- 關(guān)于復(fù)數(shù)在Fortran中如何定義的問(wèn)題
已經(jīng)有3人回復(fù)
- 用Fortran編寫程序輸出的數(shù)據(jù)一般用什么程序作圖比較好？
已經(jīng)有28人回復(fù)
- fortran，帶字符的數(shù)據(jù)讀取與存儲(chǔ)！
已經(jīng)有11人回復(fù)
- 一個(gè)主程序，一個(gè)subroutine程序，要如何將兩個(gè)程序組合在fortran里運(yùn)行
已經(jīng)有4人回復(fù)
- fortran中如何處理字符和數(shù)據(jù)混合的文件
已經(jīng)有6人回復(fù)
- Fortran數(shù)據(jù)讀入格式的修改
已經(jīng)有5人回復(fù)
- 請(qǐng)教 fortran 運(yùn)行錯(cuò)誤的原因
已經(jīng)有13人回復(fù)
- 關(guān)于fortran中的rewind 語(yǔ)言
已經(jīng)有5人回復(fù)
- Fortran中子程序與函數(shù)的區(qū)別
已經(jīng)有7人回復(fù)
- 如何改變fortran的浮點(diǎn)精度
已經(jīng)有28人回復(fù)
- 請(qǐng)教一個(gè)fortran小程序編譯出錯(cuò)的問(wèn)題，謝謝
已經(jīng)有9人回復(fù)
- 寫了一個(gè)fortran90的小程序，編譯通不過(guò)，請(qǐng)大俠幫忙
已經(jīng)有59人回復(fù)
- 【求助】fortran中是如何實(shí)現(xiàn)將兩個(gè)變量的值在同一行進(jìn)行打印出來(lái)的
已經(jīng)有7人回復(fù)
- 【求助】fortran中怎么存儲(chǔ)不確定長(zhǎng)度的數(shù)據(jù)【已完結(jié)】
已經(jīng)有6人回復(fù)
送紅花一朵
 |
2樓2015-02-01 07:23:05
xk6891
至尊木蟲(chóng) (著名寫手)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 13735.8
- 散金: 379
- 紅花: 9
- 帖子: 1514
- 在線: 546小時(shí)
- 蟲(chóng)號(hào): 890342
- 注冊(cè): 2009-11-01
- 專業(yè): 理論和計(jì)算化學(xué)
3樓2015-02-01 22:31:00
qchem
鐵桿木蟲(chóng) (著名寫手)
- 應(yīng)助: 280 (大學(xué)生)
- 金幣: 6871.6
- 散金: 1411
- 紅花: 43
- 帖子: 2586
- 在線: 669.2小時(shí)
- 蟲(chóng)號(hào): 183011
- 注冊(cè): 2006-02-12
- 專業(yè): 理論和計(jì)算化學(xué)
4樓2015-02-01 23:50:26
5樓2015-02-02 00:23:04
yebin2006
木蟲(chóng) (小有名氣)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 5042
- 散金: 19
- 帖子: 78
- 在線: 128.7小時(shí)
- 蟲(chóng)號(hào): 1269098
- 注冊(cè): 2011-04-18
- 性別: GG
- 專業(yè): 電力系統(tǒng)
6樓2015-02-02 00:28:53
pippi6
鐵桿木蟲(chóng) (著名寫手)
工程和科學(xué)數(shù)值計(jì)算咨詢
- 應(yīng)助: 413 (碩士)
- 貴賓: 0.002
- 金幣: 7116.5
- 散金: 15
- 紅花: 63
- 帖子: 1639
- 在線: 798.9小時(shí)
- 蟲(chóng)號(hào): 2469437
- 注冊(cè): 2013-05-14
- 專業(yè): 計(jì)算數(shù)學(xué)與科學(xué)工程計(jì)算
"7樓2015-02-02 22:40:40
beefly
專家顧問(wèn) (職業(yè)作家)
地溝油冶煉專家
-
專家經(jīng)驗(yàn): +458 - 應(yīng)助: 88 (初中生)
- 金幣: 13022.2
- 散金: 27307
- 紅花: 300
- 帖子: 4673
- 在線: 927.1小時(shí)
- 蟲(chóng)號(hào): 408372
- 注冊(cè): 2007-06-21
- 性別: GG
- 專業(yè): 理論和計(jì)算化學(xué)
- 管轄: 計(jì)算模擬
8樓2015-02-02 22:58:17
★
小木蟲(chóng): 金幣+0.5, 給個(gè)紅包，謝謝回帖
小木蟲(chóng): 金幣+0.5, 給個(gè)紅包，謝謝回帖
|
本帖內(nèi)容被屏蔽 |
9樓2015-06-30 05:19:58
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 beefly 的主題更新
| 9 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 南京大學(xué)化學(xué)調(diào)劑 +9 | 景隨風(fēng) 2026-03-29 | 14/700 |
|
|---|---|---|---|---|
|
|
[碩博家園] 求調(diào)劑 有機(jī)化學(xué)考研356分 +4 | Nadiums 2026-03-25 | 5/250 |
|
|
[考研] 300求調(diào)劑，材料科學(xué)英一數(shù)二 +10 | leaflight 2026-03-24 | 10/500 |
|
|
|
[考研] 求調(diào)劑 +9 | 張zz111 2026-03-27 | 10/500 |
|
|
|
[考研] 295材料工程專碩求調(diào)劑 +7 | 1428151015 2026-03-27 | 7/350 |
|
|
|
[考研] 085701環(huán)境工程，267求調(diào)劑 +16 | minht 2026-03-26 | 16/800 |
|
|
|
[考研] 復(fù)試調(diào)劑，一志愿南農(nóng)083200食品科學(xué)與工程 +5 | XQTJZ 2026-03-26 | 5/250 |
|
|
|
[考研] 316求調(diào)劑 +5 | Pigcasso 2026-03-24 | 5/250 |
|
|
|
[考研] 考研調(diào)劑 +10 | 呼呼？~+123456 2026-03-24 | 10/500 |
|
|
|
[考研] 材料求調(diào)劑 +5 | .m.. 2026-03-25 | 5/250 |
|
|
|
[考研] 333求調(diào)劑 +6 | wfh030413@ 2026-03-23 | 6/300 |
|
|
|
[考研]
 085602 289分求調(diào)劑
+8
|
WWW西西弗斯 2026-03-24 | 8/400 |
|
|
|
[考研] 環(huán)境專碩324分求調(diào)劑推薦 +5 | 軒小寧—— 2026-03-26 | 5/250 |
|
|
|
[考研] 290分調(diào)劑求助 +3 | 吉祥止止陳 2026-03-25 | 3/150 |
|
|
|
[考研] 0854人工智能方向招收調(diào)劑 +4 | 章小魚(yú)567 2026-03-24 | 4/200 |
|
|
|
[考研] 340求調(diào)劑 +5 | 話梅糖111 2026-03-24 | 5/250 |
|
|
|
[考研] 調(diào)劑 +4 | 13853210211 2026-03-24 | 4/200 |
|
|
|
[考研] 求調(diào)劑 +6 | 研研，接電話 2026-03-24 | 7/350 |
|
|
|
[考研] 277分求調(diào)劑，跨調(diào)材料 +3 | 考研調(diào)劑lxh 2026-03-24 | 3/150 |
|
|
|
[考研] 328求調(diào)劑 +4 | LHHL66 2026-03-23 | 4/200 |
|