hdiff output

r29838/printsummary.f90 2016-01-25 17:30:08.368564180 +0000 r29837/printsummary.f90 2016-01-25 17:30:08.564566798 +0000
 87:             MAXTSINDEX=J1 87:             MAXTSINDEX=J1
 88:          ENDIF 88:          ENDIF
 89:       ENDDO 89:       ENDDO
 90:       WRITE(*,'(A,I8,A,G20.10)')'Highest valid transition state at index ',MAXTSINDEX,' with energy ',MAXTS 90:       WRITE(*,'(A,I8,A,G20.10)')'Highest valid transition state at index ',MAXTSINDEX,' with energy ',MAXTS
 91:       WRITE(*,'(A,I8,A,G20.10)')'Lowest valid transition state at index ',MINTSINDEX,' with energy ',MINTS 91:       WRITE(*,'(A,I8,A,G20.10)')'Lowest valid transition state at index ',MINTSINDEX,' with energy ',MINTS
 92:  92: 
 93:       LOWBARRIER=HUGE(1.0D0) 93:       LOWBARRIER=HUGE(1.0D0)
 94:       HIGHBARRIER=-HUGE(1.0D0) 94:       HIGHBARRIER=-HUGE(1.0D0)
 95:       DO J1=1,NTS 95:       DO J1=1,NTS
 96:          IF (DEADTS(J1)) CYCLE 96:          IF (DEADTS(J1)) CYCLE
  97:          print *,ETS(J1)-EMIN(PLUS(J1))
  98:          print *,ETS(J1)-EMIN(MINUS(J1))
 97:          BARRIER_MAX = MAX(ETS(J1)-EMIN(PLUS(J1)),ETS(J1)-EMIN(MINUS(J1))) 99:          BARRIER_MAX = MAX(ETS(J1)-EMIN(PLUS(J1)),ETS(J1)-EMIN(MINUS(J1)))
 98:          BARRIER_MIN = MIN(ETS(J1)-EMIN(PLUS(J1)),ETS(J1)-EMIN(MINUS(J1)))100:          BARRIER_MIN = MIN(ETS(J1)-EMIN(PLUS(J1)),ETS(J1)-EMIN(MINUS(J1)))
 99:          IF (BARRIER_MIN.LE.LOWBARRIER) THEN101:          IF (BARRIER_MIN.LE.LOWBARRIER) THEN
100:             LOWBARRIER=BARRIER_MIN102:             LOWBARRIER=BARRIER_MIN
101:             MINTSINDEX=J1103:             MINTSINDEX=J1
102:          ENDIF104:          ENDIF
103:          IF (BARRIER_MAX.GE.HIGHBARRIER) THEN105:          IF (BARRIER_MAX.GE.HIGHBARRIER) THEN
104:             HIGHBARRIER=BARRIER_MAX106:             HIGHBARRIER=BARRIER_MAX
105:             MAXTSINDEX=J1107:             MAXTSINDEX=J1
106:          ENDIF108:          ENDIF


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0