| 查看: 1014 | 回复: 8 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
malei123新虫 (小有名气)
|
[交流]
【求助】怎样用Fortran语言编写bcc,fcc,hcp模型
|
||
| 怎样用Fortran语言编写bcc,fcc,hcp模型,大家给个流程图或者给个程序学一下 |
回复此楼» 猜你喜欢
Bioresource Technology期刊，第一次返修的时候被退回好几次了
已经有7人回复
-
2025冷门绝学什么时候出结果
已经有4人回复
-
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有8人回复
-
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有5人回复
-
论文投稿，期刊推荐
已经有6人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
孩子确诊有中度注意力缺陷
已经有14人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
bay__gulf
金虫 (著名写手)
刘苏州
- 应助: 9 (幼儿园)
- 贵宾: 4.85
- 金币: 2332.8
- 红花: 1
- 帖子: 1344
- 在线: 271小时
- 虫号: 592012
- 注册: 2008-09-03
- 专业: 理论和计算化学
- 管辖: 分子模拟
★ ★ ★ ★ ★ ★
malei123(金币+2,VIP+0):好 7-10 19:00
wangen994(金币+2,VIP+0):干西恩i参与讨论 7-10 19:32
malei123(金币+2,VIP+0):很好 1-3 16:33
malei123(金币+2,VIP+0):好 7-10 19:00
wangen994(金币+2,VIP+0):干西恩i参与讨论 7-10 19:32
malei123(金币+2,VIP+0):很好 1-3 16:33
|
一段FCC 的代码，附上全部程序 CCCCCCCCCCCCC IJK = 0 DO 10 LG=0,1 DO 10 I=0,3 DO 10 J=0,3 DO 10 K=0,3 IJK = IJK + 1 X(IJK) = I * A + LG * A * 0.5 Y(IJK) = J * A + LG * A * 0.5 Z(IJK) = K * A 10 CONTINUE DO 15 LG=1,2 DO 15 I=0,3 DO 15 J=0,3 DO 15 K=0,3 IJK = IJK + 1 X(IJK) = I * A + (2 - LG) * A * 0.5 Y(IJK) = J * A + (LG - 1) * A * 0.5 Z(IJK) = K * A + A * 0.5 15 CONTINUE |
8楼2009-07-10 14:45:25