24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1373  |  回复: 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的回帖

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的回帖
查看全部 3 个回答

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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求调剂,一志愿 南京航空航天大学大学 ,080500材料科学与工程学硕 +4 @taotao 2026-03-26 5/250 2026-03-27 08:10 by hypershenger
[考研] 081200-11408-276学硕求调剂 +3 崔wj 2026-03-26 3/150 2026-03-27 07:58 by chemisry
[考研] 食品工程专硕求调剂 +3 小张zxy张 2026-03-26 3/150 2026-03-27 01:14 by dgnhs
[考研] 286求调剂 +5 PolarBear11 2026-03-26 5/250 2026-03-26 23:59 by 运气yunqi
[考研] 0703化学338求调剂! +5 Zuhui0306 2026-03-26 6/300 2026-03-26 23:42 by 381988266
[考研] 329求调剂 +5 1() 2026-03-22 5/250 2026-03-26 20:40 by fmesaito
[考研] 266分求材料化工冶金矿业等专业的调剂 +3 哇呼哼呼哼 2026-03-26 3/150 2026-03-26 19:16 by JourneyLucky
[考研] 340求调剂 +3 Amber00 2026-03-26 3/150 2026-03-26 18:57 by 不吃魚的貓
[考研] 材料科学与工程 317求调剂 +4 JKSOIID 2026-03-26 4/200 2026-03-26 15:58 by 不吃魚的貓
[考研] 297求调剂 +6 田洪有 2026-03-26 6/300 2026-03-26 15:55 by 不吃魚的貓
[考研] 一志愿河工大 081700 276求调剂 +4 地球绕着太阳转 2026-03-23 4/200 2026-03-26 14:27 by zzll406
[考研] 网络空间安全0839招调剂 +4 w320357296 2026-03-25 6/300 2026-03-25 17:59 by 255671
[考研] 0703化学求调剂 +6 奶油草莓. 2026-03-22 7/350 2026-03-25 10:00 by shangxh
[考研] 一志愿武理085500机械专业总分300求调剂 +3 an10101 2026-03-24 7/350 2026-03-25 00:00 by 山鬼0-
[基金申请] 请教下大家 2026年国家基金申请是双盲审吗? +3 lishucheng1 2026-03-22 5/250 2026-03-24 08:22 by gltch
[考研] 341求调剂(一志愿湖南大学070300) +5 番茄头--- 2026-03-22 6/300 2026-03-23 23:45 by Txy@872106
[考研] 一志愿北京化工大学 070300 学硕 336分 求调剂 +7 vv迷 2026-03-22 7/350 2026-03-23 23:44 by Txy@872106
[考研] 一志愿东华大学控制学硕320求调剂 +3 Grand777 2026-03-21 3/150 2026-03-21 19:23 by 简之-
[考研] 0805材料320求调剂 +3 深海物语 2026-03-20 3/150 2026-03-21 15:46 by 无际的草原
[考研] A区线材料学调剂 +5 周周无极 2026-03-20 5/250 2026-03-20 21:33 by laoshidan
信息提示
请填处理意见