读取txt文件中的数组再简单输出，报错说前后格式不匹配

2629416609@qq.c

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

program main  implicit none
  integer(kind=4),parameter :: n = 4
  real(kind=8)              :: a(n,n),b(n),x(n)
  integer(kind=4)           :: i, j, ioerr
  open(100,file='READ.TXT')
  read(100,*)
  do i = 1,n
          read(100,*)(a(i,j),j=1,n)
  end do
  read(100,*)
  do i = 1,n
          read(100,*)b(i)
  end do

  open(200,file='WRITE.txt')
  do i = 1, n
          write(200,"(*(f12.8,1x))")(a(i,j),j=1, n)
  end do
  write(200,"(/,4(f12.8,/))")b
  close(100)
  close(200)
end program main

2629416609@qq.c

这想必是 发表于 2019-10-22 20:08
我按照你的意思改了，但是仍然有同样的问题，先谢谢你的热情帮助！感激！（回头看才发现有一些没用的定义 ...

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

program test
  implicit none
  integer(kind=4),parameter  :: n = 4
  real(kind=8)               :: b(n)
  integer(kind=4)            :: i
  open(100,file='READ.txt')
  open(200,file='WRITE.txt')
  !do i = 1, 5
  !        read(100,*)
  !end do
  read(100,"(4(/))")
  do i = 1,4
          read(100,*)b(i)
  end do
  write(*,"(4(g0,/))")b
  write(200,"(4(g0,/))")b
end program test