| 查看: 2271 | 回复: 12 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】FORTRAN90 建文件怎么用变量作文件名？【已完成】
|
|||
|
请教：用FORTRAN编程时在一个 DO 循环中要 open 文件，想用变量做文件名，该怎么实现？ 程序如下： do i=1,n open(i, 'file_i',status="unknown"  write(i,*)a,b,c end do 假定其中的变量都已经合法声明过。 也就是说在循环中要创建n个不同的文件，其中文件名 ‘file_i’ 想以 i 区分，该怎么命名呢？写成 ‘file_i’ 好像不行啊。 请达人指教，谢谢。  [ Last edited by wlscxf on 2009-8-28 at 21:34 ] |
回复此楼» 猜你喜欢
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有6人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有3人回复
-
孩子确诊有中度注意力缺陷
已经有14人回复
-
三甲基碘化亚砜的氧化反应
已经有4人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
-
AI论文写作工具：是科研加速器还是学术作弊器？
已经有3人回复
tjyl
金虫 (正式写手)
- 程序强帖: 2
- 应助: 0 (幼儿园)
- 金币: 3218.1
- 红花: 2
- 帖子: 576
- 在线: 156.6小时
- 虫号: 765184
- 注册: 2009-05-07
- 专业: 生物无机化学
- 管辖: 程序语言
★ ★ ★ ★ ★ ★ ★
wlscxf(金币+2,VIP+0):谢谢！ 8-27 19:28
wangen994(金币+5,VIP+0):哈哈，辛苦了，欢迎常来 8-28 11:11
wlscxf(金币+2,VIP+0):谢谢！ 8-27 19:28
wangen994(金币+5,VIP+0):哈哈，辛苦了，欢迎常来 8-28 11:11
|
http://bbs.pfan.cn/post-102851.html 引用比别人的现成的例子： 2. 如何用Fortran批量生成文件？ 设要生成4000个文件，文件名为AA1-AA4000，如何写循环生成文件,而不用写4000次write命令呢? 用内部文件： character(len=80) :: filename,form integer :: i do i=1,4000 select case (i) case (1:9) write(form,'(i1)') i case (10:99) write(form,'(i2)') i case (100:999) write(form,'(i3)') i case (1000:9999) write(form,'(i4)') i end select write(filename,*) "AA",trim(form),".TXT" ！这里就是让文件名为AAform.txt了 open(10,file=filename) ！你可以根据自己需要，设置文件名的规律 write(10,*) i close(10) end do stop end [ Last edited by tjyl on 2009-8-27 at 09:33 ] |
10楼2009-08-27 09:31:02
qingyun533
铁杆木虫 (著名写手)
- 应助: 0 (幼儿园)
- 贵宾: 0.015
- 金币: 7591.7
- 帖子: 1566
- 在线: 88.8小时
- 虫号: 483791
- 注册: 2007-12-26
- 专业: 凝聚态物性I:结构、力学和
2楼2009-08-25 22:47:09
tjyl
金虫 (正式写手)
- 程序强帖: 2
- 应助: 0 (幼儿园)
- 金币: 3218.1
- 红花: 2
- 帖子: 576
- 在线: 156.6小时
- 虫号: 765184
- 注册: 2009-05-07
- 专业: 生物无机化学
- 管辖: 程序语言
3楼2009-08-26 00:19:03
5楼2009-08-26 09:49:11