24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1471  |  回复: 3

chenyang11

铁虫 (初入文坛)

[求助] fortran 程序文件名为变量 求救

我有个二维数组,
for h=1,m,1
  for j= 1,n,1
   p(j)=.....
enddo
下面我想输出文件名以变量h 为 类型txt 文件名
程序该怎么写???

end  do


各位大神求指导!!!!
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jerkwin

专家顾问 (正式写手)

【答案】应助回帖

★ ★
感谢参与,应助指数 +1
华丽的飘过: 金币+2, 3q 2013-10-16 02:33:50
没看出你这是二维数组
write(Filename, *) h
open(unit=1, file=FileName)
write(1, *)
close(1)
2楼2013-10-15 22:07:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chenyang11

铁虫 (初入文坛)

引用回帖:
2楼: Originally posted by jerkwin at 2013-10-15 22:07:04
没看出你这是二维数组
write(Filename, *) h
open(unit=1, file=FileName)
write(1, *)
close(1)

上面 不是FOR 是 DO ,打错了, h为整数型。
3楼2013-10-15 22:14:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chenyang11

铁虫 (初入文坛)

引用回帖:
2楼: Originally posted by jerkwin at 2013-10-15 22:07:04
没看出你这是二维数组
write(Filename, *) h
open(unit=1, file=FileName)
write(1, *)
close(1)

* 代表什么? 是我要输出的 op 的值吗?
4楼2013-10-15 22:17:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 chenyang11 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0855求调剂材料 +11 红桃灼灼 2026-04-04 11/550 2026-04-05 22:13 by 醉翁wl
[考研] 求调剂求调剂 +8 121. 2026-04-02 8/400 2026-04-05 20:15 by lys0704
[考研] 22408 总分320,一篇论文二作,两个国三,求调剂 +3 Leomulufu 2026-04-04 5/250 2026-04-05 19:04 by chongya
[考研] 一志愿同济大学323分(080500)求调剂 +8 yikeniu 2026-04-01 8/400 2026-04-05 18:15 by cql1109
[考研] 一志愿211生物学280分 求调剂 +4 李rien 2026-04-05 4/200 2026-04-05 18:01 by kk112233
[考研] 282求调剂 +3 aaa车辆 2026-04-01 3/150 2026-04-05 17:03 by yulian1987
[考研] 367求调剂 +3 谢28 2026-03-30 3/150 2026-04-05 13:27 by huangmoli
[考研] 考研调剂 +5 四川王涛 2026-04-04 5/250 2026-04-04 22:18 by 啵啵啵0119
[考研] 材料调剂 +12 一样YWY 2026-04-02 13/650 2026-04-04 20:49 by 蓝云思雨
[考研] 调剂 +9 19945159693 2026-04-03 10/500 2026-04-04 20:16 by dongzh2009
[考研] 26调剂 086003 +6 失活的细胞 2026-04-04 6/300 2026-04-04 09:50 by zhangdingwa
[考研] 求调剂 +8 akdhjs 2026-04-03 8/400 2026-04-03 18:17 by 戴维ING
[考研] 求调剂 +4 15064154688 2026-04-03 5/250 2026-04-03 15:07 by zrongyan
[考研] 08工科,295,接受跨专业调剂 +8 lmnlzy 2026-03-30 8/400 2026-04-03 13:08 by nalakaiqi
[考研] 交通运输考试264分求工科调剂 +4 jike777 2026-04-02 4/200 2026-04-02 21:53 by zllcz
[考研] 266求调剂 +4 学员97LZgn 2026-04-02 4/200 2026-04-02 13:03 by yulian1987
[考研] 能源动力 调剂 +3 不破不立0 2026-04-02 3/150 2026-04-02 12:46 by ffffjjjj
[考研] 311求调剂 +10 李芷新1 2026-03-31 10/500 2026-04-01 14:38 by chenqifeng666
[考研] 一志愿 南京航空航天大学 ,080500材料科学与工程学硕 +10 @taotao 2026-03-31 11/550 2026-04-01 09:43 by xiayizhi
[考研] 生物考研337分求调剂 +4 cgxin 2026-03-30 6/300 2026-03-31 14:18 by 记事本2026
信息提示
请填处理意见