| 5 | 1/1 | 返回列表 |
| 查看: 1836 | 回復: 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í)行,則按照默認格式輸出。 |

|
本帖內(nèi)容被屏蔽 |
鐵桿木蟲 (著名寫手)

木蟲 (小有名氣)

| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 生物考研337分求調(diào)劑 +3 | cgxin 2026-03-30 | 4/200 |
|
|---|---|---|---|---|
|
[考研] 求調(diào)劑,一志愿 南京航空航天大學 ,080500材料科學與工程學碩,總分289分 +9 | @taotao 2026-03-29 | 9/450 |
|
|
[考研] 合肥區(qū)域性重點一本招收調(diào)劑 +4 | 6266jl 2026-03-30 | 4/200 |
|
|
[考研] 環(huán)境工程 085701,267求調(diào)劑 +7 | minht 2026-03-29 | 7/350 |
|
|
[考研] 286分調(diào)劑 +10 | Faune 2026-03-30 | 11/550 |
|
|
[考研] 生物學學碩,一志愿湖南大學,初試成績338 +7 | YYYYYNNNNN 2026-03-26 | 9/450 |
|
|
[考研] 332求調(diào)劑 +14 | 032500 2026-03-25 | 14/700 |
|
|
[考研] 一志愿哈爾濱工業(yè)大學材料與化工方向336分 +12 | 辰沐5211314 2026-03-26 | 12/600 |
|
|
[考研] 287求調(diào)劑 +14 | land xuxu 2026-03-26 | 14/700 |
|
|
[考研] 290求調(diào)劑 +3 | dfffsar 2026-03-29 | 3/150 |
|
|
[考研] 一志愿北京工業(yè)大學,324分求調(diào)劑 +6 | 零八# 2026-03-28 | 6/300 |
|
|
[考研] 299求調(diào)劑 +10 | 15188958825 2026-03-25 | 10/500 |
|
|
[考研] 0856,材料與化工321分求調(diào)劑 +12 | 大饞小子 2026-03-27 | 13/650 |
|
|
[考研] 286求調(diào)劑 +4 | 丟掉懶惰 2026-03-27 | 7/350 |
|
|
[考研] 305求調(diào)劑 +5 | 哇盧卡庫 2026-03-26 | 5/250 |
|
|
[考研] 316求調(diào)劑 +5 | Pigcasso 2026-03-24 | 5/250 |
|
|
[考研] 281求調(diào)劑 +6 | Koxui 2026-03-24 | 7/350 |
|
|
[考研] 打過很多競賽,085406控制工程300分,求調(diào)劑 +3 | askeladz 2026-03-26 | 3/150 |
|
|
[考研] 290分調(diào)劑求助 +3 | 吉祥止止陳 2026-03-25 | 3/150 |
|
|
[考研] 296求調(diào)劑 +4 | 汪。! 2026-03-25 | 7/350 |
|