Question

fortran没有运行结果，出现如图，求大神指点

program flownet2feapimplicit noneinteger n,i,jreal c,b,kreal,dimension(:,:),allocatable::a(:,:),na(:,:),xxh(:,:)open(11,file='feapdata.txt',status='new')open(10,file='fn.txt',status='old')write(*,90)read (*)nallocate(a(n,15),na(n,2),xxh(n,10))do i=1,n read(10,*) (a(i,j),j=1,15)end dodo i=1,nna(i,1)=a(i,7)na(i,2)=a(i,8)write(11,*)(na(i,j),j=1,2)enddodo i=1,nc=na(i,1)b=na(i,2)k=(b-c)/10do j=1,10XXH(i,j)=c+(j-1)*kenddoenddodo i=1,nwrite(11,100)(XXH(i,j),j=1,10)end do90 format('please input the number of ids:')100 format(1x,f8.6)end

Answer 1

write(*,90)
read (*)n
改为：

write(*,90)
read (*,*)n