用Fortran写矩阵 [英] Write matrix with Fortran

问题描述

我需要用FORTRAN输出一个矩阵.我有一个可以计算值的有效代码，但我得到的不是矩阵，而是一列.矩阵很大，ixj =〜2000x2000.

I need to output a matrix with FORTRAN. I have a working code that calculates the values, but instead of a matrix, I get single a column. The matrix is huge, 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"作为变量名，因为它很容易与零混淆.

I suggest not using "o" as a variable name, since it is easily confused with zero.

这篇关于用Fortran写矩阵的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！