求助一个write()输出语句的格式

渡箭 · 发表于 2015-8-13 18:27:25

我要输出一行 Text Style Vv Justify MR 569629.1,3196640 7.5 0 230.00其中
569629.1,3196640 分别是数组xsec(i,j)，ysec(i,j)中的数据组成的坐标，逗号不能省略
7.5为定值，0为定值，230.00为数组z(i,j)中的数据
我不知道怎么写这个输出语句
输出语句输出效果是这样的：
Text Style Vv Justify MR 569629.1,3196640 7.5 0 230.00

fcode · 发表于 2015-8-13 18:47:13

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

Program www_fcode_cn
  Implicit None
  real :: xsec(3,3) = 569629.1, ysec(3,3) = 3196640. , z(3,3) = 230.
  integer :: i = 1 , j = 1
  Write( * , 100 ) xsec(i,j), nint(ysec(i,j)) , z(i,j)
100 format("Text Style Vv Justify MR ",f8.1,",",i7.7," 7.5 0 ",f6.2)
End Program www_fcode_cn

渡箭 · 发表于 2015-8-13 19:14:16

fcode 发表于 2015-8-13 18:47
[mw_shl_code=fortran,true]Program www_fcode_cn
Implicit None
real :: xsec(3,3) = 569629.1, ysec( ...

谢谢！不过还是有点问题E:\无标题

渡箭 · 发表于 2015-8-13 19:16:40

fcode 发表于 2015-8-13 18:47
[mw_shl_code=fortran,true]Program www_fcode_cn
Implicit None
real :: xsec(3,3) = 569629.1, ysec( ...

谢谢！不过还是有点问题
编译错误提示如下：

fcode · 发表于 2015-8-13 20:50:59

如果你还不懂得如何续行的话。请看看教科书。

渡箭 · 发表于 2015-8-13 22:00:24

谢谢，语法问题都解决了

[输入输出] 求助一个write()输出语句的格式

规矩勋章

爱心勋章

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

元老勋章

水王勋章