24小时热门版块排行榜    

查看: 1567  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 今日不放榜?网传国自然预计 8 月 27 日可查结果 +17 医学老男孩 2026-08-20 21/1050 2026-08-24 14:21 by refreshing11
[基金申请] 能否退出参与的面上项目解除限项 +15 koalala 2026-08-24 17/850 2026-08-24 14:16 by hhs666
[基金申请] 估计是周四 +4 archvillain 2026-08-18 4/200 2026-08-24 13:53 by zzuzxg
[基金申请] 我面上完蛋了 +8 且听虎啸 2026-08-20 9/450 2026-08-24 13:52 by zzuzxg
[基金申请] 2026国自然函评费到账 +17 羊腰板 2026-08-21 18/900 2026-08-24 12:03 by iaeyuan
[基金申请] 朋友圈看到的 +7 wangzilk 2026-08-18 9/450 2026-08-24 10:50 by cmrandy
[基金申请] 让我中一个面上吧! +13 大萍1987 2026-08-20 16/800 2026-08-24 10:23 by 太傻了
[基金申请] 放榜前的不淡定 20+4 snowwithsea 2026-08-19 17/850 2026-08-24 10:20 by echo8914667
[基金申请] 什么时候开奖? +10 CrisMessi 2026-08-18 11/550 2026-08-24 06:50 by 开心的小狮子
[教师之家] 跳槽后在研项目怎么办? +5 简单化xn 2026-08-22 10/500 2026-08-23 12:38 by 简单化xn
[基金申请] 今天放榜吗? +15 布布和一二 2026-08-19 16/800 2026-08-23 09:55 by 张春生
[基金申请] 只有每年这种时候来逛逛小木虫 +24 yaoyewhu2008 2026-08-20 26/1300 2026-08-22 17:43 by kammury
[基金申请] 人气不行了 +8 fansofjerry 2026-08-21 8/400 2026-08-22 16:30 by zyqchem
[基金申请] 今天基金会出结果吗?20260819 +16 kkkl_v 2026-08-19 17/850 2026-08-22 16:12 by 阿布Abu
[基金申请] 看来今天不会放榜了? +8 chengyan1220 2026-08-21 11/550 2026-08-21 17:52 by dcqxinyang
[基金申请] 时间戳又变了 +13 wuchongjun 2026-08-20 19/950 2026-08-21 17:21 by 紫杉醇
[基金申请] 应该是下周三26日公布了吧? +4 哈哈蛤? 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
[论文投稿] 投稿咨询 +5 wwm09 2026-08-17 7/350 2026-08-21 10:11 by 期刊论文帮手
[基金申请] 今天放榜没戏了吧 +9 yuleib84 2026-08-19 11/550 2026-08-21 10:06 by gltch
[基金申请] 今天维护系统维护 祝所有人 高中 +8 gjjjzhong 2026-08-18 9/450 2026-08-18 13:01 by 家与远方
信息提示
请填处理意见