hdiff output

r29823/ncutils.f90 2016-01-25 10:30:12.657623614 +0000 r29822/ncutils.f90 2016-01-25 10:30:12.853626236 +0000
 90:           DO I=1,NMIN 90:           DO I=1,NMIN
 91:              PERMUTE=.FALSE. 91:              PERMUTE=.FALSE.
 92:              IF (DEBUG) PRINT '(A,I6,2G20.10)',' isnewmin> I,E,MI(I)%DATA%E=',I,E,MI(I)%DATA%E 92:              IF (DEBUG) PRINT '(A,I6,2G20.10)',' isnewmin> I,E,MI(I)%DATA%E=',I,E,MI(I)%DATA%E
 93:              IF (ABS(E-MI(I)%DATA%E) < EDIFFTOL) THEN 93:              IF (ABS(E-MI(I)%DATA%E) < EDIFFTOL) THEN
 94:                 CALL MINPERMDIST(COORD,MI(I)%DATA%X(1:NOPT), NATOMS, & 94:                 CALL MINPERMDIST(COORD,MI(I)%DATA%X(1:NOPT), NATOMS, &
 95:   &                                DEBUG,PARAM1,PARAM2,PARAM3,BULKT,TWOD,D,DIST2,RIGIDBODY,RMAT) 95:   &                                DEBUG,PARAM1,PARAM2,PARAM3,BULKT,TWOD,D,DIST2,RIGIDBODY,RMAT)
 96:                 IF (DEBUG) PRINT '(A,G20.10)','isnewmin> minimum distance=',D 96:                 IF (DEBUG) PRINT '(A,G20.10)','isnewmin> minimum distance=',D
 97:                 IF (D<GEOMDIFFTOL) THEN 97:                 IF (D<GEOMDIFFTOL) THEN
 98:                    NEW=.FALSE. 98:                    NEW=.FALSE.
 99:                    MINPOS=I 99:                    MINPOS=I
100: !                  IF (DEBUG) PRINT '(A,I6)','isnewmin> MINPOS=',I100:                    IF (DEBUG) PRINT '(A,I6)','isnewmin> MINPOS=',I
101:                    RETURN101:                    RETURN
102:                 ENDIF102:                 ENDIF
103:              ENDIF103:              ENDIF
104:           ENDDO104:           ENDDO
105: 105: 
106: !                 SUCCESS=.FALSE. 106: !                 SUCCESS=.FALSE. 
107: ! !107: ! !
108: ! !  If they are the same minimum then GETPERM should be more reliable than mindist. DJW108: ! !  If they are the same minimum then GETPERM should be more reliable than mindist. DJW
109: ! !  Even if the permutation-inversion is the identity!109: ! !  Even if the permutation-inversion is the identity!
110: ! !  GETPERM changes the first argument, but not the second.110: ! !  GETPERM changes the first argument, but not the second.


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0