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

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

6楼: Originally posted by foreverun at 2018-07-11 21:44:12
您好，请问如何读取网格文件呢？我以前都是操作商业软件，现在想自己编程计算，首先要读取网格信息。能否不吝赐教。谢谢！

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