fortran 读入矩阵的问题

176530355 · 发表于 2015-8-23 15:35:07

txt文件
----------------------
uptri
1 2 3
4 5 6
7 8 9
downtri
1 0 0
2 2 0
3 2 1
---------------------------
主程序

[Fortran] 纯文本查看 复制代码

    program Console45
    implicit none
    integer,parameter::n=3
    character(10)::string
    real::a(n,n)
    integer::i,er
    open(11,file='1.txt')
        do
                read(11,*) string
                if(er/=0) exit
                if(string(1:7)=='downtri') then
                      do i=1,n 
                          read(11,*) a(i,:)
                      end do
                end if
        end do

        do i=1,n
        write(*,*) a(i,:)
        end do

    pause
    end program Console45

想请问各路神仙为什么不能读入成功呢