如何摆脱 Fortran 打印输出中不需要的间距？

Question

这可能看起来像一个微不足道的问题，但我无法通过谷歌搜索找到任何答案。我有这个小程序：

Program Test_spacing_print
  Integer:: N
  Real:: A,B

  N=4; A=1.0; B=100.0

  print*,'N =',N

  print*,'A =',A,' B =',B
  print '(2(A3,F8.2,1X))' ,'A =',A,' B =',B
  print 20, A,B
  20 format('A =',F8.2,x,'B =',F8.2)

End Program Test_spacing_print

这给了我输出：

     N =           4
 A =   1.00000000      B =   100.000000
A =    1.00  B   100.00
A =    1.00 B =  100.00

我想去掉= 符号之后不需要的空格，即我想要的输出应该看起来像（= 之后的 1 个空格）：

 N = 4
 A = 1.00000000 B = 100.000000
 A = 1.00 B = 100.00
 A = 1.00 B = 100.00

在 fortran 中可以吗？

Answer 1

您说您在输出中有“不需要的”空间，但您使用指定的显式格式拥有您所要求的空间。当您没有提供格式时，列表导向的输出意味着您对间距没有发言权。

要输出A，您需要编辑描述符F8.2：字段宽度将为8。小数点后有两位数，小数点本身留下五位数字（和符号）之前的数字小数点。因此，对于 A 值 1. 没有打印可选符号，您将有四个空格。

就像 Fortran 95 引入了I0 edit descriptor，所以它允许F0.d。 [对于其他描述符，尽管G0.d 是在以后添加的。]F0.2 将提供小数点后两位数字的最小字段宽度，这就是您想要的。但请注意，您需要在 = 符号后显式添加一个空格：

print '("N = ", I0)', N
print '(2(A4,F0.2,:,1X))' ,'A = ',A,'B = ',B

[我还使用了: 编辑描述符来避免尾随空格。]

如果你想要一个真正的 Fortran 90 答案，就像你标记的那样，那么它不会那么好，但它仍然可以完成。