24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 2423  |  回复: 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的回帖

黄胖胖

木虫 (正式写手)


wangen994(金币+1,VIP+0):欢迎参与讨论 8-28 11:11
可以采用系统时间来定义文件名,先调用日期函数,然后转成字符串后赋给文件名就可以了.
6楼2009-08-26 16:09:16
已阅   回复此楼   关注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的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 317分 一志愿南理工材料工程 本科湖工大 求调剂 +9 芋泥小铃铛 2026-03-28 9/450 2026-03-29 11:46 by longlotian
[考研] 318一志愿吉林大学生物与医药 求调剂 +3 笃行致远. 2026-03-28 3/150 2026-03-29 10:47 by ~@!
[考研] 298求调剂 +4 种圣赐 2026-03-28 4/200 2026-03-29 08:42 by q1092522407
[考研] 调剂考研 +3 王杰一 2026-03-29 3/150 2026-03-29 08:09 by fmesaito
[考研] 299求调剂 +8 15188958825 2026-03-25 8/400 2026-03-29 01:36 by fmesaito
[考研] 295材料工程专硕求调剂 +7 1428151015 2026-03-27 7/350 2026-03-28 19:58 by S240
[考研] 化学0703 调剂 306分 一志愿211 +4 26要上岸 2026-03-28 4/200 2026-03-28 15:30 by 1018329917
[考研] 322求调剂 +5 旧吢 2026-03-24 5/250 2026-03-28 13:26 by Iveryant
[考研] 299求调剂 +7 嗯嗯嗯嗯2 2026-03-27 7/350 2026-03-28 13:09 by 唐沐儿
[考研] 一志愿211院校 344分 东北农业大学生物学学硕,求调剂 +5 丶风雪夜归人丶 2026-03-26 8/400 2026-03-27 19:22 by 丶风雪夜归人丶
[考研] 一志愿华东理工大学081700,初试分数271 +6 kotoko_ik 2026-03-23 7/350 2026-03-27 12:29 by 惠州彭于晏
[考研] 考研调剂 +9 小蜡新笔 2026-03-26 9/450 2026-03-27 11:10 by 不吃魚的貓
[考研] 材料求调剂 +5 .m.. 2026-03-25 5/250 2026-03-27 11:08 by 不吃魚的貓
[考研] 材料调剂 5+4 想要一壶桃花水 2026-03-25 10/500 2026-03-26 19:56 by 不吃魚的貓
[考研] 总分293求调剂 +6 加一一九 2026-03-25 8/400 2026-03-26 13:30 by yujianx
[考研] 生物技术与工程 +3 1294608413 2026-03-25 4/200 2026-03-25 18:02 by 1294608413
[考研] 0854电子信息求调剂 324 +4 Promise-jyl 2026-03-23 4/200 2026-03-25 11:36 by Sugarlight
[考研] 材料专硕331求调剂 +4 鲜当牛 2026-03-24 4/200 2026-03-24 15:58 by JourneyLucky
[考研] 一志愿河北工业大学0817化工278分求调剂 +7 jhybd 2026-03-23 12/600 2026-03-24 09:03 by jhybd
[考研] 333求调剂 +3 ALULU4408 2026-03-23 3/150 2026-03-23 19:04 by macy2011
信息提示
请填处理意见