24小时热门版块排行榜    

Znn3bq.jpeg
查看: 4318  |  回复: 26
【奖励】 本帖被评价20次,作者tephoon78增加金币 17.3
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

tephoon78

木虫 (正式写手)


[资源] 【原创】成功编译NBO 5.G on GAMESS (January 12, 2009 R3.)

NBO 5的源码下载
http://www.mdbbs.org/viewthread.php?tid=12591&highlight=nbo
2009年1月的源码。
另外在厦门大学的量子化学论坛上找到的NBO 5是02年的,在链接时出错。

1.  首先确保自己会、且已编译Gamess,可以参考
http://hi.baidu.com/sobereva/blo ... 8dd04fd6887db6.html
很详细,但是有点乱。

2. 先在windows下解压,copy到linux下
3、vi nbo_5g.src
:26638  ! 到达文件的26639行
dG
:w NBO_5GA.SRC   !将nbo_5g.src的剩余内容写到一个新文件内
:q!  !不保存退出。
vi nbo_5g.src
:1   !将光标定位在第一行
:d 26638   ! 从文件的第1行到26638行全删掉
:w NBO_5GB.SRC   !将nbo_5g.src的剩余内容写到一个新文件内
:q!  !不保存退出。
注:这一步的工作是将nbo_5g.src这个文件分成2个文件NBO_5GA.SRC和NBO_5GB.SRC
4、$ifort –o enable enable.f       !编译enable.f,我用的是intel fortran 11.1
$ ./enable                      !运行enable下面是过程。
Currently supported environments:
(1) 32-bit Unix   UNIX/LINUX
(2) 64-bit Unix   UNIX/LINUX
(3) DOS           PC DOS
(4) VMS           VAX VMS

Environment to enable (1-4)? 1
Currently supported NBO versions:
(1) GEN      GENNBO  (standalone)
(2) G03      Gaussian 03
(3) G98      Gaussian 98
(4) G94      Gaussian 94
(5) GMS      GAMESS
(6) NWC      NWChem
(7) AM1      MOPAC or AMPAC

NBO Program version to enable (1-7)? 5

Module  gmsnbo.src  will be created; OK to proceed [Y]/N? Y

NBO source (NBO_5G.SRC ) contains 52194 lines of code.
A total of 44308 lines were written to  gmsnbo.src
   including 272 utility and  2 operating system dependent lines.
------
结束后产生一个gmsnbo.src文件。

