文件A中第一行有n个数，另一文件B中第一行有m个数。(其中n,m<100)
我要分别将上面的文件读入另一个文件C，我用下面的遇到困难：
INTEGER num1(100),num2(100)
OPEN (20,FILE="A.txt" )
OPEN (21,FILE="B.txt" )
OPEN (22,FILE="C.txt" )
READ(20,*)(numb1(i),i=1,n)
READ(21,*)(numb2(i),i=1,m)
WRITE(22,*)(numb(i),i=1,n)
WRITE(22,*)(numb(i),i=1,m)
END
现在的问题是读入的数据个数如果和数组的大小不等的话，就无法读入。
由于类似文件很多，不要人为的读入n或m的值，如何办？
想过用动态数组，也没能搞定。
INTEGER, allocatable::numb( ; ! 声明动态数组，可以是多维的，类似a(:,:,
allocate(numb(50)); ! 给动态数组分配内存
numb(50)=1.0; ! 操作和平常的数组一样
deallocate(numb);
请高手贴出具体的程序解决，诚盼！！！！！
[ Last edited by onexf766 on 2010-12-25 at 20:43 ] |
回复此楼
+1/171