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)，这句出错，错在哪呢，怎么改呢，谢谢啊。