应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 如何实现第三列数的相加？？
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 901  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
本帖产生 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
======================================
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
进退有度，才不至进退维谷；宠辱皆忘，方可以宠辱不惊。
1楼 2012-01-13 08:51:47
已阅   回复此楼   关注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的个数为变量”……
赞一下(1人) 回复此楼
2楼2012-01-13 13:39:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

haizhfly

木虫 (正式写手)

【答案】应助回帖

★
感谢参与，应助指数 +1
jjdg(金币+1): 感谢参与 2012-01-15 10:04:42
M的个数为变量的话，建议求和的时候，加入计数器。最后的结果出来后，知道是多少个M相加的结果。
赞一下(1人) 回复此楼
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的回帖
查看全部 6 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 265求调剂 +9 梁梁校校 2026-04-01 9/450 2026-04-03 01:25 by 小饼干学姐0
[考博] 申博求助 +3 Reee1Llll 2026-04-01 3/150 2026-04-02 22:29 by 这是一个无聊的�
[考研] 326分求调剂 +3 于是乎呢 2026-04-01 3/150 2026-04-02 21:30 by jing_jenna
[考研] 277求调剂 +3 12A3 2026-04-02 3/150 2026-04-02 21:30 by swb0218
[考研] 351求调剂 +3 六兮昂啊 2026-03-27 3/150 2026-04-02 21:08 by dongzh2009
[考研] 调剂求助 +8 想换手机不想解� 2026-04-02 8/400 2026-04-02 20:47 by dongzh2009
[考研] 070300化学求调剂 +14 小黄鸭宝 2026-03-30 14/700 2026-04-02 10:07 by oooqiao
[考研] 285求调剂 +11 AZMK 2026-04-01 11/550 2026-04-01 22:40 by peike
[考研] 0703一志愿南师大334求调剂 +4 seven7yu 2026-03-30 4/200 2026-04-01 16:10 by oooqiao
[考研] 求调剂 +5 零八# 2026-03-27 5/250 2026-04-01 14:40 by yulian1987
[考研] 材料调剂 +10 Eujd1 2026-03-31 11/550 2026-04-01 11:23 by ivanqyq
[考研] 085410人工智能 初试316分 求调剂 +3 残星拂曙 2026-03-31 3/150 2026-04-01 11:09 by 小熊raider
[考研] 土木304求调剂 +3 兔突突突， 2026-03-31 3/150 2026-04-01 09:42 by JourneyLucky
[考研] 0710生物学求调剂！ +6 叙述文 2026-03-31 6/300 2026-04-01 09:39 by JourneyLucky
[考研] 289求调剂 +7 BrightLL 2026-03-29 7/350 2026-03-31 22:05 by 544594351
[考研] 254材料与化工求调剂 +3 翰冬林楠 2026-03-30 4/200 2026-03-31 17:53 by yishunmin
[基金申请] 面上5B能上会吗？ +8 redcom 2026-03-29 8/400 2026-03-31 15:53 by niuailing
[考研] 抱歉 +4 田洪有 2026-03-30 4/200 2026-03-30 21:26 by mumin1990
[考研] 322求调剂 +10 宋明欣 2026-03-27 10/500 2026-03-30 18:47 by 544594351
[考研] 330一志愿中国海洋大学 化学工程 085602 有读博意愿 求调剂 +3 wywy.. 2026-03-27 4/200 2026-03-28 03:32 by fmesaito
信息提示
关闭
请填处理意见
关闭