| 查看: 2415 | 回复: 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 ] |
回复此楼» 猜你喜欢
299求调剂
已经有8人回复
-
一志愿北京理工大学本科211材料工程294求调剂
已经有6人回复
-
300求调剂，材料科学英一数二
已经有8人回复
-
招收生物学/细胞生物学调剂
已经有5人回复
-
070305高分子化学与物理 304分求调剂
已经有7人回复
-
289求调剂
已经有13人回复
-
一志愿哈尔滨工业大学材料与化工方向336分
已经有9人回复
-
081200-11408-276学硕求调剂
已经有6人回复
-
调剂求院校招收
已经有5人回复
-
调剂310
已经有8人回复
qingyun533
铁杆木虫 (著名写手)
- 应助: 0 (幼儿园)
- 贵宾: 0.015
- 金币: 7972.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
stred
至尊木虫 (文坛精英)
蓝翔技校优秀毕业生
- 应助: 54 (初中生)
- 贵宾: 0.367
- 金币: 35115.1
- 散金: 126
- 红花: 26
- 帖子: 11483
- 在线: 250.5小时
- 虫号: 319944
- 注册: 2007-03-09
- 性别: GG
- 专业: 有机合成
4楼2009-08-26 02:32:14
5楼2009-08-26 09:49:11
6楼2009-08-26 16:09:16
7楼2009-08-26 18:10:45
/ '01', '02', '03', '04', '05', '06', ....,'50' /)8楼2009-08-26 18:24:27
tjyl
金虫 (正式写手)
- 程序强帖: 2
- 应助: 0 (幼儿园)
- 金币: 3218.1
- 红花: 2
- 帖子: 576
- 在线: 156.6小时
- 虫号: 765184
- 注册: 2009-05-07
- 专业: 生物无机化学
- 管辖: 程序语言
9楼2009-08-27 09:28:03
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
