hdiff output

r29347/potential.f 2015-11-17 23:34:20.561585144 +0000 r29346/potential.f 2015-11-17 23:34:20.757587781 +0000
3674:             ENDIF3674:             ENDIF
3675: 3675: 
3676:             IF (UNRST) THEN3676:             IF (UNRST) THEN
3677:                CALL VSTAT(VNEW,TEMP,NINTS,NOPT)3677:                CALL VSTAT(VNEW,TEMP,NINTS,NOPT)
3678:                IF (PTEST) WRITE(*,'(A,43X,F15.10,2X,A,G15.10)') ' potential> RMS force: ',TEMP(5),' |gradient|=',3678:                IF (PTEST) WRITE(*,'(A,43X,F15.10,2X,A,G15.10)') ' potential> RMS force: ',TEMP(5),' |gradient|=',
3679:      &         TEMP(5)*SQRT(1.0D0*(NINTS))3679:      &         TEMP(5)*SQRT(1.0D0*(NINTS))
3680:             ELSE IF ( RIGIDINIT .AND. (ATOMRIGIDCOORDT .EQV. .FALSE.) ) THEN !hk2863680:             ELSE IF ( RIGIDINIT .AND. (ATOMRIGIDCOORDT .EQV. .FALSE.) ) THEN !hk286
3681:                CALL VSTAT(VNEW(1:DEGFREEDOMS),TEMP,DEGFREEDOMS,DEGFREEDOMS)3681:                CALL VSTAT(VNEW(1:DEGFREEDOMS),TEMP,DEGFREEDOMS,DEGFREEDOMS)
3682:                IF (PTEST) WRITE(*,'(A,43X,F15.10,2X,A,G15.10)') ' potential> RMS force: ',TEMP(5),' |gradient|=',3682:                IF (PTEST) WRITE(*,'(A,43X,F15.10,2X,A,G15.10)') ' potential> RMS force: ',TEMP(5),' |gradient|=',
3683:      &         TEMP(5)*SQRT(1.0D0*(DEGFREEDOMS))3683:      &         TEMP(5)*SQRT(1.0D0*(DEGFREEDOMS))
3684:                IF (AACONVERGENCET .AND. (TEMP(5) < 5.0D0 * GMAX)) THEN3684:                IF (AACONVERGENCET .AND. (TEMP(5) < 5.0D0 * GMAX) .AND. (.NOT. NEWNEBT) .AND. (.NOT. NEBT)) THEN
3685:                   CALL AACONVERGENCE (GRADATOMS, XRIGIDCOORDS, XRIGIDGRAD, TEMP(5))3685:                   CALL AACONVERGENCE (GRADATOMS, XRIGIDCOORDS, XRIGIDGRAD, TEMP(5))
3686:                END IF3686:                END IF
3687:             ELSE3687:             ELSE
3688:                CALL VSTAT(VNEW,TEMP,NOPT,NOPT)3688:                CALL VSTAT(VNEW,TEMP,NOPT,NOPT)
3689:                IF (PTEST) WRITE(*,'(A,43X,F15.10,2X,A,G15.10)') ' potential> RMS force: ',TEMP(5),' |gradient|=',3689:                IF (PTEST) WRITE(*,'(A,43X,F15.10,2X,A,G15.10)') ' potential> RMS force: ',TEMP(5),' |gradient|=',
3690:      &         TEMP(5)*SQRT(1.0D0*(NOPT))3690:      &         TEMP(5)*SQRT(1.0D0*(NOPT))
3691:             ENDIF3691:             ENDIF
3692:             RMS=TEMP(5)3692:             RMS=TEMP(5)
3693:             IF(DEBUG.AND.(RMS.NE.RMS)) THEN3693:             IF(DEBUG.AND.(RMS.NE.RMS)) THEN
3694:                WRITE(*,'(A)' ) 'potential> WARNING - RMS force is NaN - if using AMBER igb=1, can be due to negative Born radii'3694:                WRITE(*,'(A)' ) 'potential> WARNING - RMS force is NaN - if using AMBER igb=1, can be due to negative Born radii'


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0