| 5 | 1/1 | 返回列表 |
| 查看: 698 | 回復: 6 | ||
| 當前只顯示滿足指定條件的回帖,點擊這里查看本話題的所有回帖 | ||
[求助]
建立序列文件
|
||
|
如題 我想建立100個文件怎么弄? do 1=1,100 open(………………) write(……………………) end do 我想以這樣的方式創(chuàng)建100個文件,然后分別寫入數(shù)據(jù),應該怎么用? 就比如一般的open這么用,這里 open(111,file='cif',status='old') file這一項怎么寫呢? |

至尊木蟲 (職業(yè)作家)
至尊木蟲 (職業(yè)作家)
|
看看這個: |

|
2樓: Originally posted by snoopyzhao at 2011-09-10 21:25:17: 看看這個: character(len=6) :: filename do i=1,100 write(filename,'(a,i0,a)') '(cif', i, ')' open(111, file = filename, status = 'old') write(111, *).... end do character(len=6) :: filename do i=1,100 write(filename,'(a,i0,a)') '(cif', i, ')' 。!對變量filename 賦值為(cifi) open(111, file = filename, status = 'old') !。!然后file的filename變量,創(chuàng)立文件是吧? write(111, *).... end do 可不可以這樣: do i=1,100 open(111, file = i, status = 'new') write(111, *).... end do |

| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研]
|
WWW西西弗斯 2026-03-24 | 5/250 |
|
|---|---|---|---|---|
|
[考研]
|
pk3725069 2026-03-19 | 17/850 |
|
|
[考研] 資源與環(huán)境 調(diào)劑申請(333分) +7 | holy J 2026-03-21 | 7/350 |
|
|
[考研] 307求調(diào)劑 +5 | 超級伊昂大王 2026-03-24 | 5/250 |
|
|
[考研] 293求調(diào)劑 +6 | 加一一九 2026-03-24 | 6/300 |
|
|
[考研] 生物學學碩求調(diào)劑 +6 | 小羊睡著了? 2026-03-23 | 6/300 |
|
|
[考研] 081700 調(diào)劑 267分 +9 | 迷人的哈哈 2026-03-23 | 9/450 |
|
|
[考研] 一志愿中南大學化學學碩0703總分337求調(diào)劑 +5 | niko- 2026-03-22 | 5/250 |
|
|
[考研] 北科281學碩材料求調(diào)劑 +8 | tcxiaoxx 2026-03-20 | 9/450 |
|
|
[考研]
|
2117205181 2026-03-21 | 8/400 |
|
|
[考研] 317求調(diào)劑 +12 | 申子申申 2026-03-19 | 18/900 |
|
|
[考研] 求調(diào)劑一志愿海大,0703化學學碩304分,有大創(chuàng)項目,四級已過 +6 | 幸運哩哩 2026-03-22 | 10/500 |
|
|
[考研] 289材料與化工(085600)B區(qū)求調(diào)劑 +3 | 這么名字咋樣 2026-03-22 | 4/200 |
|
|
[基金申請] 山東省面上項目限額評審 +4 | 石瑞0426 2026-03-19 | 4/200 |
|
|
[考研] 286求調(diào)劑 +10 | Faune 2026-03-21 | 10/500 |
|
|
[考研] 302求調(diào)劑 +12 | 呼呼呼。。。。 2026-03-17 | 12/600 |
|
|
[考研] 求調(diào)劑 +3 | Ma_xt 2026-03-17 | 3/150 |
|
|
[考研] 一志愿 西北大學 ,070300化學學碩,總分287,雙非一本,求調(diào)劑。 +3 | 晨昏線與星海 2026-03-18 | 3/150 |
|
|
[考研] A區(qū)線材料學調(diào)劑 +5 | 周周無極 2026-03-20 | 5/250 |
|
|
[考研] 353求調(diào)劑 +3 | 拉鉤不許變 2026-03-20 | 3/150 |
|