使用以特定步长更改每个循环计算的变量进行循环

Question

我正在使用一个循环，将一个值 (step) 添加到 dist。将step 添加到dist 后，我想在以下计算中使用它，它提供了值c。然后，dist 和c 都应在输出文件中并排列在两列中。

如果我使用下面的代码，它至少可以在输出文件中列出dist 的值。

dist=0
  do while (dist < rim)
   dist=dist+step
   c=0.5*(cl-cr)*erfc((dist)/(2*sqrt(t*d)))+cr
   write(1,'(1f20.0)')dist*1E+06
  enddo

如果我将写入命令替换为下面的命令，它将不会列出两个不错的列，但会以某种方式混合两者。

  write(1,'(1f20.0,1f15.5)')dist*1E+06,c

这是与循环中写入命令的定位有关的问题，还是与被告知写入值的格式有关？

Answer 1

您应该在它们之间添加一个空格并重新检查：

write(*,'(F20.0,1X,F15.5)') dist*1E+06, c

还要考虑将结果写入文件的准确性。