24小时热门版块排行榜    

查看: 881  |  回复: 6

zhouzh2011

银虫 (初入文坛)

[求助] 谁能帮我看看这段Fortran程序,不胜感激

谁能帮我看看这段Fortran程序,与第一性原理计算有关的,不胜感激!
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : fmg.f
  • 2012-04-12 17:24:39, 7.18 K

» 猜你喜欢

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

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

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖


感谢参与,应助指数 +1
zhouzh2011: 金币+1 2012-04-12 19:45:11
啥问题呢?这都不说别人怎么看?
2楼2012-04-12 18:46:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhouzh2011

银虫 (初入文坛)

引用回帖:
2楼: Originally posted by snoopyzhao at 2012-04-12 18:46:36:
啥问题呢?这都不说别人怎么看?

呵呵,有附件,我对fortran基本不懂,我想知道这个文件执行时是怎么输入,输出的?谢谢了~
3楼2012-04-12 19:46:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

xzhdty: , 欢迎常来程序语言 2012-04-12 21:42:35
用法在文件中不是有吗?当然,除了这个之外,我也看不懂,呵呵……
CODE:
c---------------------------------------------------------------------
c     Utility program which handle the data in the file used
c     by 'cpa91' such that rearrangement of the records,
c     including the chnage in the number of the component atoms
c     and reversing of the spin direction, becomes possible.
c     Input data cards have a form like the following:
c
c     file1  1  2  3  4
c     file2  1  2 -1 -2
c
c     In this case 4 data named respectively 1, 2, 3, and 4 of
c     inout file will be output in the sequence of 1, 2, 1, 2 and
c     further the spin direction for the last two data is reversed.
c     Another example:
c
c     file1  1  2
c     file1  1  2  1  2
c
c     In this case both the input and the output files is file1, and
c     for the input only 2 data, 1 and 2, are assumed to recorded but
c     to be expanded up to 4 data in the output.
c     See inside for further detail.
c     The program uses some routines provided by 'cpasub91'.
c     coded by H. Akai, 27 aug. 1991 in Juelich
c---------------------------------------------------------------------

4楼2012-04-12 20:00:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhouzh2011

银虫 (初入文坛)

引用回帖:
4楼: Originally posted by snoopyzhao at 2012-04-12 20:00:19:
用法在文件中不是有吗?当然,除了这个之外,我也看不懂,呵呵……


c---------------------------------------------------------------------
c     Utility program which handle the data in the file u ...

呵呵,就是不是很懂,能诠释一下就好了
5楼2012-04-12 21:06:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

q1036210267

木虫 (正式写手)

【答案】应助回帖

感谢参与,应助指数 +1
看过了。帮顶下。
我现在做的是分子模拟计算。对于你的量化计算,我表示压力很大。。
生活中坚持快乐的原则不改变,学习工作中踏实上进!`~`
6楼2012-04-14 11:48:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhouzh2011

银虫 (初入文坛)

引用回帖:
6楼: Originally posted by q1036210267 at 2012-04-14 11:48:09:
看过了。帮顶下。
我现在做的是分子模拟计算。对于你的量化计算,我表示压力很大。。

呵呵,谢谢。你能看懂 我其实不知道这个程序到底是怎样实现the chnage in the number of the component atoms
and reversing of the spin direction的,输入中的1 2 3 4又是何意义?
7楼2012-04-14 12:50:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zhouzh2011 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 什么时候开奖? +4 CrisMessi 2026-08-18 4/200 2026-08-19 00:53 by gatelove
[基金申请] 咱们一起用铁证分析2026国家社科基金中标与否 +7 启萌科技 2026-08-12 27/1350 2026-08-18 21:44 by Noways
[教师之家] 为什么余额宝的年化利率越来越低?主要原因有哪些? +3 瞬息宇宙 2026-08-15 3/150 2026-08-18 21:40 by xiaohuixin
[基金申请] 2027广东省杰青 +3 奶牛小黑 2026-08-15 9/450 2026-08-18 20:09 by 奶牛小黑
[基金申请] 欢迎发来filecode的Mz6后的代码验证其规律 +51 医学老男孩 2026-08-13 110/5500 2026-08-18 19:07 by icerianxia
[基金申请] 明天放榜? +5 Shxjjxjkx 2026-08-18 5/250 2026-08-18 18:14 by -大大大大大-
[基金申请] 时间戳变了,能看出什么问题? +8 基诺咪客 2026-08-17 11/550 2026-08-18 17:13 by 悠然熊猫
[基金申请] 重要消息,中午系统在维护 +9 yuleib84 2026-08-18 10/500 2026-08-18 16:52 by archvillain
[论文投稿] 投稿咨询 +4 wwm09 2026-08-17 6/300 2026-08-18 15:36 by wwm09
[基金申请] 时间戳又变了8-15 +14 archvillain 2026-08-15 26/1300 2026-08-18 13:37 by phantomgost
[基金申请] 今天维护系统维护 祝所有人 高中 +8 gjjjzhong 2026-08-18 9/450 2026-08-18 13:01 by 家与远方
[基金申请] 哪位老哥知道今年的国自然具体哪一天放榜? +13 Ldrop2023 2026-08-13 16/800 2026-08-18 12:25 by 淀粉搬运工
[基金申请] 93BebMhtakh前后11位开头都是大写 +4 且听虎啸 2026-08-17 5/250 2026-08-18 00:49 by 蔡棒棒菂
[基金申请] 感觉是下周放榜了 +6 angus9576 2026-08-17 11/550 2026-08-17 23:57 by angus9576
[基金申请] 今天系统多次维护,明天很可能放榜! +8 zju2000 2026-08-16 9/450 2026-08-17 12:20 by lmz0216
[精细化工] 招聘 金属平磨液,抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
[基金申请] 各位道友,我要去昆明玩几天,回来见。 +7 Tide man 2026-08-14 8/400 2026-08-15 01:11 by arzu_hma
[基金申请] 不应该看fileCode +7 且听虎啸 2026-08-12 9/450 2026-08-13 14:27 by flydreamws
[基金申请] Filecode 又变了,巨变 +3 WH3796 2026-08-12 4/200 2026-08-13 14:13 by 小木虫6752397
[基金申请] 结合人工智能,周易传统文化,filecode打分制来了,3分以上希望很大。 +3 Tide man 2026-08-12 4/200 2026-08-13 08:35 by ZJTJZ
信息提示
请填处理意见