24小时热门版块排行榜    

查看: 1440  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 308求调剂 +3 是Lupa啊 2026-03-16 3/150 2026-03-16 10:07 by 求调剂zz
[考研] 材料工程专硕274一志愿211求调剂 +5 薛云鹏 2026-03-15 5/250 2026-03-15 20:38 by Logic2024
[基金申请] 国自科面上基金字体 +4 iwuli 2026-03-12 5/250 2026-03-15 17:07 by 风云无泪
[考研] 308求调剂 +4 是Lupa啊 2026-03-09 4/200 2026-03-14 02:06 by tranquil_ya
[考研] 288求调剂 +14 王晓阳- 2026-03-09 19/950 2026-03-14 02:05 by JourneyLucky
[考研] 332分材料工程调剂 +3 莓好时光海苔 2026-03-09 3/150 2026-03-14 02:03 by JourneyLucky
[考研] 一志愿郑大070303,338分,求调剂 +4 dadawaf 2026-03-10 5/250 2026-03-14 01:20 by lsw010101
[考研] 求调剂 +6 yfihxh 2026-03-09 6/300 2026-03-14 01:18 by JourneyLucky
[考研] 0703求调剂 +7 jtyq001 2026-03-10 7/350 2026-03-14 01:06 by JourneyLucky
[考研] 271求调剂 +10 生如夏花… 2026-03-11 10/500 2026-03-14 00:35 by 卖报员小雨
[考研] 一志愿华中农业大学071010,总分三百二,求调剂 +3 困困困困坤坤 2026-03-10 3/150 2026-03-14 00:35 by JourneyLucky
[考研] 招收0805(材料)调剂 +3 18595523086 2026-03-13 3/150 2026-03-14 00:33 by 123%、
[考研] 材料专硕288分求调剂 一志愿211 +4 在家想你 2026-03-11 4/200 2026-03-13 22:49 by JourneyLucky
[硕博家园] 085600 260分求调剂 +3 天空还下雨么 2026-03-13 5/250 2026-03-13 18:46 by 天空还下雨么
[考研] 302求调剂 +6 负心者当诛 2026-03-11 6/300 2026-03-13 16:11 by JourneyLucky
[考研] 307求调剂 +5 超级伊昂大王 2026-03-12 5/250 2026-03-13 15:56 by 棒棒球手
[考研] 0817化学工程与技术考研312分调剂 +3 T123 tt 2026-03-12 3/150 2026-03-13 10:49 by houyaoxu
[考研] 哈工大材料324求调剂 +6 闫旭东 2026-03-10 8/400 2026-03-10 22:49 by 星空星月
[考研] 化工0817调剂 +8 灿若星晨 2026-03-10 8/400 2026-03-10 22:44 by 星空星月
[考研] 294 英二数二物化 求调剂 +6 米饭团不好吃 2026-03-09 6/300 2026-03-09 23:55 by barlinike
信息提示
请填处理意见