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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 如何实现第三列数的相加？？
北京石油化工学院2026年研究生招生接收调剂公告
61/1返回列表
查看: 900  |  回复: 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的回帖
回帖置顶 ( 共有1个 )

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的回帖
普通回帖

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的回帖

阿黛拉

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

谢谢 请问能否帮忙写个程序？
赞一下 回复此楼
进退有度，才不至进退维谷；宠辱皆忘，方可以宠辱不惊。
4楼2012-01-14 08:53:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

阿黛拉

银虫 (小有名气)
引用回帖:
5楼: Originally posted by jjdg at 2012-01-15 12:22:45
保存你的数据为txt。求和.rar
fd/f1/27000_1326601528_214.png求和.rar求和.rar
...

请问exe如何编写并做成exe文件的呢，能否修改呢，目前想把M改成想要的字母？如何修改呢？谢谢
赞一下 回复此楼
进退有度，才不至进退维谷；宠辱皆忘，方可以宠辱不惊。
6楼2012-06-10 16:06:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 阿黛拉 的主题更新
61/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿0817化学工程与技术，求调剂 +7 我不是只因 2026-04-02 8/400 2026-04-03 00:15 by 雨天撑伞
[考研] 交通运输考试264分求工科调剂 +4 jike777 2026-04-02 4/200 2026-04-02 21:53 by zllcz
[考研] 071000生物学调剂 +7 知昭蔓 2026-04-02 7/350 2026-04-02 21:47 by dongzh2009
[考研] 266求调剂 +12 阳阳哇塞 2026-03-27 13/650 2026-04-02 21:32 by zllcz
[考研] 296求调剂 +4 sdhu 2026-04-02 4/200 2026-04-02 21:29 by baoball
[考研] 348求调剂 +11 zzzzyk123 2026-04-01 11/550 2026-04-02 16:52 by Wang200018
[考研] 材料求调剂一志愿哈工大324 +10 闫旭东 2026-03-28 12/600 2026-04-02 14:37 by olim
[考研] 270求调剂 +8 小杰pp 2026-03-31 10/500 2026-04-02 12:57 by yulian1987
[考研] 085601一志愿中山大学深圳材料工程330求调剂 +8 pipiver 2026-03-30 8/400 2026-04-02 12:01 by ms629
[考研] 重庆大学材料与化工085600，初试370+，求求调剂建议 +5 shzhou_ 2026-04-01 6/300 2026-04-02 10:05 by olim
[考研] 一志愿厦门大学化学工程（专硕）-数二英二406分-求调剂 +5 厦大化工 2026-04-01 5/250 2026-04-02 10:03 by jp9609
[考研] 372求调剂 +3 jj涌77 2026-04-02 3/150 2026-04-02 09:57 by olim
[考研] 材料调剂 +12 一样YWY 2026-04-01 12/600 2026-04-02 09:15 by olim
[考研] 070300一志愿211，312分求调剂院校 +14 小黄鸭宝 2026-03-30 14/700 2026-04-01 20:19 by 赖春艳
[考研] 0856，材料与化工321分求调剂 +13 大馋小子 2026-03-27 14/700 2026-04-01 15:58 by yanflower7133
[硕博家园] 考研调剂 +5 骆驼男人 2026-04-01 5/250 2026-04-01 14:28 by syjjj0321
[考研] 环境工程调剂 +9 hyzzzzzzz. 2026-04-01 9/450 2026-04-01 14:20 by salamander`
[考研] 085601一志愿西北工业大学初试346 +4 085601初试346 2026-03-30 4/200 2026-03-31 07:47 by jp9609
[考研] 305求调剂 +8 RuiFairyrui 2026-03-28 8/400 2026-03-29 08:22 by fmesaito
[考研] 330一志愿中国海洋大学 化学工程 085602 有读博意愿 求调剂 +3 wywy.. 2026-03-27 4/200 2026-03-28 03:32 by fmesaito
信息提示
关闭
请填处理意见
关闭