hdiff output

r25628/disconnectionDPS.f90 2017-01-21 10:41:42.411899239 +0000 r25627/disconnectionDPS.f90 2017-01-21 10:41:42.667909414 +0000
605:    ENDIF605:    ENDIF
606: 606: 
607:    WRITE (6, '(I6, 3A)') &607:    WRITE (6, '(I6, 3A)') &
608:       & N_TS, ' non-degenerate paths read in from ', TRIM(file_ts), '.'608:       & N_TS, ' non-degenerate paths read in from ', TRIM(file_ts), '.'
609:    WRITE (6, '(A, 2(F18.10))') 'Highest and lowest transition states: ', &609:    WRITE (6, '(A, 2(F18.10))') 'Highest and lowest transition states: ', &
610:       & B_HIGH, B_LOW610:       & B_HIGH, B_LOW
611: 611: 
612:    PRINT *,'n_min,n_ts=',n_min,n_ts612:    PRINT *,'n_min,n_ts=',n_min,n_ts
613:    ALLOCATE (NCONN(N_MIN),PLUS(N_TS),MINUS(N_TS),NDISTA(N_MIN),TSEN(N_TS))613:    ALLOCATE (NCONN(N_MIN),PLUS(N_TS),MINUS(N_TS),NDISTA(N_MIN),TSEN(N_TS))
614:    DO I=1,N_TS614:    DO I=1,N_TS
615:       IF (TS(I)%E.LE.M(TS(I)%MIN1)) THEN 
616:          PRINT '(A,I6,A)','WARNING *** energy of ts ',I,' is lower than min1. Resetting' 
617:          TS(I)%E=M(TS(I)%MIN1)+DELTA_E/2.0D0 
618:       ENDIF 
619:       IF (TS(I)%E.LE.M(TS(I)%MIN2)) THEN 
620:          PRINT '(A,I6,A)','WARNING *** energy of ts ',I,' is lower than min2. Resetting' 
621:          TS(I)%E=M(TS(I)%MIN2)+DELTA_E/2.0D0 
622:       ENDIF 
623:    ENDDO 
624:    DO I=1,N_TS 
625:       TSEN(I)=TS(I)%E615:       TSEN(I)=TS(I)%E
626:       PLUS(I)=TS(I)%MIN1616:       PLUS(I)=TS(I)%MIN1
627:       MINUS(I)=TS(I)%MIN2617:       MINUS(I)=TS(I)%MIN2
628:    ENDDO618:    ENDDO
629:    CALL GETNCONN(N_MIN,N_TS,NCONN,PLUS,MINUS,NCONNMIN,NCONNMAX,.FALSE.,TSEN)619:    CALL GETNCONN(N_MIN,N_TS,NCONN,PLUS,MINUS,NCONNMIN,NCONNMAX,.FALSE.,TSEN)
630:    DEADTS(1:N_TS)=.FALSE.620:    DEADTS(1:N_TS)=.FALSE.
631:    IF (NCONNMIN.GE.0) THEN621:    IF (NCONNMIN.GE.0) THEN
632:       NDEAD=0622:       NDEAD=0
633:       DO J1=1,N_MIN623:       DO J1=1,N_MIN
634:          IF (NCONN(J1).LE.NCONNMIN) THEN624:          IF (NCONN(J1).LE.NCONNMIN) THEN


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0