用 Fortran 编写矩阵

我需要用 FORTRAN 输出一个矩阵。我有一个计算值的工作代码，但我得到的不是矩阵，而是一列。矩阵很大，ixj = ~2000x2000。

这是我的示例代码：

  open(19, file="results1.txt", status="old", position="rewind", 
 & action="write") 

  do j=0,p
  do i=0,o
  write(19,*) mat_user_yield_surface(d, eps(i), deps(j), 200.0d0)
  end do
  end do

  close(19)

使用隐含的 do 循环：

do j=0,p
   write(19,'(2000g22.14)') (mat_user_yield_surface(d, eps(i), deps(j),200.0d0),i=0,o)
end do

我建议不要使用“o”作为变量名，因为它很容易与零混淆。