应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 建立序列文件
51/1返回列表
查看: 683  |  回复: 6
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

贺仪

铁杆木虫 (著名写手)

[求助] 建立序列文件

如题 我想建立100个文件怎么弄？
do 1=1,100
   open(………………)
   write（……………………）
end do
我想以这样的方式创建100个文件，然后分别写入数据，应该怎么用？
就比如一般的open这么用，这里
open(111,file='cif',status='old')
file这一项怎么写呢？
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
嘟啦啦嘟啦啦嘟
1楼 2011-09-10 21:07:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

贺仪

铁杆木虫 (著名写手)
write(filename,'(a,i0,a)') '(cif', i, ')'
这里面的a,是什么作用？
赞一下 回复此楼
嘟啦啦嘟啦啦嘟
5楼2011-09-10 23:10:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 7 个回答

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★
贺仪(金币+25): 恩 很好！刚才试过了。不过能不能稍微解释一下？ 2011-09-10 23:01:52
xzhdty(金币+2): 中秋快乐，欢迎常来 2011-09-10 23:29:39
看看这个：
CODE:
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
赞一下(1人) 回复此楼
2楼2011-09-10 21:25:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

贺仪

铁杆木虫 (著名写手)
引用回帖:
2楼: Originally posted by snoopyzhao at 2011-09-10 21:25:17:
看看这个：
CODE:
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


恩  挺好的方法！！！多谢咯！
赞一下 回复此楼
嘟啦啦嘟啦啦嘟
3楼2011-09-10 23:01:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

贺仪

铁杆木虫 (著名写手)
引用回帖:
2楼: Originally posted by snoopyzhao at 2011-09-10 21:25:17:
看看这个：
CODE:
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变量，创立文件是吧？
   write(111, *)....
end do
可不可以这样：
do i=1,100
   open(111, file = i, status = 'new')
   write(111, *)....
end do
赞一下 回复此楼
嘟啦啦嘟啦啦嘟
4楼2011-09-10 23:03:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 7 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 304求调剂 +8 小熊joy 2026-03-14 8/400 2026-03-17 17:29 by ruiyingmiao
[考研] 304求调剂 +4 ahbd 2026-03-14 4/200 2026-03-16 16:48 by 我的船我的海
[考研] 321求调剂 +5 大米饭！ 2026-03-15 5/250 2026-03-16 16:33 by houyaoxu
[考研] 一志愿华中师范071000，325求调剂 +6 RuitingC 2026-03-12 6/300 2026-03-16 14:50 by 可淡不可忘
[考研] 294求调剂 +3 Zys010410@ 2026-03-13 4/200 2026-03-15 10:59 by zhq0425
[考研] 288求调剂 +4 奇点0314 2026-03-14 4/200 2026-03-14 23:04 by JourneyLucky
[考研] 080500，材料学硕302分求调剂学校 +4 初识可乐 2026-03-14 5/250 2026-03-14 21:08 by peike
[考研] 复试调剂 +4 z1z2z3879 2026-03-14 5/250 2026-03-14 16:30 by JourneyLucky
[考研] 285 求调剂 资源与环境 一志愿北京化工大学 +3 未名考生 2026-03-10 3/150 2026-03-13 23:04 by JourneyLucky
[考研] 332求调剂 +3 zjy101327 2026-03-11 6/300 2026-03-13 22:48 by JourneyLucky
[考研] 0703化学调剂 +4 快乐的香蕉 2026-03-11 4/200 2026-03-13 22:41 by JourneyLucky
[考研] 一志愿中科院，化学方向，295求调剂 +4 一氧二氮 2026-03-11 4/200 2026-03-13 22:35 by JourneyLucky
[考研] 336求调剂 +6 Iuruoh 2026-03-11 6/300 2026-03-13 22:06 by JourneyLucky
[考研] 0856材料与化工301求调剂 +5 奕束光 2026-03-13 5/250 2026-03-13 22:00 by 星空星月
[考研] 304求调剂 +7 7712b 2026-03-13 7/350 2026-03-13 21:42 by peike
[考研] 材料工程调剂 +4 咪咪空空 2026-03-11 4/200 2026-03-13 19:57 by JourneyLucky
[考研] 考研调剂 +4 芬达46 2026-03-12 4/200 2026-03-13 16:04 by ruiyingmiao
[考研] 一志愿山大07化学 332分 四六级已过 本科山东双非 求调剂！ +3 不想理你 2026-03-12 3/150 2026-03-13 14:18 by JourneyLucky
[考博] 福州大学杨黄浩课题组招收2026年专业学位博士研究生，2026.03.20截止 +3 Xiangyu_ou 2026-03-12 3/150 2026-03-13 09:36 by duanwu655
[考研] 290求调剂 +3 柯淮然 2026-03-10 8/400 2026-03-11 13:48 by 柯淮然
信息提示
关闭
请填处理意见
关闭