24小时热门版块排行榜    

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

vivianich

新虫 (初入文坛)

[求助] 数组名做为文件名打开的问题

部分源程序如下:
      READ(5,8886)(LABL(I),I=1,10)
8886  FORMAT(10A2)
      OPEN(ICART,FILE=LABL,IOSTAT=IOS,STATUS='NEW',RECL=64,ERR=99,
     *      FORM='UNFORMATTED',ACCESS='DIRECT',MAXREC=MREC)
99    WRITE(INPUT,9998) IOS
9998  FORMAT(19HFETCH IOSTAT ERROR ,I3)
输入lalblcldlelflglhlilj,运行后即显示FETCH IOSTAT ERROR  36还有生成的文件名是lalblcldlelflglhlilj,我的理解是应该生成10个不同的文件,文件名分别为la,lb,lc。。。请教大家是我的理解有误吗,还是源程序写的不对?
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖


感谢参与,应助指数 +1
dubo: 金币+1, 欢迎讨论 2012-05-25 09:55:05
我觉得 open 这一步应该没有向量化,所以,你最好用个循环来打开,这样应该可行……
2楼2012-05-25 08:00:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖


dubo: 金币+1, 欢迎讨论 2012-05-25 09:55:11
而且 icart 也应该是一个数组……
3楼2012-05-25 08:00:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

vivianich

新虫 (初入文坛)


dubo: 金币+1, 欢迎讨论 2012-05-25 09:55:16
引用回帖:
3楼: Originally posted by snoopyzhao at 2012-05-25 08:00:52:
而且 icart 也应该是一个数组……

感谢回答,不过源程序里icart=34,不是数组形式,如果我用循环打开文件,是不是不可以将十个文件名在同一个单元名下打开呢?
4楼2012-05-25 09:41:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★ ★ ★ ★
vivianich: 金币+5, ★★★很有帮助 2012-05-28 09:39:28
很显然不行,一个 unit 只对应一个文件……
5楼2012-05-25 13:59:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 vivianich 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 26考研调剂 +4 Wnz.20030617 2026-04-01 5/250 2026-04-02 16:11 by 1939136013狗壮
[考研] 071000生物学调剂 +6 知昭蔓 2026-04-02 6/300 2026-04-02 15:28 by sophie2180
[考研] 总分328生物与医药考数学求调剂 +3 aaadim 2026-04-02 3/150 2026-04-02 14:04 by 乔哒哒哒
[考研] 初试301,代码085701环境工程,本硕一致,四六级已过,有二区一作,共发表5篇论文 +6 axibli 2026-04-01 6/300 2026-04-02 13:42 by Ecowxq666!
[考研] 085600,材料与化工321分调剂 +8 大馋小子 2026-03-27 10/500 2026-04-02 10:15 by kaiyanjie
[考研] 英一数一408,总分284,二战真诚求调剂 +12 12.27 2026-03-30 14/700 2026-04-02 00:18 by 欣喜777
[考研] 食品学硕362求调剂 +3 xuanxianxian 2026-04-01 3/150 2026-04-01 21:05 by 啊李999
[考研] 英一数二生物信息学287分,本科生物科学,求调剂 +3 碧水xyz 2026-03-29 4/200 2026-04-01 15:35 by plum
[考研] 311求调剂 +10 李芷新1 2026-03-31 10/500 2026-04-01 14:38 by chenqifeng666
[考研] 一志愿中国科学院大学265求调剂 +8 恬淡ye 2026-03-31 9/450 2026-04-01 14:34 by 逆水乘风
[考研] 求调剂 +4 DADA怪 2026-03-31 4/200 2026-04-01 14:30 by ZXlzxl0425
[考研] 材料调剂 +11 一样YWY 2026-03-31 11/550 2026-04-01 11:35 by wangjy2002
[考研] 材料调剂 +10 Eujd1 2026-03-31 11/550 2026-04-01 11:23 by ivanqyq
[考研] 求0861交通运输专硕or材料专硕调剂 +4 勒布朗@ 2026-03-31 4/200 2026-04-01 09:54 by 一只好果子?
[考研] 本2一志愿C9-333分,材料科学与工程,求调剂 +9 升升不降 2026-03-31 9/450 2026-03-31 18:01 by 无际的草原
[考研] 求调剂 生物学 377分 +6 zzll03 2026-03-31 6/300 2026-03-31 17:33 by 唐沐儿
[基金申请] 面上5B能上会吗? +8 redcom 2026-03-29 8/400 2026-03-31 15:53 by niuailing
[考研] 085404 22408 315分 +5 zhuangyan123 2026-03-31 6/300 2026-03-31 13:48 by limeifeng
[考研] 312,生物学求调剂 +3 小译同学abc 2026-03-28 3/150 2026-03-28 15:32 by 落睿可思
[考研] 315调剂 +4 0860求调剂 2026-03-26 5/250 2026-03-27 11:23 by wangjy2002
信息提示
请填处理意见