| 查看: 1316 | 回复: 2 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
云中木金虫 (小有名气)
|
[求助]
关于siesta的一些问题 已有1人参与
|
|
|
问一下1.siesta如何编译使用gnubands指令画能带图；2.当提示Dimensions in gnubands too small时如何操作修改数组大小。 希望得你帮助，感激不尽！ |
回复此楼» 猜你喜欢
二苯甲酮酸类衍生物
已经有4人回复
-
一志愿中科大材料与化工，353分还有调剂学校吗
已经有11人回复
-
294求调剂
已经有6人回复
-
335求调剂
已经有23人回复
-
279求调剂
已经有13人回复
-
304求调剂
已经有6人回复
-
322求调剂
已经有3人回复
-
271求调剂
已经有39人回复
-
收到复试调剂但是去不了
已经有6人回复
-
有没有接收比较快的sci期刊呀，最好在一个月之内的，研三孩子求毕业
已经有5人回复
云中木
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1247.8
- 散金: 150
- 帖子: 52
- 在线: 46.7小时
- 虫号: 3563776
- 注册: 2014-11-24
- 性别: GG
- 专业: 物理学I
3楼2016-07-15 08:48:51
zhangguangping
木虫 (著名写手)
- 1ST强帖: 23
- 应助: 71 (初中生)
- 贵宾: 0.031
- 金币: 1973.1
- 散金: 9059
- 红花: 79
- 帖子: 2681
- 在线: 2128.8小时
- 虫号: 529624
- 注册: 2008-03-20
- 性别: GG
- 专业: 原子和分子物理
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
云中木: 金币+20, ★★★很有帮助 2016-07-15 08:48:25
云中木: 金币+20, ★★★很有帮助 2016-07-15 08:48:25
|
这是由于程序采用的是固定大小的数组导致的。可以修改一下程序，将数组设置为动态分配的，这样就解决问题了。将附件中的程序替换原来的程序编译即可。 ===== 删除 integer maxk, maxb, maxs parameter (maxk=1000, maxb=100, maxs=2) double precision e(maxb, maxs, maxk), k(maxk) 添加 double precision, dimension(:,:,  ,allocatable :: e double precision, dimension( ,allocatable :: k然后将 overflow = (nband.gt.maxb) .or. (nk.gt.maxk) .or. (nspin.gt.maxs) if (overflow) stop 'Dimensions in gnubands too small' 替换为 allocate ( e(nband,nspin,nk),k(nk) ) ==== |
» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : gnubands.f
2016-07-14 17:15:13, 2.4 K
2楼2016-07-14 17:17:07
