[求助] 读取文件并修改后输出问题

program main
      implicit none
      integer,dimension(2792,2613)::a
      integer r
      integer c
      open(1,file=("dem.txt")
       do r=1,2792
        read(1,*)a(r,:)
       end do
       if(r>766.and.r<1055.and.c>1046.and.c<1083)then
        a(r,c)=a(r,:)*9/10
      write(1,*)a(r,c)
      end if
    close(1)
    stop
    write(*,*)a(r,c)
end

7楼: Originally posted by lkl111 at 2018-07-11 22:29:00
你的网格数据是专门的数据格式文件还是普通的文本文件
...

2楼: Originally posted by 1014511134 at 2017-06-04 10:57:57
先把数据文件的前六行读一下，再读数据，另外判断的时候if写的不对，外边应该加循环，写文件也有问题，没按照原格式，数组最好用动态数组