24小时热门版块排行榜

返回列表

shenhai1315

木虫 (正式写手)

应助: 3 (幼儿园)
金币: 1699.1
散金: 30
红花: 1
帖子: 886
在线: 662.1小时
虫号: 751211
注册: 2009-04-17
专业: 计算数学与科学工程计算

[求助] 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
这样计算程序才能计算，就是输出格式不对好像。

谢谢了

回复此楼

1楼2014-04-18 19:40:30

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

jerkwin

专家顾问 (正式写手)

专家经验: +14
应助: 454 (硕士)
金币: 20699.1
散金: 148
红花: 81
帖子: 813
在线: 2648.3小时
虫号: 1023452
注册: 2010-05-19
专业: 理论和计算化学
管辖: 分子模拟

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ...
感谢参与，应助指数 +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

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

shenhai1315

木虫 (正式写手)

应助: 3 (幼儿园)
金币: 1699.1
散金: 30
红花: 1
帖子: 886
在线: 662.1小时
虫号: 751211
注册: 2009-04-17
专业: 计算数学与科学工程计算

引用回帖:

2楼: Originally posted by jerkwin at 2014-04-18 22:17:02
使用有格式的输出
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)

您好，'(A, 3F12.8)'中A和3F12.8都代表什么意思？谢谢

赞一下

回复此楼

3楼2014-04-18 23:37:16

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

jerkwin

专家顾问 (正式写手)

专家经验: +14
应助: 454 (硕士)
金币: 20699.1
散金: 148
红花: 81
帖子: 813
在线: 2648.3小时
虫号: 1023452
注册: 2010-05-19
专业: 理论和计算化学
管辖: 分子模拟

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ...
shenhai1315: 金币+100, ★★★★★最佳答案 2014-04-19 11:35:31

引用回帖:

3楼: Originally posted by shenhai1315 at 2014-04-18 23:37:16
您好，'(A, 3F12.8)'中A和3F12.8都代表什么意思？谢谢...

第一个变量使用字符格式输出, 后面三个使用浮点格式, 共12位, 小数点后有八位

赞一下

回复此楼