| 查看: 1350 | 回复: 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 |
回复此楼» 猜你喜欢
化工安全有关的复习提纲
已经有0人回复
-
国家级人才课题组招收2026年入学博士
已经有2人回复
-
物理化学论文润色/翻译怎么收费?
已经有59人回复
-
2026第二届光电子与半导体器件前沿技术研讨会——光电子赋能·半导体创芯！
已经有1人回复
-
散金
已经有87人回复
-
光电子赋能·半导体创芯！
已经有1人回复
-
光电子赋能·半导体创芯！
已经有0人回复
-
浙江师范大学国家杰青杨启华教授团队招收2026年博士研究生
已经有34人回复
-
QE计算电声耦合的时候报错Error in routine lambda (100)wrong or too many modes
已经有2人回复
-
南通大学电气与自动化学院2026年优秀博士招聘公告
已经有0人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- fortran里一个子程序不运行是怎么回事
已经有13人回复
- Fortran 函数中的循环无法进行
已经有4人回复
- fortran读写问题
已经有6人回复
- fortran文件操作，接着写不覆盖
已经有3人回复
- FORTRAN中如何实现重复读取一行？
已经有24人回复
- fortran输出求助
已经有6人回复
- Fortran数据读入格式的修改
已经有5人回复
- Fortran的subroutine和function有什么区别，是在于输入输出的特点吗？
已经有13人回复
- 求帮忙啊~ matlab一多项式结果太长，怎么写到txt里？
已经有14人回复
- 大家帮我看一个fortran的程序，我总是计算不出正确的结果
已经有20人回复
- 如何改变fortran的浮点精度
已经有28人回复
- Fortran的格式化输入输出问题
已经有14人回复
- fortran两个问题，文件中的空格，屏幕同一行覆盖输出
已经有23人回复
- 【求助】FORTRAN写文件时每行开头都多了一个空格？
已经有6人回复
- 【求助】如何读取输出文件中的键级
已经有4人回复
- 【求助】matlab中如何将程序的结果输出到一个文件中
已经有11人回复
- 【求助】fortran中怎么存储不确定长度的数据【已完结】
已经有6人回复
- 【求助】Fortran程序，如何让exe文件可以单独运行？
已经有6人回复
- 【求助】Fortran 如何读取文件中特定行的内容
已经有16人回复
- 【求助】matlab读取fortran输出的txt文件【已解决】
已经有3人回复
virtualzx
木虫 (著名写手)
- QC强帖: 2
- 应助: 263 (大学生)
- 金币: 7161.3
- 红花: 54
- 帖子: 1605
- 在线: 317.6小时
- 虫号: 2069080
- 注册: 2012-10-18
- 性别: GG
- 专业: 理论和计算化学
2楼2013-09-28 23:20:47
836449366
金虫 (小有名气)
- 应助: 1 (幼儿园)
- 金币: 3039.8
- 散金: 62
- 红花: 4
- 帖子: 270
- 在线: 356.3小时
- 虫号: 1478273
- 注册: 2011-11-05
- 专业: 理论和计算化学
3楼2013-09-29 09:23:40