hdiff output

r29295/quench.F 2015-11-17 23:33:40.293045117 +0000 r29294/quench.F 2015-11-17 23:33:40.497047854 +0000
375:             IF (DEBUG) THEN375:             IF (DEBUG) THEN
376:                 WRITE(MYUNIT, '(A)') "Eigenvalues:"376:                 WRITE(MYUNIT, '(A)') "Eigenvalues:"
377:                 WRITE(MYUNIT, '(3F12.3)') EVALUES377:                 WRITE(MYUNIT, '(3F12.3)') EVALUES
378:             END IF378:             END IF
379: ! Check that we don't have any proper negative eigenvalues (the magnitude should drop).379: ! Check that we don't have any proper negative eigenvalues (the magnitude should drop).
380: ! We do it this way, since some of the zeros come out negative as well, so you can't 380: ! We do it this way, since some of the zeros come out negative as well, so you can't 
381: ! just check the sign.381: ! just check the sign.
382:             TS_FOUND = (ABS(EVALUES(1)) > ABS(EVALUES(NUM_ZERO_EVS + 1)))382:             TS_FOUND = (ABS(EVALUES(1)) > ABS(EVALUES(NUM_ZERO_EVS + 1)))
383:             IF (TS_FOUND) THEN383:             IF (TS_FOUND) THEN
384:                 WRITE(MYUNIT, '(A, I10, A)') 'Quench ', NQ(NP), ' converged to a transition state.'384:                 WRITE(MYUNIT, '(A, I10, A)') 'Quench ', NQ(NP), ' converged to a transition state.'
385:                 IF (DEBUG) THEN385:                 WRITE(MYUNIT, '(A)') 'Eigenvalues'
386:                    WRITE(MYUNIT, '(A)') 'Eigenvalues'386:                 WRITE(MYUNIT, '(A)') '======================='
387:                    WRITE(MYUNIT, '(A)') '======================='387:                 WRITE(MYUNIT, '(6F20.12)') EVALUES(1:(3+NUM_ZERO_EVS))
388:                    WRITE(MYUNIT, '(6F20.12)') EVALUES(1:(3+NUM_ZERO_EVS))388:                 WRITE(MYUNIT, '(A)') '======================='
389:                    WRITE(MYUNIT, '(A)') '=======================' 
390:                 END IF 
391:                 CFLAG=.FALSE.389:                 CFLAG=.FALSE.
392:                 RETURN390:                 RETURN
393:             END IF391:             END IF
394:             LOG_PROD_EV = SUM(DLOG(EVALUES(NUM_ZERO_EVS + 1:)))392:             LOG_PROD_EV = SUM(DLOG(EVALUES(NUM_ZERO_EVS + 1:)))
395:             IF ((MIN_ZERO_SEP .GT. 0.0D0) .AND. (MAX_ATTEMPTS .GT. 0)) THEN393:             IF ((MIN_ZERO_SEP .GT. 0.0D0) .AND. (MAX_ATTEMPTS .GT. 0)) THEN
396: ! Square the minimum zero separation, since this refers to separation of frequencies.394: ! Square the minimum zero separation, since this refers to separation of frequencies.
397:                 DO ATTEMPTS = 1, MAX_ATTEMPTS            395:                 DO ATTEMPTS = 1, MAX_ATTEMPTS            
398: ! Identify the largest zero and smallest non-zero396: ! Identify the largest zero and smallest non-zero
399:                     EVALUES(:) = ABS(EVALUES(:))397:                     EVALUES(:) = ABS(EVALUES(:))
400:                     LARGEST_ZERO = 0.D0398:                     LARGEST_ZERO = 0.D0


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0