hdiff output

r32909/geopt.f 2017-07-03 17:30:20.844319095 +0100 r32908/geopt.f 2017-07-03 17:30:21.100322507 +0100
1425: ! AMBER call to routine in amberinterface.f1425: ! AMBER call to routine in amberinterface.f
1426:                 IF ((AMBERT.OR.NABT).AND.MWVECTORS) THEN1426:                 IF ((AMBERT.OR.NABT).AND.MWVECTORS) THEN
1427:                         CALL A9DUMPMODES(DIAG,ZT,NOPT,3*NATOMS)1427:                         CALL A9DUMPMODES(DIAG,ZT,NOPT,3*NATOMS)
1428:                 ENDIF1428:                 ENDIF
1429:               IF(NORMALMODET) CALL VISNORMODES(Q)1429:               IF(NORMALMODET) CALL VISNORMODES(Q)
1430:          ENDIF ! End of IF(ENDHESS AND...)1430:          ENDIF ! End of IF(ENDHESS AND...)
1431: 1431: 
1432:          GOODSTRUC1 = .TRUE.1432:          GOODSTRUC1 = .TRUE.
1433:          GOODSTRUC2 = .TRUE.1433:          GOODSTRUC2 = .TRUE.
1434:          IF (AMBER12T) THEN1434:          IF (AMBER12T) THEN
1435:             IF (RIGIDINIT .AND. (ATOMRIGIDCOORDT .EQV. .FALSE.)) THEN1435:             CALL CIS_TRANS_CHECK(Q, GOODSTRUC1)
1436:                CALL TRANSFORMRIGIDTOC(1,NRIGIDBODY,DUMQ,Q(1:DEGFREEDOMS))1436:             CALL CHIRALITY_CHECK(Q, GOODSTRUC2)
1437:                CALL CIS_TRANS_CHECK(DUMQ, GOODSTRUC1) 
1438:                CALL CHIRALITY_CHECK(DUMQ, GOODSTRUC2) 
1439:             ELSE 
1440:                CALL CIS_TRANS_CHECK(Q, GOODSTRUC1) 
1441:                CALL CHIRALITY_CHECK(Q, GOODSTRUC2) 
1442:             ENDIF 
1443:          END IF1437:          END IF
1444:          IF (.NOT. GOODSTRUC1) THEN1438:          IF (.NOT. GOODSTRUC1) THEN
1445:             WRITE(*,'(A)') ' geopt> cistrans problem' 1439:             WRITE(*,'(A)') ' geopt> cistrans problem' 
1446:          END IF1440:          END IF
1447:          IF (.NOT. GOODSTRUC2) THEN1441:          IF (.NOT. GOODSTRUC2) THEN
1448:             WRITE(*,'(A)') ' geopt> chirality problem'1442:             WRITE(*,'(A)') ' geopt> chirality problem'
1449:          END IF1443:          END IF
1450: 1444: 
1451:          PRINT*1445:          PRINT*
1452:          WRITE(*,'(A)') ' geopt>                          **** CONVERGED ****'1446:          WRITE(*,'(A)') ' geopt>                          **** CONVERGED ****'


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0