| 查看: 1144 | 回复: 4 | ||
836449366金虫 (小有名气)
|
[求助]
简单使用Fortran编写 已有1人参与
|
|
读写文件"xyz" xyz N(Fragment=1) 0.9363 0.3015 0.1222 N(Fragment=1) -0.2844 -0.3387 -0.3991 N(Fragment=1) -0.1127 1.1207 -0.5105 Br(Fragment=1) -0.3527 0.5055 0.8069 达到效果： N 0.9363 0.3015 0.1222 N -0.2844 -0.3387 -0.3991 N -0.1127 1.1207 -0.5105 Br -0.3527 0.5055 0.8069 Fortran语言 program main implicit none integer*4,parameter :: natom=4 integer*4 i,j character*80 record character*15 symb(natom),c(15) real*8 m(natom,3) open(10,file="xyz"  read (10,'(a80)') record do i=1,natom read (10,*) symb(i)(1:1),m(i,1),m(i,2),m(i,3) write (*,"(a3,3F12.6)" symb(i)(1:1),m(i,1),m(i,2),m(i,3)enddo end 发现这个只能实现单个字符的元素，不能打印出两个字符的元素，求大神帮忙修改下？ 还有，我在修改过程中，测试程序时，碰到这个 program main implicit none integer*4 i,j character*80 record open(10,file="xyz" read (10,"(a80)" recordwrite(*,"(a80)" record end 怎么总是无法打印出全部的内容，这个怎么修改？ |
回复此楼» 猜你喜欢
» 本主题相关价值贴推荐，对您同样有帮助:
Fortran如何编写求两组数据BIAS跟REMS的程序
已经有4人回复
- fortran 编程供aspen plus 调用中的疑问，非常感谢！
已经有4人回复
- 急：求用Fortran或者其他语言编写一个程序，处理下面的数据！！！！！！！！！！
已经有37人回复
- 请问在fortran里面怎么求复数矩阵的行列式！！！
已经有4人回复
- 高分求将我的MATLAB程序改写为FORTRAN程序（1000BB）
已经有13人回复
- 很简单的Fortran赋值出错啦，求大神们帮忙找bug...
已经有11人回复
- 求助：Fortran中如何调用‘计算软件’
已经有11人回复
- fortran编译中$符号的使用
已经有4人回复
- 求直接模拟蒙特卡罗方法的程序，包括二维和三维的用fortran编写的，谢谢
已经有9人回复
- fortran和c混合编译问题？
已经有9人回复
- 编一个fortran程序
已经有17人回复
- 用Fortran编写程序输出的数据一般用什么程序作图比较好？
已经有28人回复
- 求教，我没安装FORTRAN，能不能用其它简单的方法打开后缀为.f的FORTRAN源程序呢？
已经有13人回复
- 物理模拟是用c语言好还是fortran好？
已经有30人回复
- 求助Fortran编程
已经有8人回复
- 如何用fortran编写高斯白噪声程序
已经有6人回复
- MAC ox 下怎么用fortran 编程？
已经有9人回复
- 【求助】如何写FORTRAN程序实现求平均最近邻距离
已经有34人回复
- 【求助】FORTRAN写文件时每行开头都多了一个空格？
已经有6人回复
- 【求助】用fortran怎么描述下面这样的情况，我是新手，请大家帮忙
已经有8人回复
kekexili_08
木虫 (正式写手)
- 应助: 20 (小学生)
- 金币: 3465.2
- 散金: 322
- 红花: 13
- 帖子: 683
- 在线: 646.7小时
- 虫号: 1137497
- 注册: 2010-11-02
- 专业: 理论和计算化学
2楼2015-04-28 20:17:59
836449366
金虫 (小有名气)
- 应助: 1 (幼儿园)
- 金币: 3039.8
- 散金: 62
- 红花: 4
- 帖子: 270
- 在线: 356.3小时
- 虫号: 1478273
- 注册: 2011-11-05
- 专业: 理论和计算化学
3楼2015-04-30 17:53:07
kekexili_08
木虫 (正式写手)
- 应助: 20 (小学生)
- 金币: 3465.2
- 散金: 322
- 红花: 13
- 帖子: 683
- 在线: 646.7小时
- 虫号: 1137497
- 注册: 2010-11-02
- 专业: 理论和计算化学
4楼2015-05-01 10:47:16
836449366
金虫 (小有名气)
- 应助: 1 (幼儿园)
- 金币: 3039.8
- 散金: 62
- 红花: 4
- 帖子: 270
- 在线: 356.3小时
- 虫号: 1478273
- 注册: 2011-11-05
- 专业: 理论和计算化学
5楼2015-05-01 22:01:19
