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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 建立序列文件
51/1返回列表
查看: 722  |  回复: 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 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求调剂 +5 翩翩一书生 2026-04-09 5/250 2026-04-10 00:11 by lwk2004
[考研] 08工学 309分求调剂 +5 Yin DY 2026-04-08 5/250 2026-04-09 20:49 by bljnqdcc
[考研] 材料专硕(0856) 339分求调剂 +9 哈哈哈鹅哈哈哈 2026-04-09 10/500 2026-04-09 20:01 by Orcid
[考研] 考研二轮调剂 +5 故人?? 2026-04-09 5/250 2026-04-09 16:44 by 271179835
[考研] 083200 初试305分 求调剂 暂不考虑跨专业 +15 Claireyyyy 2026-04-09 15/750 2026-04-09 16:11 by zhuimr
[考研] 化学工程与技术专业一志愿哈工程 291分B区 国家级大创负责人 有一作论文 +13 Emmy~ 2026-04-09 13/650 2026-04-09 14:47 by only周
[考研] 327求调剂 +10 Xxjc1107. 2026-04-06 11/550 2026-04-09 01:21 by lature00
[考研] 机械专硕273请求调剂 +6 庚申壬申 2026-04-07 6/300 2026-04-08 22:41 by bljnqdcc
[考研] 生物与医药273求调剂 +17 荔题南墙 2026-04-05 18/900 2026-04-08 19:12 by 我减肥1
[考研] 一志愿南昌大学，085600，344分求调剂 +11 调剂上岸玘 2026-04-05 12/600 2026-04-08 16:17 by luoyongfeng
[考研] 0854电子信息319求调剂（接受跨专业调剂） +5 星星不眨眼喽 2026-04-05 6/300 2026-04-07 22:16 by hemengdong
[考研] 材料求调剂 +18 一样YWY 2026-04-05 18/900 2026-04-07 15:49 by dxlg
[考研] 325 调剂 +6 QQ小虾 2026-04-07 6/300 2026-04-07 15:17 by Ccclqqq
[考研] 293求调剂 +3 勇远库爱314 2026-04-06 3/150 2026-04-07 11:15 by hugr
[考研] 考研调剂 +7 15615482637 2026-04-04 7/350 2026-04-06 22:56 by chenzhimin
[考研] 287求调剂 +3 通信学硕081000 2026-04-03 4/200 2026-04-06 21:03 by going home
[考研] 材料调剂 +5 小刘同学吖吖 2026-04-06 5/250 2026-04-06 18:34 by sherry_1901
[考研] 298求调剂 +7 manman511 2026-04-05 7/350 2026-04-05 10:29 by 唐沐儿
[考研] 313求调剂 +3 海日海日 2026-04-04 3/150 2026-04-05 07:48 by 544594351
[考研] 求调剂 +8 akdhjs 2026-04-03 8/400 2026-04-03 18:17 by 戴维ING
信息提示
关闭
请填处理意见
关闭