5、vi gmsnbo.src
8427行 IF(MORB.EQ.0.AND.NAMEAT(IATNO(NCTR.NE.'gh') THEN
修改成 IF(MORB.EQ.0.AND.NAMEAT(IATNO(NCTR.NE.'gh'))) THEN

15421行  IF(MORB.EQ.0.AND.NAMEAT(IATNO(NCTR).NE.'gh') THEN
修改成   IF(MORB.EQ.0.AND.NAMEAT(IATNO(NCTR).NE.'gh')) THEN

6、cp gmsnbo.src ~gamess/source/
   cd ~gamess/source/
7、vi prppop.src
将1111行修改成
IF(NPROC.EQ.1) CALL RUNNBO
8、vi rhfuhf.src
1676行 插入一行:
           COMMON /ENEDA / E0
4723行在ETOT = EHF+EN行插入1行
           IF(ITER.EQ.1) E0 = ETOT

9、vi  iolib.src:  
269行      IF(LEN.LE.0           ) GO TO 810
修改成      IF(LEN.LT.0           ) GO TO 810

281行         CALL DARD(V(IS),LENW,IDAF,NSP,IDTYP)
修改成        IF(LENW .GT. 0) CALL DARD(V(IS),LENW,IDAF,NSP,IDTYP)

549行        IF (N .GT. 0 .AND. LEN .NE. IFILEN(NREC)) GO TO 800
修改成        IF (N .GT. 0 .AND. LEN .GT. IFILEN(NREC)) GO TO 800

10、cd ..
vi compall
在 265行,插入一行
           ./comp gmsnbo

11. vi lked
在 801行最后 加入 gmsnbo.o

12、./compall >& compall.log&        !重新编译gamess
13、./lked gamess 01 >& lnked.log&   !重新链接程序  01可以是其它数值
14、vi rungms
修改set VERNO=01 或你自己设置的数值。
完成。注意nbo 不能并行。

http://hi.baidu.com/quchem/blog/ ... 8c40d6a3cc2b00.html

[ Last edited by tephoon78 on 2010-1-21 at 14:40 ]
回复此楼

» 收录本帖的淘帖专辑推荐

物化资料综合 量化

» 猜你喜欢

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

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

zhangfq7112

银虫 (正式写手)


★★★★★ 五星级,优秀推荐

楼主高手,能否把编译好的程序给我一份? zhangfq7112@126.com
6楼2010-01-21 20:47:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 27 个回答

abbott

金虫 (著名写手)


★★★★★ 五星级,优秀推荐

推荐! 不错 记录了!
2楼2010-01-20 18:49:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fooo

金虫 (正式写手)


上不去mdbbs,LZ给个源代码吧!
引用回帖:
Originally posted by tephoon78 at 2010-1-20 16:47:
NBO 5的源码下载
http://www.mdbbs.org/viewthread.php?tid=12591&highlight=nbo
2009年1月的源码。
另外在厦门大学的量子化学论坛上找到的NBO 5是02年的,在链接时出错。

1.  首先确保自己 ...

4楼2010-01-21 03:28:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hakuna

木虫 (知名作家)


★★★★★ 五星级,优秀推荐

很好很好很很好
5楼2010-01-21 16:43:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
简单回复
2010-01-20 20:17   回复  
 
☆ 无星级 ★ 一星级 ★★★ 三星级 ★★★★★ 五星级
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求计算机方向调剂 +3 Toffee2 2026-04-16 6/300 2026-04-19 22:37 by ll叶
[考博] 湖南大学刘巧玲课题组2026年第二批次博士研究生招生信息 +3 南风观火 2026-04-18 3/150 2026-04-19 21:44 by 淡雅人生27
[考博] 申博自荐 +4 Linxia林夏 2026-04-13 4/200 2026-04-19 19:55 by Equinoxhua
[考研] 294求调剂 +8 淡然654321 2026-04-17 9/450 2026-04-19 19:51 by Equinoxhua
[考研] 289 分105500药学专硕求调剂(找B区学校) +5 白云123456789 2026-04-13 5/250 2026-04-19 18:12 by Equinoxhua
[考研] 085404 22408 309分求调剂 +10 lzmk 2026-04-14 11/550 2026-04-19 16:42 by 中豫男
[考研] 307中医考研调剂 +9 于以采蘩 2026-04-14 9/450 2026-04-19 08:41 by 烟雨流涯
[考研] 327求调剂 +27 Xxjc1107. 2026-04-13 30/1500 2026-04-19 08:22 by cuisz
[考研] 一志愿沪9,326求生物学调剂 +12 刘墨墨 2026-04-13 12/600 2026-04-18 23:31 by 路病情
[考研] 收到复试调剂但是去不了 +8 小蜗牛* 2026-04-16 8/400 2026-04-18 11:15 by zixin2025
[考研] 急需调剂 +9 绝不放弃22 2026-04-15 10/500 2026-04-18 08:09 by chixmc
[考博] 申博/考博 +3 啃面包的小书虫 2026-04-17 4/200 2026-04-17 23:54 by 阳阳阳^_^
[考研] 一志愿华中农业071010,320求调剂 +17 困困困困坤坤 2026-04-14 19/950 2026-04-17 20:08 by 关一盏灯cd
[有机交流] 二苯甲酮酸类衍生物 50+3 小白爱主人 2026-04-17 6/300 2026-04-17 18:47 by kf2781974
[考研] 322求调剂 +6 tekuzu 2026-04-17 6/300 2026-04-17 13:48 by Espannnnnol
[基金申请] RY:中国产出的科学垃圾论文,绝对数量和比例都世界第一 +7 zju2000 2026-04-14 18/900 2026-04-16 11:36 by 欢乐颂叶蓁
[考研] 085801电气专硕272求调剂 +19 电气李 2026-04-13 21/1050 2026-04-15 13:37 by 黑科技矿业
[考研] 245求调剂 +6 冰糖橘?汽水 2026-04-13 10/500 2026-04-14 10:49 by jyl0317
[考研] 考研英一数一338分 +9 长江大学东校区 2026-04-13 10/500 2026-04-14 00:41 by 王珺璞
[考研] 302求调剂 +10 易!? 2026-04-13 10/500 2026-04-13 19:04 by lbsjt
信息提示
请填处理意见