hdiff output

r29242/ncutils.f90 2015-11-17 23:32:38.344214305 +0000 r29241/ncutils.f90 2015-11-17 23:32:38.548217050 +0000
200:           IF (INTERPCOSTFUNCTION) ALLOCATE( MI(NMIN)%DATA%INTERP(NMIN-1))200:           IF (INTERPCOSTFUNCTION) ALLOCATE( MI(NMIN)%DATA%INTERP(NMIN-1))
201: 201: 
202:           DO I=1,NMIN-1202:           DO I=1,NMIN-1
203:                CALL MINPERMDIST(MI(NMIN)%DATA%X(:), MI(I)%DATA%X(:), NATOMS, &203:                CALL MINPERMDIST(MI(NMIN)%DATA%X(:), MI(I)%DATA%X(:), NATOMS, &
204:   &                             DEBUG,PARAM1,PARAM2,PARAM3,BULKT,TWOD,D,DIST2,RIGIDBODY,RMAT)204:   &                             DEBUG,PARAM1,PARAM2,PARAM3,BULKT,TWOD,D,DIST2,RIGIDBODY,RMAT)
205:                IF (DEBUG) PRINT '(A,G20.10,2(A,I6))',' addnewmin> distance from MINPERMDIST/NEWMINDIST=',D,' for ',I,' and ',NMIN205:                IF (DEBUG) PRINT '(A,G20.10,2(A,I6))',' addnewmin> distance from MINPERMDIST/NEWMINDIST=',D,' for ',I,' and ',NMIN
206:                MI(NMIN)%DATA%D(I)=D  !  PASSING MIN(NMIN)%DATA%D(I) INSTEAD OF D DOES NOT WORK206:                MI(NMIN)%DATA%D(I)=D  !  PASSING MIN(NMIN)%DATA%D(I) INSTEAD OF D DOES NOT WORK
207:                                      !  perhaps because min is an intrisic function!207:                                      !  perhaps because min is an intrisic function!
208:                IF (D.LT.GEOMDIFFTOL) THEN208:                IF (D.LT.GEOMDIFFTOL) THEN
209:                   IF (ABS(MI(I)%DATA%E - MI(NMIN)%DATA%E) .LT. EDIFFTOL) THEN209:                   IF (ABS(MI(I)%DATA%E - MI(NMIN)%DATA%E) .LT. EDIFFTOL) THEN
210:                      PRINT '(A,I8,F12.6,A)',' addnewmin> Distance to minimum ',I,D,' is less than tolerance - this should never happen'210:                      PRINT '(A,F12.6,A)',' addnewmin> Distance between minima ',D,' is less than tolerance - this should never happen'
211:                      STOP ! DJW debug 
212:                   ELSE211:                   ELSE
213:                      PRINT '(A,F12.6,A,2G20.10)',' addnewmin> Distance between minima ',D,' is less than tolerance' 212:                      PRINT '(A,F12.6,A,2G20.10)',' addnewmin> Distance between minima ',D,' is less than tolerance' 
214:                      PRINT '(A,2G20.10)',' addnewmin> Energies are ', MI(I)%DATA%E, MI(NMIN)%DATA%E 213:                      PRINT '(A,2G20.10)',' addnewmin> Energies are ', MI(I)%DATA%E, MI(NMIN)%DATA%E 
215:                   ENDIF214:                   ENDIF
216:                ENDIF215:                ENDIF
217:                IF (INTERPCOSTFUNCTION) THEN216:                IF (INTERPCOSTFUNCTION) THEN
218:                   IF (INTCONSTRAINTT) THEN217:                   IF (INTCONSTRAINTT) THEN
219:                      MINCOORDS(1,1:NOPT)=MI(NMIN)%DATA%X(1:NOPT)218:                      MINCOORDS(1,1:NOPT)=MI(NMIN)%DATA%X(1:NOPT)
220:                      MINCOORDS(2,1:NOPT)=MI(I)%DATA%X(1:NOPT)219:                      MINCOORDS(2,1:NOPT)=MI(I)%DATA%X(1:NOPT)
221:                      CALL MAKE_CONPOT(2,MINCOORDS)220:                      CALL MAKE_CONPOT(2,MINCOORDS)


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0