24小时热门版块排行榜    

查看: 1421  |  回复: 2

836449366

金虫 (小有名气)

[求助] 怎样将Fortran的结果导出到指定文件中

大家好,我的程序是怎样的?
program main
       implicit none
       integer*4 i,j
       real*8 m1(18,3),m2(18,3),vect(3,3)
       aharacter*30 symb1(18),symb2(18)

       open(10,file='naphta.dat')
       do i=1,3
         read(10,*) a, (vect(i,j),j=1,3)
         write(*,*) a, (vect(i,j),j=1,3)
       enddo
       read(10,*) a
       do i=1,18
         read(10,*) symb1(i),m1(i,1),m1(i,2),m1(i,3)
         write(*,*) symb1(i),m1(i,1),m1(i,2),m1(i,3)
       enddo
       read(10,*) a
       do i=1,18
         read(10,*) symb2(i),m2(i,1),m2(i,2),m2(i,3)
         write(*,*) symb2(i),m2(i,1),m2(i,2),m2(i,3)
         enddo
       close(10)
       end
我的数据是放在了naphta.dat这个文件中,现在我想将输出的结果导出到aaa.txt这个文件中,怎样导入? (导出到屏幕上是正确的)
ps:   naphta.dat的文件内容
VectorA        6.6917         0           -4.5783
VectorB        0         5.9397            0                  
VectorC        0         0            8.6472                                 
m1                          
C       2.794453389    3.082110330   -4.755097497
……           ……                   ……                     ……
H       4.290717224    0.663464490   -3.154380207
H       3.129707495    4.701866520    0.702793107 (说明:都是18个元素符号,18个原子坐标)
m2                          
C       0.551395975    0.112260330    2.465947429
……           ……                   ……                     ……
H      -0.944867860   -2.306385510    0.865230139
H       0.216141869    1.732016520   -2.991943174
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

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

virtualzx

木虫 (著名写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
gmy1990: 金币+1 2013-09-29 06:41:48
836449366: 金币+10, ★★★很有帮助 2013-09-29 09:24:18
/path/to/yourexecutable > aaa.txt
2楼2013-09-28 23:20:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

836449366

金虫 (小有名气)

引用回帖:
2楼: Originally posted by virtualzx at 2013-09-28 23:20:47
/path/to/yourexecutable > aaa.txt

谢谢,会了
就是先提交ifort xxx.f90 -o try, 之后在进行./try > aaa.txt, 就可以把数据导出到aaa.txt文件了
3楼2013-09-29 09:23:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 836449366 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 qTvzQBRAHjCi 2026-08-07 4/200 2026-08-08 17:22 by oEVWOejN9taj
[找工作] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 qTvzQBRAHjCi 2026-08-07 4/200 2026-08-08 17:07 by oEVWOejN9taj
[论文投稿] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 qTvzQBRAHjCi 2026-08-07 4/200 2026-08-08 16:47 by oEVWOejN9taj
[考研] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +3 qTvzQBRAHjCi 2026-08-07 5/250 2026-08-08 16:47 by oEVWOejN9taj
[基金申请] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +3 Vi50GxzrFcSG 2026-08-07 5/250 2026-08-08 16:27 by oEVWOejN9taj
[考博] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +3 Vi50GxzrFcSG 2026-08-07 4/200 2026-08-08 16:22 by oEVWOejN9taj
[博后之家] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 Vi50GxzrFcSG 2026-08-07 4/200 2026-08-08 16:02 by oEVWOejN9taj
[论文投稿] 十年后又回来了,论文投稿求助 +5 哈哈114477 2026-08-01 5/250 2026-08-08 15:14 by 仁砚薪传
[论文投稿] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +3 WQyTGMbfH7Cx 2026-08-07 4/200 2026-08-08 15:02 by oEVWOejN9taj
[硕博家园] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +4 HEQlVqMTIA7d 2026-08-07 6/300 2026-08-08 14:47 by oEVWOejN9taj
[论文投稿] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 HEQlVqMTIA7d 2026-08-07 5/250 2026-08-08 14:22 by oEVWOejN9taj
[论文投稿] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +3 KXLV3nuBVBY7 2026-08-07 6/300 2026-08-08 14:01 by oEVWOejN9taj
[基金申请] 基金中了 +14 laoda193707 2026-08-06 14/700 2026-08-08 00:23 by 实验小白ha
[基金申请] 大家散了吧,后缀研究没有意义,别浪费时间了,过好目前的每一天,不要焦虑 +5 Tide man 2026-08-06 7/350 2026-08-07 13:11 by 医学老男孩
[基金申请] 求各位大神看下 100+6 hpkpkpkp 2026-08-05 33/1650 2026-08-06 14:49 by zhiyanjiang
[基金申请] 影响面上的因素 +8 布布和一二 2026-08-05 11/550 2026-08-06 10:41 by 宝贝虫子
[基金申请] 好消息?这个有何含义??? +8 Tide man 2026-08-05 10/500 2026-08-05 16:14 by xmuxiaoyu
[考博] 【2027博士申请】纳米药物递送方向 20+3 13586093586 2026-08-03 4/200 2026-08-05 09:59 by lfy8008
[基金申请] 有没有H口的?有收到消息的吗? +3 超级海虾 2026-08-04 3/150 2026-08-04 17:26 by 学教育滴
[基金申请] 什么时候能放榜呀? +3 Jacob678 2026-08-03 3/150 2026-08-03 16:14 by gltch
信息提示
请填处理意见