两种任意数据单行输出方式

珊瑚虫

前段时间群里有童鞋问单行任意个数字的输出格式控制方法，并提供了一种方法由于这个问题童鞋们经常碰到，所以在这里将两种常见的实现方法写到下面。

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

!两种任意数据单行输出方式
PROGRAM MAIN
IMPLICIT NONE 
REAL(8)           :: X(100)
INTEGER           :: N
CHARACTER(LEN=100):: FMT
N=4
! 方式1
WRITE(*,'(<N>F15.6)')X(1:N)
N=5
! 方式2
write(FMT,*)N
FMT="("//TRIM(ADJUSTL(FMT))//'f15.6'//")"
WRITE(*,TRIM(ADJUSTL(FMT)))X(1:N)

END PROGRAM 

大家还有什么好的方法可以在后面继续跟帖
下面是在CVF6.6编译器下的执行结果

fcode

嗯，这个问题确实很多人遇到。

顺便说一下，第一种方法是不标准的语法。是 Visual Fortran 系列编译器的扩展。

岸边的鱼

可怜的我就知道第一种方法，结果还不是标准的方法，第二种看起来好复杂啊