主题:文件读取出错问题
program osr
parameter (n=43,nn=2,n1=n+nn)
parameter (ip=5,iip=ip+1)
dimension x1(n1),x(n1)
common/aa/ex(30,30)
common/bb/coe(30,30)
common/cc/xy(100,30)
common/dd/a(30,30)
open(2,file='OSR.dat' ,status='old')
read(2,*) ((xy(i,j),i=1,n1),j=1,ip)
read(2,*) (xy(i,iip),i=1,n)
close(2)
求助啊,fortran盲一个,麻烦大拿给看看,read(2,*) (xy(i,iip),i=1,n),这句出错,错在哪呢,怎么改呢,谢谢啊。