24小时热门版块排行榜

>论坛更新日志 (3878)
>文献求助 (386)
>虫友互识 (369)
>导师招生 (354)
>硕博家园 (111)
>休闲灌水 (103)
>博后之家 (94)
>招聘信息布告栏 (92)
>论文投稿 (92)
>考博 (80)
>催化 (57)
>公派出国 (54)
>基金申请 (48)
>考研 (47)
>论文道贺祈福 (43)
>教师之家 (41)

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

836449366

金虫 (小有名气)

应助: 1 (幼儿园)
金币: 3039.8
散金: 62
红花: 4
帖子: 270
在线: 356.3小时
虫号: 1478273
注册: 2011-11-05
专业: 理论和计算化学

[求助] 简单使用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)"

record
write(*,"(a80)"

record
end
怎么总是无法打印出全部的内容，这个怎么修改？

回复此楼

» 猜你喜欢

2026年机械制造与材料应用国际会议（ICMMMA 2026）已经有4人回复
磺酰氟产物，毕不了业了！已经有6人回复
求助:我三月中下旬出站，青基依托单位怎么办？已经有9人回复
Cas 72-43-5需要30g，定制合成，能接单的留言已经有8人回复
北京211副教授，35岁，想重新出发，去国外做博后，怎么样？已经有8人回复
论文终于录用啦！满足毕业条件了已经有25人回复
自荐读博已经有3人回复
不自信的我已经有5人回复
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球已经有8人回复

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

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人回复

1楼 2015-04-28 16:40:17

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

836449366

金虫 (小有名气)

应助: 1 (幼儿园)
金币: 3039.8
散金: 62
红花: 4
帖子: 270
在线: 356.3小时
虫号: 1478273
注册: 2011-11-05
专业: 理论和计算化学

引用回帖:

4楼: Originally posted by kekexili_08 at 2015-05-01 10:47:16
program main
   implicit none
   integer*4 i,j
   character*80 record
   open(10,file="xyz"

10 read(10,"(a80)",end=9999) record
write(*,"(a8 ...

太感谢了，小程序难倒一批人