Fortran Coder

标题: 两种任意数据单行输出方式 [打印本页]

作者: 珊瑚虫 时间: 2014-1-25 17:42
标题: 两种任意数据单行输出方式
本帖最后由珊瑚虫于 2014-1-25 17:45 编辑

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

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

未命名.PNG (9.85 KB, 下载次数: 751)

作者: fcode 时间: 2014-1-25 17:50
嗯，这个问题确实很多人遇到。

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

作者: 岸边的鱼 时间: 2014-4-11 22:01
可怜的我就知道第一种方法，结果还不是标准的方法，第二种看起来好复杂啊

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)