请选择 进入手机版 | 继续访问电脑版

分子模拟论坛 Molecular Simulation Forums

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 305|回复: 0

成功编译NBO 5.G on GAMESS (January 12, 2009 R3.)

[复制链接]

8

主题

28

帖子

70

积分

注册会员

Rank: 2

积分
70
发表于 2010-1-20 16:45:00 | 显示全部楼层 |阅读模式
本帖最后由 tephoon78 于 2010-1-20 16:49 编辑
NBO 5的源码下载
http://www.mdbbs.org/viewthread.php?tid=12591&highlight=nbo
2009年1月的源码。
另外在厦门大学的量子化学论坛上找到的NBO 5是02年的,在链接时出错。

1.
首先确保自己会编译Gamess,可以参考
http://hi.baidu.com/sobereva/blog/item/fff7b5fd1e8dd04fd6887db6.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/item/5a3aa337528c40d6a3cc2b00.html
回复

使用道具 举报

Archiver|手机版|小黑屋|分子模拟论坛  

GMT+8, 2019-9-22 10:03 , Processed in 0.109329 second(s), 30 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表