24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1372  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿武汉理工,总分321,英一数二,求老师收留。 +5 nnnnnnn5 2026-03-25 5/250 2026-03-27 04:42 by wxiongid
[考研] 343求调剂 +4 赠我一本书 2026-03-23 4/200 2026-03-27 00:40 by wxiongid
[考研] 08工学调剂 +13 用户573181 2026-03-20 20/1000 2026-03-26 21:22 by 用户573181
[考研] 0703化学求调剂 +3 丹青奶盖 2026-03-26 5/250 2026-03-26 20:11 by macy2011
[考研] 材料调剂 +7 匹克i 2026-03-23 7/350 2026-03-26 19:00 by 不吃魚的貓
[考研] 281求调剂 +6 Koxui 2026-03-24 7/350 2026-03-26 15:37 by 无际的草原
[考研] 263求调剂 +6 yqdszhdap- 2026-03-22 10/500 2026-03-26 13:11 by 公瑾逍遥
[考研] 309求调剂 +4 gajsj 2026-03-25 5/250 2026-03-26 00:27 by Dyhoer
[考研] 求b区院校调剂 +4 周56 2026-03-24 5/250 2026-03-25 17:12 by yishunmin
[考研] 302求调剂 +4 锦衣卫藤椒 2026-03-25 4/200 2026-03-25 16:29 by 功夫疯狂
[考研] 340求调剂 +5 话梅糖111 2026-03-24 5/250 2026-03-25 06:53 by ilovexiaobin
[考研] 生物学学硕求调剂 +7 小羊睡着了? 2026-03-23 10/500 2026-03-25 02:24 by 清风拂扬。 m
[考研] 311求调剂 +3 冬十三 2026-03-24 3/150 2026-03-24 21:31 by peike
[考研] 食品专硕 一志愿双一流 328 +3 xiaom99 2026-03-21 4/200 2026-03-24 21:20 by lailaisimei
[考研] 300分,材料,求调剂,英一数二 +5 超赞的 2026-03-24 5/250 2026-03-24 21:07 by 星空星月
[考研] 344求调剂 +3 desto 2026-03-24 3/150 2026-03-24 10:09 by 搏击518
[考研] 341求调剂(一志愿湖南大学070300) +5 番茄头--- 2026-03-22 6/300 2026-03-23 23:45 by Txy@872106
[考研] 一志愿重庆大学085700资源与环境,总分308求调剂 +7 墨墨漠 2026-03-23 8/400 2026-03-23 20:36 by Creta
[考研] A区线材料学调剂 +5 周周无极 2026-03-20 5/250 2026-03-20 21:33 by laoshidan
[考研] 一志愿西安交通大学 学硕 354求调剂211或者双一流 +3 我想要读研究生 2026-03-20 3/150 2026-03-20 20:13 by JourneyLucky
信息提示
请填处理意见