| 查看: 2098 | 回复: 5 | ||||
shenhai1315木虫 (正式写手)
|
[求助]
fortran程序中write输出格式有问题 已有1人参与
|
|
大家好，我fortran小程序读取文本数据后，再write输出，但是输出格式有问题，也找不到原因。麻烦懂fortran的看下，该如何修改，部分代码如下： 101 open(unit=10,status='unknown',access='append',file='rh-opt.com') !!!!!!!make first input file, def guess!!!!!!! ! do i = 1,9 ! write(10,*) line(i) ! end do ! write(10,*) n ! write(10,*) line(10) do i = 1, n write(10,*) atom(i),qnew(3*(i-1)+1),qnew(3*(i-1)+2),qnew(3*(i-1)+3) end do write(10,*)' ' write(10,*)' ' write(10,*)' ' close(10) ! 200 format(I3,$) 以上文本输出，发现有回车，而且好多空格和有效数字太多，如何修改呢。我对fortran不熟，不知道咋改，谢谢。 比如，利用以上程序运行后，问题输出如下： C -1.89021440000000 0.000000000000000E+000 1.92476630000000 而我想要的的： C -1.89021440000000 0.000000000000000E+00 1.92476630000000 这样计算程序才能计算，就是输出格式不对好像。 谢谢了 |
回复此楼» 收录本帖的淘帖专辑推荐
 悠悠 |
» 猜你喜欢
304求调剂
已经有8人回复
-
308求调剂
已经有8人回复
-
362求调剂
已经有6人回复
-
26自然地理学303分求调剂
已经有9人回复
-
312求调剂
已经有15人回复
-
化工求调剂！
已经有15人回复
-
284求调剂
已经有8人回复
-
一志愿哈工大，初试329，求环境科学与工程调剂！
已经有5人回复
-
327求调剂
已经有3人回复
-
一志愿吉大化学327求调剂
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- Fortran输出二进制数据，用matlab读出，结果出错，求助问题何在？
已经有4人回复
- 用fortran怎么读.CSV文件
已经有11人回复
- fortran程序运行结果输出及绘图
已经有9人回复
- fortran程序在SSH计算中心上运行的问题！
已经有13人回复
- 编一个fortran程序
已经有17人回复
- fortran编程过程出错了 麻烦给解决一下 谢谢！！
已经有5人回复
- 关于fortran子程序调用内部函数
已经有7人回复
- fortran里一个子程序不运行是怎么回事
已经有13人回复
- fortran 程序有write和没有write两种情况计算的结果为什么会不一样?
已经有14人回复
- FORTRAN中如何实现重复读取一行？
已经有24人回复
- fortran输出求助
已经有6人回复
- 急求fortran运行错误原因，在线等
已经有7人回复
- FORTRAN新手 求助主程序循环问题
已经有10人回复
- 大家帮我看一个fortran的程序，我总是计算不出正确的结果
已经有20人回复
- 求助Fortran编程
已经有8人回复
- 请教一个fortran小程序编译出错的问题，谢谢
已经有9人回复
- Fortran的格式化输入输出问题
已经有14人回复
- fortran整数输出格式的问题
已经有8人回复
- fortran两个问题，文件中的空格，屏幕同一行覆盖输出
已经有23人回复
- 【求助】如何写FORTRAN程序实现求平均最近邻距离
已经有34人回复
- 【求助】FORTRAN写文件时每行开头都多了一个空格？
已经有6人回复
- 【求助】Fortran的计算结果
已经有11人回复
jerkwin
专家顾问 (正式写手)
-
专家经验: +14 - 应助: 454 (硕士)
- 金币: 20699.1
- 散金: 148
- 红花: 81
- 帖子: 813
- 在线: 2648.3小时
- 虫号: 1023452
- 注册: 2010-05-19
- 专业: 理论和计算化学
- 管辖: 分子模拟
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ...
感谢参与，应助指数 +1
shenhai1315: 金币+100 2014-04-19 10:46:55
感谢参与，应助指数 +1
shenhai1315: 金币+100 2014-04-19 10:46:55
|
使用有格式的输出 write(10,*) atom(i),qnew(3*(i-1)+1),qnew(3*(i-1)+2),qnew(3*(i-1)+3) 改为 write(10,'(A, 3F12.8)') atom(i),qnew(3*(i-1)+1),qnew(3*(i-1)+2),qnew(3*(i-1)+3) |
2楼2014-04-18 22:17:02
shenhai1315
木虫 (正式写手)
- 应助: 3 (幼儿园)
- 金币: 1699.1
- 散金: 30
- 红花: 1
- 帖子: 886
- 在线: 662.1小时
- 虫号: 751211
- 注册: 2009-04-17
- 专业: 计算数学与科学工程计算
3楼2014-04-18 23:37:16
jerkwin
专家顾问 (正式写手)
-
专家经验: +14 - 应助: 454 (硕士)
- 金币: 20699.1
- 散金: 148
- 红花: 81
- 帖子: 813
- 在线: 2648.3小时
- 虫号: 1023452
- 注册: 2010-05-19
- 专业: 理论和计算化学
- 管辖: 分子模拟
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ...
shenhai1315: 金币+100, ★★★★★最佳答案 2014-04-19 11:35:31
shenhai1315: 金币+100, ★★★★★最佳答案 2014-04-19 11:35:31
|
第一个变量使用字符格式输出, 后面三个使用浮点格式, 共12位, 小数点后有八位 |
» 本帖已获得的红花（最新10朵）
lkh0109101104楼2014-04-19 11:02:32
lkh010910110
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 4212
- 散金: 160
- 红花: 1
- 帖子: 64
- 在线: 16.7小时
- 虫号: 3352865
- 注册: 2014-08-05
- 专业: 动力学与控制
5楼2014-11-09 19:06:30
jerkwin
专家顾问 (正式写手)
-
专家经验: +14 - 应助: 454 (硕士)
- 金币: 20699.1
- 散金: 148
- 红花: 81
- 帖子: 813
- 在线: 2648.3小时
- 虫号: 1023452
- 注册: 2010-05-19
- 专业: 理论和计算化学
- 管辖: 分子模拟
6楼2014-11-09 23:52:34
