| 查看: 2129 | 回复: 8 | |||||
beefly专家顾问 (职业作家)
地沟油冶炼专家
|
[交流]
在Fortran程序中，自定义打印数据列数的三种方法 已有7人参与
|
|
有时候为了便于数据显示和后期的数据处理，我们希望能控制Fortran程序打印的数据列数，但是write语句不允许在格式控制符中加入变量。其实通过一些技巧，这是可以实现的。 示例代码如下： 首先，由用户定义输出的列数： 例1，打印数组a。这里利用了Fortran90引入的一个wreite选项advance='no'，表示打印之后不换行。注意此选项对Fortran 77编译器（例如pgf77，g77）无效。每次只打印一个数组的元素，当数据编号能被列数整除时，执行一个空的write命令，起到换行作用。输出为： 例2，打印数组b。这里利用字符串frmt存储输出格式，并利用write语句把自定义的整型列数作为字符打印到frmt，把frmt预留的第2到第5个字符位置改为用户定义的列数。在上面的例子中，frmt改后成为( 3f11.3)。我们一般只输出几列到几十列，因此预留4个字符位置一般足够了。输出为： 例3，打印数组c。这个例子可看作是例2的扩展，输出更灵活一些。不仅是列数，每个元素的输出格式也都由用户按照Fortran的格式定义。例如： 然后根据Fortran格式，还要把前后的括号加上。输出如下： 用户自定义的格式未必总是符合语法的。如果作为正式的程序，最好给write加上一个出错判断：若给定格式的输出无法执行，则按照默认格式输出。 |
回复此楼» 本帖已获得的红花（最新10朵）
» 猜你喜欢
关于代码变化问题，想知道的进来
已经有15人回复
-
fileCode有新解读？
已经有18人回复
-
这样的filecode谁见过
已经有15人回复
-
关于filecode，很负责任的告诉大家
已经有7人回复
-
【2027博士申请】纳米药物递送方向
已经有5人回复
-
关于豆爷回答的JTJC与%2F数量
已经有7人回复
-
2026国自然放榜时间
已经有3人回复
-
国基金的申报应该改成非等额制，评价高的钱多评价低的钱少，但是增加资助率
已经有7人回复
-
好奇怪的filecode
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 急：求用Fortran或者其他语言编写一个程序，处理下面的数据！！！！！！！！！！
已经有37人回复
- Fortran怎么从一个dat文件中读取不同类型数据赋值给不同的变量？
已经有8人回复
- Fortran如何读取不确定行数的数据
已经有3人回复
- 高分求将我的MATLAB程序改写为FORTRAN程序（1000BB）
已经有13人回复
- Fortran输出二进制数据，用matlab读出，结果出错，求助问题何在？
已经有4人回复
- fortran编译中$符号的使用
已经有4人回复
- fortran程序在SSH计算中心上运行的问题！
已经有13人回复
- 请教一下CFX如何导入FORTRAN用户自定义程序
已经有5人回复
- 关于复数在Fortran中如何定义的问题
已经有3人回复
- 用Fortran编写程序输出的数据一般用什么程序作图比较好？
已经有28人回复
- fortran，带字符的数据读取与存储！
已经有11人回复
- 一个主程序，一个subroutine程序，要如何将两个程序组合在fortran里运行
已经有4人回复
- fortran中如何处理字符和数据混合的文件
已经有6人回复
- Fortran数据读入格式的修改
已经有5人回复
- 请教 fortran 运行错误的原因
已经有13人回复
- 关于fortran中的rewind 语言
已经有5人回复
- Fortran中子程序与函数的区别
已经有7人回复
- 如何改变fortran的浮点精度
已经有28人回复
- 请教一个fortran小程序编译出错的问题，谢谢
已经有9人回复
- 写了一个fortran90的小程序，编译通不过，请大侠帮忙
已经有59人回复
- 【求助】fortran中是如何实现将两个变量的值在同一行进行打印出来的
已经有7人回复
- 【求助】fortran中怎么存储不确定长度的数据【已完结】
已经有6人回复
送红花一朵
 |
2楼2015-02-01 07:23:05
xk6891
至尊木虫 (著名写手)
- 应助: 0 (幼儿园)
- 金币: 13735.8
- 散金: 379
- 红花: 9
- 帖子: 1514
- 在线: 546小时
- 虫号: 890342
- 注册: 2009-11-01
- 专业: 理论和计算化学
3楼2015-02-01 22:31:00
qchem
铁杆木虫 (著名写手)
- 应助: 280 (大学生)
- 金币: 6871.6
- 散金: 1411
- 红花: 43
- 帖子: 2586
- 在线: 669.7小时
- 虫号: 183011
- 注册: 2006-02-12
- 专业: 理论和计算化学
4楼2015-02-01 23:50:26
5楼2015-02-02 00:23:04
yebin2006
木虫 (小有名气)
- 应助: 1 (幼儿园)
- 金币: 5042
- 散金: 19
- 帖子: 78
- 在线: 128.7小时
- 虫号: 1269098
- 注册: 2011-04-18
- 性别: GG
- 专业: 电力系统
6楼2015-02-02 00:28:53
pippi6
铁杆木虫 (著名写手)
工程和科学数值计算咨询
- 应助: 413 (硕士)
- 贵宾: 0.002
- 金币: 7116.5
- 散金: 15
- 红花: 63
- 帖子: 1639
- 在线: 798.9小时
- 虫号: 2469437
- 注册: 2013-05-14
- 专业: 计算数学与科学工程计算
"7楼2015-02-02 22:40:40
beefly
专家顾问 (职业作家)
地沟油冶炼专家
-
专家经验: +459 - 应助: 88 (初中生)
- 金币: 13296
- 散金: 27307
- 红花: 301
- 帖子: 4681
- 在线: 928.6小时
- 虫号: 408372
- 注册: 2007-06-21
- 性别: GG
- 专业: 理论和计算化学
- 管辖: 计算模拟
8楼2015-02-02 22:58:17
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
小木虫: 金币+0.5, 给个红包，谢谢回帖
|
本帖内容被屏蔽 |
9楼2015-06-30 05:19:58
20