24小时热门版块排行榜    

Znn3bq.jpeg
查看: 2471  |  回复: 12
当前主题已经存档。
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

wlscxf

铜虫 (小有名气)

[交流] 【求助】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 ]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tjyl

金虫 (正式写手)


小木虫(金币+0.5):给个红包,谢谢回帖交流
http://docs.sun.com/app/docs/doc/820-1204/aeubm?a=view
引用回帖:
Originally posted by wlscxf at 2009-8-26 18:24:

麻烦能不能说的更详细些?我试了不行啊。
x是表示什么?需要事先声明吗?
我是想在一个循环中打开文件,所以文件名要不同。

我现在是用数组表示的,也就是1楼的方法,声明一个很长的数组:
character(len ...

9楼2009-08-27 09:28:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 13 个回答

qingyun533

铁杆木虫 (著名写手)

★ ★ ★
csfn(金币+1,VIP+0):thx very much 欢迎常来交流 8-26 10:33
wlscxf(金币+2,VIP+0): 8-26 18:15
定义字符数组即可
2楼2009-08-25 22:47:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tjyl

金虫 (正式写手)

★ ★ ★ ★ ★ ★
csfn(金币+3,VIP+0):thx very much 欢迎常来交流 8-26 10:33
wlscxf(金币+3,VIP+0): 8-26 18:15
用内部文件,就LS说的那样。

另外,其实输出文件可以不先open的。

直接wirte(x,*)  ...
会输出为fort.x 这样的文件。
或许这样更简单,输出文件就是ifort.x(X=N1:N2)

[ Last edited by tjyl on 2009-8-27 at 09:27 ]
3楼2009-08-26 00:19:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wlscxf

铜虫 (小有名气)

谢谢, 先试一下,回头再来送金币!
5楼2009-08-26 09:49:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 我在等一个没有答案的答案 +3 Love_MH 2026-05-17 3/150 2026-05-18 02:22 by 竹林孤影
[文学芳草园] 半夜喝咖啡 +3 myrtle 2026-05-15 5/250 2026-05-18 01:03 by 小沈2018
[硕博家园] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 l7k6xnh0yc 2026-05-14 7/350 2026-05-17 19:42 by Equinoxhua
[公派出国] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 v9tggjlwd0 2026-05-15 5/250 2026-05-17 18:39 by Equinoxhua
[考博] 2026博士还有哪些学校有名额 +6 小王求读研 2026-05-15 7/350 2026-05-17 16:54 by 知音湖畔
[硕博家园] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 v9tggjlwd0 2026-05-15 4/200 2026-05-17 08:06 by 11n4dfd8yn
[公派出国] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 l7k6xnh0yc 2026-05-14 6/300 2026-05-17 07:16 by 11n4dfd8yn
[硕博家园] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +5 cjf4bx70cj 2026-05-14 7/350 2026-05-17 06:55 by 11n4dfd8yn
[博后之家] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 k37jurhrau 2026-05-16 4/200 2026-05-17 01:35 by ue3ir18jc3
[考研] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k37jurhrau 2026-05-16 3/150 2026-05-17 01:25 by ue3ir18jc3
[考研] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 ky2p12rrjj 2026-05-15 4/200 2026-05-17 00:50 by ue3ir18jc3
[硕博家园] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 ky2p12rrjj 2026-05-15 3/150 2026-05-17 00:45 by ue3ir18jc3
[考博] 现在不知道怎么办,感觉很痛苦 +5 qweww 2026-05-11 6/300 2026-05-16 19:57 by Equinoxhua
[基金申请] 请问大佬b0816评完了吗 +4 市民华南虎 2026-05-12 8/400 2026-05-16 19:54 by Equinoxhua
[高分子] 本人最近太闲了,谁有问题可以提,每天会统一回复 +9 一切都是空工 2026-05-12 20/1000 2026-05-16 19:52 by Equinoxhua
[有机交流] 求助2,4-二氯-5-嘧啶甲醛的合成方法 20+3 光吃不拉 2026-05-14 6/300 2026-05-16 19:46 by Equinoxhua
[硕博家园] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 x0mp7owy2b 2026-05-15 4/200 2026-05-16 17:45 by j6b2pdz07o
[考研] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 l7k6xnh0yc 2026-05-14 6/300 2026-05-16 11:29 by h3oerqvkv9
[硕博家园] 申请博士 +3 呃?呃 2026-05-15 3/150 2026-05-16 11:01 by a4742549
[考博] 材料类只有一篇综述能申博么 +4 乐逍遥谷 2026-05-13 4/200 2026-05-14 12:05 by zhyzzh
信息提示
请填处理意见