24小时热门版块排行榜    

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

金虫 (正式写手)

★ ★ ★ ★ ★ ★
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的回帖
查看全部 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的回帖

wlscxf

铜虫 (小有名气)

谢谢, 先试一下,回头再来送金币!
5楼2009-08-26 09:49:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

黄胖胖

木虫 (正式写手)


wangen994(金币+1,VIP+0):欢迎参与讨论 8-28 11:11
可以采用系统时间来定义文件名,先调用日期函数,然后转成字符串后赋给文件名就可以了.
6楼2009-08-26 16:09:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 求调剂 330分 085600材料与化工 +3 gqhhh 2026-03-22 3/150 2026-03-29 00:52 by 544594351
[考研] 学硕274求调剂 +9 Li李鱼 2026-03-26 9/450 2026-03-28 21:42 by bymhappy
[考研] 本科新能源科学与工程,一志愿华理能动285求调剂 +3 AZMK 2026-03-27 5/250 2026-03-28 16:19 by xxxsssccc
[考研] 291求调剂 +15 hhhhxn.. 2026-03-23 21/1050 2026-03-28 11:26 by self2008
[考研] 0703化学/290求调剂/本科经历丰富/工科也可 +9 丹青奶盖 2026-03-26 10/500 2026-03-28 07:45 by barnett0632
[考研] 0703化学求调剂,各位老师看看我!!! +5 祁祺祺 2026-03-25 5/250 2026-03-27 21:44 by 东方猪猪
[考研] 考研调剂 +4 Sanmu-124 2026-03-26 4/200 2026-03-27 17:49 by kiokin
[考研] 274求调剂 +17 顾九笙要谦虚 2026-03-24 23/1150 2026-03-27 15:16 by caszguilin
[考研] 一志愿华东理工大学081700,初试分数271 +6 kotoko_ik 2026-03-23 7/350 2026-03-27 12:29 by 惠州彭于晏
[考研] 298调剂 +3 jiyingjie123 2026-03-27 3/150 2026-03-27 11:57 by wxiongid
[考研] 求调剂323材料与化工 +7 1124361 2026-03-24 7/350 2026-03-27 10:22 by wangjy2002
[考研] 329求调剂 +7 钮恩雪 2026-03-25 7/350 2026-03-27 04:28 by wxiongid
[考研] 340求调剂 +3 Amber00 2026-03-26 3/150 2026-03-26 18:57 by 不吃魚的貓
[考研] 材料科学与工程 317求调剂 +4 JKSOIID 2026-03-26 4/200 2026-03-26 15:58 by 不吃魚的貓
[考研] 332求调剂 +6 032500 2026-03-25 6/300 2026-03-25 22:45 by 418490947
[考研] 各位老师您好:本人初试372分 +5 jj涌77 2026-03-25 6/300 2026-03-25 14:15 by mapenggao
[考研] 上海电力大学材料防护与新材料重点实验室招收调剂研究生(材料、化学、电化学,环境) +4 我爱学电池 2026-03-23 4/200 2026-03-25 00:59 by 1027_324
[考研] 求调剂 +6 研研,接电话 2026-03-24 7/350 2026-03-24 17:01 by barlinike
[考研] 一志愿吉大化学322求调剂 +4 17501029541 2026-03-23 6/300 2026-03-24 10:21 by 戴围脖的小蚊子
[考研] 求老师收我 +3 zzh16938784 2026-03-23 3/150 2026-03-23 12:56 by ztnimte
信息提示
请填处理意见