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


至尊木蟲 (職業(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') !。。∪缓骹ile的filename變量,創(chuàng)立文件是吧? write(111, *).... end do 可不可以這樣: do i=1,100 open(111, file = i, status = 'new') write(111, *).... end do |


| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 080500求調(diào)劑 +3 | zzzzfan 2026-03-24 | 3/150 |
|
|---|---|---|---|---|
|
[考研] 299求調(diào)劑 +7 | 某某某某位 2026-03-21 | 7/350 |
|
|
[考研] 293求調(diào)劑 +6 | 加一一九 2026-03-24 | 6/300 |
|
|
[考研] 081700 調(diào)劑 267分 +9 | 迷人的哈哈 2026-03-23 | 9/450 |
|
|
[考研] 材料調(diào)劑 +5 | 匹克i 2026-03-23 | 5/250 |
|
|
[考研] 一志愿山東大學藥學學碩求調(diào)劑 +3 | 開開心心沒煩惱 2026-03-23 | 4/200 |
|
|
[考研] 07化學280分求調(diào)劑 +4 | 722865 2026-03-23 | 4/200 |
|
|
[考研] 材料專碩英一數(shù)二306 +8 | z1z2z3879 2026-03-18 | 8/400 |
|
|
[考研] 求老師收我 +3 | zzh16938784 2026-03-23 | 3/150 |
|
|
[考研] 北科281學碩材料求調(diào)劑 +8 | tcxiaoxx 2026-03-20 | 9/450 |
|
|
[考研] 一志愿華中農(nóng)業(yè)071010,總分320求調(diào)劑 +5 | 困困困困坤坤 2026-03-20 | 6/300 |
|
|
[考研] 求調(diào)劑 +7 | Auroracx 2026-03-22 | 7/350 |
|
|
[考研] 279求調(diào)劑 +5 | 紅衣隱官 2026-03-21 | 5/250 |
|
|
[考研] 265求調(diào)劑 +12 | 梁梁校校 2026-03-19 | 14/700 |
|
|
[考研] 332求調(diào)劑 +3 | 鳳凰院丁真 2026-03-20 | 3/150 |
|
|
[考研] 南昌大學材料專碩311分求調(diào)劑 +6 | 77chaselx 2026-03-20 | 6/300 |
|
|
[考研] 304求調(diào)劑 +7 | 司空. 2026-03-18 | 7/350 |
|
|
[考研] 一志愿西南交通 專碩 材料355 本科雙非 求調(diào)劑 +5 | 西南交通專材355 2026-03-19 | 5/250 |
|
|
[考研] 288求調(diào)劑,一志愿華南理工大學071005 +5 | ioodiiij 2026-03-17 | 5/250 |
|
|
[考研] 【同濟軟件】軟件(085405)考研求調(diào)劑 +3 | 2026eternal 2026-03-18 | 3/150 |
|