您所在位置：主题：[讨论]数组名做为文件名打开的问题
vivianich
[专家分：0] 发布于 2012-05-22 15:37:00
部分源程序如下：
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。。。请教大家是我的理解有误吗，还是源程序写的不对？
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。。。请教大家是我的理解有误吗，还是源程序写的不对？
