版块导航
正在加载中...
客户端APP下载
登录
注册
帖子
帖子
用户
本版
应《网络安全法》要求,自2017年10月1日起,未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用,请尽快对帐号进行手机号验证,感谢您的理解与支持!
24小时热门版块排行榜
>
论坛更新日志
(4550)
>
基金申请
(1181)
>
找工作
(430)
>
考博
(410)
>
有奖起名
(341)
>
考研
(271)
>
留学生活
(266)
>
论文投稿
(254)
>
休闲灌水
(247)
>
虫友互识
(242)
>
文献求助
(241)
>
硕博家园
(223)
>
教师之家
(203)
>
留学DIY
(194)
>
公派出国
(189)
>
导师招生
(168)
小木虫论坛-学术科研互动平台
»
计算模拟区
»
程序语言
»
Fortran
»
谁能帮我看看这段Fortran程序,不胜感激
5
1/1
返回列表
查看: 883 | 回复: 6
只看楼主
@他人
存档
新回复提醒
(忽略)
收藏
在APP中查看
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖
zhouzh2011
银虫
(初入文坛)
应助: 4
(幼儿园)
金币: 469.1
帖子: 45
在线: 137.1小时
虫号: 1484198
注册: 2011-11-09
性别:
MM
专业: 凝聚态物性 II :电子结构
[
求助
]
谁能帮我看看这段Fortran程序,不胜感激
谁能帮我看看这段Fortran程序,与第一性原理计算有关的,不胜感激!
回复此楼
» 本帖附件资源列表
欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
附件 1 :
fmg.f
2012-04-12 17:24:39, 7.18 K
» 猜你喜欢
售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急
已经有3人回复
今天放榜吗?
已经有13人回复
filecode,4个jtjc了
已经有9人回复
今天基金会出结果吗?20260819
已经有8人回复
欢迎发来filecode的Mz6后的代码验证其规律
已经有115人回复
2027广东省杰青
已经有10人回复
朋友圈看到的
已经有8人回复
时间戳变了,能看出什么问题?
已经有14人回复
咱们一起用铁证分析2026国家社科基金中标与否
已经有30人回复
快农历七夕节了,轻松一下,男人悄悄话,女施主请不要进来。
已经有7人回复
» 本主题相关价值贴推荐,对您同样有帮助:
大家帮看看这段话什么意思
已经有3人回复
求高人帮忙看一下我这个Fortran程序的错误出在哪里?
已经有12人回复
烟台万润的在线测评具体是什么题,知道的高手进来帮帮忙,不胜感激
已经有32人回复
有会看fortran程序的,能帮忙看看这个程序吗?
已经有10人回复
我编的Simpson积分法fortran程序给不出结果,大侠们看看哪里出了问题?
已经有4人回复
帮忙翻译一下 这是论文摘要 急。。。。。 不胜感激。。。。
已经有2人回复
向高手求助,希望有机牛人能帮帮忙,小女不胜感激!!!!!
已经有8人回复
无机纳米化学专业,请教高手翻译一段话,不胜感激!
已经有1人回复
有关fortran的一次而问题,希望大家能帮帮忙,谢谢
已经有4人回复
写了一个fortran90的小程序,编译通不过,请大侠帮忙
已经有59人回复
【求助】如何写FORTRAN程序实现求平均最近邻距离
已经有34人回复
【求助】用fortran怎么描述下面这样的情况,我是新手,请大家帮忙
已经有8人回复
1楼
2012-04-12 17:25:23
已阅
回复此楼
关注TA
给TA发消息
送TA红花
TA的回帖
zhouzh2011
银虫
(初入文坛)
应助: 4
(幼儿园)
金币: 469.1
帖子: 45
在线: 137.1小时
虫号: 1484198
注册: 2011-11-09
性别:
MM
专业: 凝聚态物性 II :电子结构
引用回帖:
2楼
:
Originally posted by
snoopyzhao
at 2012-04-12 18:46:36:
啥问题呢?这都不说别人怎么看?
呵呵,有附件,我对fortran基本不懂,我想知道这个文件执行时是怎么输入,输出的?谢谢了~
赞
一下
回复此楼
高级回复
3楼
2012-04-12 19:46:19
已阅
回复此楼
关注TA
给TA发消息
送TA红花
TA的回帖
查看全部 7 个回答
snoopyzhao
至尊木虫
(职业作家)
程序强帖: 16
应助: 157
(高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学
【答案】应助回帖
★
感谢参与,应助指数 +1
zhouzh2011: 金币+1
2012-04-12 19:45:11
啥问题呢?这都不说别人怎么看?
赞
一下
回复此楼
2楼
2012-04-12 18:46:36
已阅
回复此楼
关注TA
给TA发消息
送TA红花
TA的回帖
snoopyzhao
至尊木虫
(职业作家)
程序强帖: 16
应助: 157
(高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学
【答案】应助回帖
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
(幼儿园)
金币: 469.1
帖子: 45
在线: 137.1小时
虫号: 1484198
注册: 2011-11-09
性别:
MM
专业: 凝聚态物性 II :电子结构
引用回帖:
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的回帖
查看全部 7 个回答
如果回帖内容含有宣传信息,请如实选中。否则帐号将被全论坛禁言
普通表情
龙
兔
虎
猫
百度网盘
|
360云盘
|
千易网盘
|
华为网盘
在新窗口页面中打开自己喜欢的网盘网站,将文件上传后,然后将下载链接复制到帖子内容中就可以了。
最具人气热帖推荐
[查看全部]
作者
回/看
最后发表
[
论文投稿
]
售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急
+3
cHIDTWCTtLlG
2026-08-19
3/150
2026-08-19 15:28
by
rHxJfXUaiknj
[
基金申请
]
今天放榜吗?
+12
布布和一二
2026-08-19
13/650
2026-08-19 14:33
by
陈晨晨陈啊
[
基金申请
]
filecode,4个jtjc了
+8
ziyangfang
2026-08-19
9/450
2026-08-19 13:08
by
blacksandy
[
基金申请
]
今天基金会出结果吗?20260819
+8
kkkl_v
2026-08-19
8/400
2026-08-19 12:34
by
Vivilian
[
基金申请
]
欢迎发来filecode的Mz6后的代码验证其规律
+52
医学老男孩
2026-08-13
115/5750
2026-08-19 12:09
by
医学老男孩
[
基金申请
]
朋友圈看到的
+6
wangzilk
2026-08-18
8/400
2026-08-19 10:55
by
Haru815
[
基金申请
]
时间戳变了,能看出什么问题?
+10
基诺咪客
2026-08-17
14/700
2026-08-19 10:34
by
基诺咪客
[
基金申请
]
快农历七夕节了,轻松一下,男人悄悄话,女施主请不要进来。
+6
Tide man
2026-08-14
7/350
2026-08-19 09:56
by
ZJTJZ
[
基金申请
]
什么时候开奖?
+6
CrisMessi
2026-08-18
6/300
2026-08-19 08:06
by
Equinoxhua
[
基金申请
]
明天放榜?
+5
Shxjjxjkx
2026-08-18
5/250
2026-08-18 18:14
by
-大大大大大-
[
论文投稿
]
投稿咨询
+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
[
基金申请
]
各位道友,我要去昆明玩几天,回来见。
+7
Tide man
2026-08-14
8/400
2026-08-15 01:11
by
arzu_hma
[
基金申请
]
重要来源:本周末出结果
+10
瞬息宇宙
2026-08-12
10/500
2026-08-13 15:46
by
likettle
[
基金申请
]
Filecode 又变了,巨变
+3
WH3796
2026-08-12
4/200
2026-08-13 14:13
by
小木虫6752397
信息提示
关闭
请填处理意见
关闭
确定