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

珊瑚虫

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

[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编译器下的执行结果