| 查看: 1113 | 回复: 8 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
malei123新虫 (小有名气)
|
[交流]
【求助】怎样用Fortran语言编写bcc,fcc,hcp模型
|
||
| 怎样用Fortran语言编写bcc,fcc,hcp模型,大家给个流程图或者给个程序学一下 |
回复此楼» 猜你喜欢
2026年华南师范大学欢迎化学，化工，生物，生医工等专业优秀学子加入！
已经有5人回复
-
298求调剂
已经有3人回复
-
数一英一271专硕（085401）求调剂，可跨
已经有8人回复
-
295求调剂
已经有4人回复
-
0856求调剂
已经有5人回复
-
材料学硕333求调剂
已经有10人回复
-
299求调剂
已经有6人回复
-
一志愿郑州大学，080500学硕，总分317分求调剂
已经有6人回复
-
289求调剂
已经有12人回复
-
070305高分子化学与物理 304分求调剂
已经有6人回复
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
tianlangxingaa
铁杆木虫 (著名写手)
- 应助: 52 (初中生)
- 贵宾: 0.02
- 金币: 7464.2
- 红花: 19
- 帖子: 1283
- 在线: 735.1小时
- 虫号: 438857
- 注册: 2007-09-30
- 专业: 理论和计算化学
2楼2009-07-09 22:33:57
malei123
新虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 352.4
- 散金: 15
- 帖子: 134
- 在线: 62.2小时
- 虫号: 740151
- 注册: 2009-04-04
- 性别: GG
- 专业: 固体力学
3楼2009-07-10 09:36:42
tianlangxingaa
铁杆木虫 (著名写手)
- 应助: 52 (初中生)
- 贵宾: 0.02
- 金币: 7464.2
- 红花: 19
- 帖子: 1283
- 在线: 735.1小时
- 虫号: 438857
- 注册: 2007-09-30
- 专业: 理论和计算化学
4楼2009-07-10 09:59:08
