[交流] 【求助】[求助]哪位有linux下的nbo5.0软件

Originally posted by zhangfq7112 at 2009-6-21 16:56:
真通过了，我用inter fortran 编译不过去！请问snoopyzhao, 编译好的可执行文件能用吗？

--- gennbo.f        Sun Jun 21 17:43:40 2009
+++ newgennbo.f        Sun Jun 21 17:42:12 2009
@@ -8424,7 +8424,7 @@
                   END IF
                 END IF
   250         CONTINUE
-              IF(MORB.EQ.0.AND.NAMEAT(IATNO(NCTR.NE.'gh') THEN
+              IF(MORB.EQ.0.AND.NAMEAT(IATNO(NCTR.NE.'gh'))) THEN
                 WRITE(LFNPR,2600) ITYP,NAMEAT(IATNO(NCTR)),NCTR,
      +                            (IVAL(I),I=1,4),M,LA
                 CALL NBHALT('Missing valence orbital in SR NAOANL.')
@@ -15418,7 +15418,7 @@
                       OCC = DM(N,N)
                 END IF
    60         CONTINUE
-              IF(MORB.EQ.0.AND.NAMEAT(IATNO(NCTR).NE.'gh') THEN
+              IF(MORB.EQ.0.AND.NAMEAT(IATNO(NCTR).NE.'gh')) THEN
                 WRITE(LFNPR,2600) ITYP,NAMEAT(IATNO(NCTR)),NCTR,
      +                            (IVAL(I),I=1,4),M,LA
                 CALL NBHALT('SR CORE could not find valence orbital.')