| 2 | 1/1 | 返回列表 |
| 查看: 442 | 回復: 1 | |||
kaokaokao789鐵桿木蟲 (正式寫手)
|
[求助]
fortran從txt文件中讀入數據的問題 已有1人參與
|
| 求助,我現在有一個txt文件,里面放著我編程要用的數據,怎么樣讀取數據 并對第三列的數據求和!感激不盡! |

鐵桿木蟲 (著名寫手)
工程和科學數值計算咨詢
|
結果是 i= 1048576 xx= 780331059.926095 程序如下 ! flag subroutine TestRead3 implicit none real*8 :: x1,x2,x3,xx integer :: i open(20,file='o50.dat',status='old') xx=0d0 i=0 do read(20,*,end=8341) x1,x2,x3 i=i+1 xx=xx+x3 end do 8341 continue close(20) print*,' i=',i,' xx=',xx stop end subroutine TestRead3 |
| 2 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 材料求調劑 一志愿哈工大總分298分,前三科223分 +7 | dongfang59 2026-03-27 | 7/350 |
|
|---|---|---|---|---|
|
[考研] 一志愿北化085600材料專碩275|有文章專利|求調劑 +8 | Micky11223 2026-03-25 | 8/400 |
|
|
[考研] 一志愿鄭州大學,080500學碩,總分317分求調劑 +10 | 舉個栗子oi 2026-03-24 | 11/550 |
|
|
[考研] 292求調劑 +13 | 是妍子也是研子 2026-03-30 | 13/650 |
|
|
[考研] 334分 一志愿武理 材料求調劑 +16 | 李李不服輸 2026-03-26 | 16/800 |
|
|
[考研] 328求調劑 +8 | 嗯滴的基本都 2026-03-27 | 8/400 |
|
|
[考研] 296求調劑 +10 | 彼岸t 2026-03-29 | 10/500 |
|
|
[考博] 26申博自薦 +6 | whh869393 2026-03-24 | 6/300 |
|
|
[考研] 312,生物學求調劑 +3 | 小譯同學abc 2026-03-28 | 3/150 |
|
|
[材料工程] 一志愿C9材料與化工專業(yè)總分300求調劑 +8 | 曼111 2026-03-24 | 9/450 |
|
|
[考研] 330一志愿中國海洋大學 化學工程 085602 有讀博意愿 求調劑 +3 | wywy.. 2026-03-27 | 4/200 |
|
|
[考研] 265求調劑 +8 | 小木蟲085600 2026-03-27 | 8/400 |
|
|
[考研] 085600,材料與化工321分調劑 +4 | 大饞小子 2026-03-27 | 6/300 |
|
|
[考研] 314求調劑 +3 | 溪云珂 2026-03-26 | 3/150 |
|
|
[考研] 調劑推薦 +5 | 清酒714 2026-03-26 | 6/300 |
|
|
[碩博家園] 北京林業(yè)大學碩導招生廣告 +6 | kongweilin 2026-03-26 | 8/400 |
|
|
[考研] 機械學碩310分,數一英一,一志愿211本科雙非找調劑信息 +3 | @357 2026-03-25 | 3/150 |
|
|
[考研] 281求調劑 +6 | Koxui 2026-03-24 | 7/350 |
|
|
[考研] 機械學碩總分317求調劑。。! +4 | Acaciad 2026-03-25 | 4/200 |
|
|
[考研] 材料與化工304求B區(qū)調劑 +3 | 邱gl 2026-03-25 | 3/150 |
|