[输入输出] 为什么write设定输出格式之后写的矩阵内容就变成一列了？

      real BuildM(401,401)
      write(*,*)'START INPUT BUILDING MATRIX'
          open(9999,file='SimpleBuilding_v1.txt')
        DO J=1,401,1
              READ(9999,*) (BuildM(I,J),I=1,401)
      end DO
          CLOSE(9999)
          open(9991,file='BuildMoutput.txt')
        DO J=1,401,1
                write(9991,*) (BuildM(I,J),I=1,401)
          end DO
          CLOSE(9991)
          write(*,*)'END INPUT BUILDING MATRIX'
      end