24小时热门版块排行榜    

查看: 832  |  回复: 5
本帖产生 1 个 程序强帖 ,点击这里进行查看
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

阿黛拉

银虫 (小有名气)

[求助] 如何实现第三列数的相加??

如何fortran实现Species 为M的charge列的相加(M的个数为变量)。
文本格式如下:

  Hirshfeld Analysis
     ------------------
Species   Ion     Hirshfeld Charge (e)
======================================
  N       1                -0.05
  N       2                -0.05
  M       1                -0.01
  M       2                -0.01
  M       3                 0.02
  M       4                 0.03
  M       5                -0.01
  M       6                -0.01
  M       7                 0.01
  M       8                 0.01
  M       9                -0.01
  M      10                 0.00
  M      11                 0.00
  M      12                 0.08
  M      13                -0.01
  M      14                -0.01
  M      15                -0.01
  M      16                -0.01
  M      17                 0.02
  M      18                -0.01
  M      19                -0.01
  M      20                 0.03
  M      21                -0.01
  M      22                -0.01
  M      23                -0.01
  M      24                 0.03
  M      25                 0.02
  M      26                -0.01
  M      27                -0.01
======================================
回复此楼
进退有度,才不至进退维谷;宠辱皆忘,方可以宠辱不惊。
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

阿黛拉

银虫 (小有名气)

引用回帖:
: Originally posted by haizhfly at 2012-01-14 08:18:51:
M的个数为变量的话,建议求和的时候,加入计数器。最后的结果出来后,知道是多少个M相加的结果。

谢谢 请问能否帮忙写个程序?
进退有度,才不至进退维谷;宠辱皆忘,方可以宠辱不惊。
4楼2012-01-14 08:53:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖


感谢参与,应助指数 +1
jjdg(金币+1): 感谢参与 2012-01-14 00:07:50
用文本的方式读入一行,判断是不是 M 开头的,如果是读最后的那个数值,然后加和就可以了啊……

没有看懂那句“M的个数为变量”……
2楼2012-01-13 13:39:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

haizhfly

木虫 (正式写手)

【答案】应助回帖


感谢参与,应助指数 +1
jjdg(金币+1): 感谢参与 2012-01-15 10:04:42
M的个数为变量的话,建议求和的时候,加入计数器。最后的结果出来后,知道是多少个M相加的结果。
3楼2012-01-14 08:18:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jjdg

版主 (知名作家)

优秀版主

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
阿黛拉: 金币+10, ★★★★★最佳答案 2012-03-26 09:27:56
xzhdty: 程序强帖+1 2012-03-27 06:58:40
保存你的数据为txt。[ Last edited by jjdg on 2012-1-17 at 10:11 ]

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : 求和.rar
  • 2012-01-17 10:11:54, 4.74 K
努力学习!以正当途径!获得需要的知识!
5楼2012-01-15 12:22:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
信息提示
请填处理意见