hdiff output

r29786/bestpath.f90 2016-01-21 11:30:09.764083376 +0000 r29785/bestpath.f90 2016-01-21 11:30:10.340090918 +0000
273:         CALL MAKETSPATHINFO(PATHTS(NPATHTS))273:         CALL MAKETSPATHINFO(PATHTS(NPATHTS))
274:      ENDIF274:      ENDIF
275:   ENDDO275:   ENDDO
276: ! WRITE(*,'(I6)') BEGIN276: ! WRITE(*,'(I6)') BEGIN
277:   WRITE(*,'(A)') ' '277:   WRITE(*,'(A)') ' '
278: 278: 
279:   DEALLOCATE(PATHMINS)279:   DEALLOCATE(PATHMINS)
280:   DEALLOCATE(PATHTS)280:   DEALLOCATE(PATHTS)
281:   DEALLOCATE(PATHSP)281:   DEALLOCATE(PATHSP)
282:   DEALLOCATE(DIJMIN)282:   DEALLOCATE(DIJMIN)
283:   CALL FLUSH(88)283: 
284:   CLOSE(88) 
285:      END SUBROUTINE BESTPATH284:      END SUBROUTINE BESTPATH
286: 285: 
287: END MODULE BESTPATHDIJKSTRA 286: END MODULE BESTPATHDIJKSTRA 


r29786/ido.f90 2016-01-21 11:30:09.956085890 +0000 r29785/ido.f90 2016-01-21 11:30:10.536093486 +0000
377:                IF (.NOT.ASSOCIATED(DUMMY%NEXT)) EXIT377:                IF (.NOT.ASSOCIATED(DUMMY%NEXT)) EXIT
378:                FINALPATHTS(I)=MI(DUMMY%I)%DATA%CTS(DUMMY%J)378:                FINALPATHTS(I)=MI(DUMMY%I)%DATA%CTS(DUMMY%J)
379:                DUMMY=>DUMMY%NEXT379:                DUMMY=>DUMMY%NEXT
380:                I=I+1380:                I=I+1
381:           ENDDO381:           ENDDO
382: 382: 
383:           WRITE(*,'(1x,a,i7)') "Number of cycles               =",NConDone383:           WRITE(*,'(1x,a,i7)') "Number of cycles               =",NConDone
384:           IF (DUMPSP) CALL DODUMPSP384:           IF (DUMPSP) CALL DODUMPSP
385:           CALL MERGEXYZEOFS385:           CALL MERGEXYZEOFS
386:           IF (DUMPPATH) CALL MAKEPATHINFO386:           IF (DUMPPATH) CALL MAKEPATHINFO
387:           IF (DUMPBESTPATH) CALL BESTPATH 
388:      ELSE387:      ELSE
389:           PRINT *,'Number of allowed connection steps reached - exit newconnect'388:           PRINT *,'Number of allowed connection steps reached - exit newconnect'
390:           IF (DUMPSP) CALL DODUMPSP389:           IF (DUMPSP) CALL DODUMPSP
391:           IF (DUMPBESTPATH) CALL BESTPATH390:           IF (DUMPBESTPATH) CALL BESTPATH
392:           CALL TSUMMARY391:           CALL TSUMMARY
393:           STOP392:           STOP
394:      ENDIF393:      ENDIF
395: 394: 
396:      IF (MACHINE) CALL DUMPDB(FINISHED,FINALPATHTS) ! DON't pour the water of wisdom on the dry sand395:      IF (MACHINE) CALL DUMPDB(FINISHED,FINALPATHTS) ! DON't pour the water of wisdom on the dry sand
397: END SUBROUTINE OUTPUT396: END SUBROUTINE OUTPUT


r29786/keywords.f 2016-01-21 11:30:10.148088404 +0000 r29785/keywords.f 2016-01-21 11:30:10.732096052 +0000
2378:                OPEN(UNIT=88,FILE=PINFOSTRING,STATUS='UNKNOWN',FORM='UNFORMATTED')2378:                OPEN(UNIT=88,FILE=PINFOSTRING,STATUS='UNKNOWN',FORM='UNFORMATTED')
2379:             ELSE2379:             ELSE
2380:                OPEN(UNIT=88,FILE=PINFOSTRING,STATUS='UNKNOWN')2380:                OPEN(UNIT=88,FILE=PINFOSTRING,STATUS='UNKNOWN')
2381:             ENDIF2381:             ENDIF
2382: ! 2382: ! 
2383: ! DUMPBESTPATH only writes the minima and TS on the best path as found in NEWCONNECT2383: ! DUMPBESTPATH only writes the minima and TS on the best path as found in NEWCONNECT
2384: ! to path.info. The format is identical to DUMPALLPATHS.2384: ! to path.info. The format is identical to DUMPALLPATHS.
2385: ! 2385: ! 
2386:          ELSE IF (WORD.EQ.'DUMPBESTPATH') THEN2386:          ELSE IF (WORD.EQ.'DUMPBESTPATH') THEN
2387:             DUMPBESTPATH=.TRUE.2387:             DUMPBESTPATH=.TRUE.
2388:             IF (DUMPALLPATHS.OR.DUMPPATH) THEN 
2389:                WRITE(*,'(A)') ' keyword> Use of DUMPBESTPATH only without DUMPALLPATHS and DUMPPATH' 
2390:                STOP 
2391:             ENDIF 
2392:             IF (FILTH.EQ.0) THEN2388:             IF (FILTH.EQ.0) THEN
2393:                WRITE(PINFOSTRING,'(A9)') 'path.info'2389:                WRITE(PINFOSTRING,'(A9)') 'path.info'
2394:             ELSE2390:             ELSE
2395:                WRITE(PINFOSTRING,'(A)') 'path.info.'//TRIM(ADJUSTL(FILTHSTR))2391:                WRITE(PINFOSTRING,'(A)') 'path.info.'//TRIM(ADJUSTL(FILTHSTR))
2396:             ENDIF2392:             ENDIF
2397:             IF (MACHINE) THEN2393:             IF (MACHINE) THEN
2398:                OPEN(UNIT=88,FILE=PINFOSTRING,STATUS='UNKNOWN',FORM='UNFORMATTED')2394:                OPEN(UNIT=88,FILE=PINFOSTRING,STATUS='UNKNOWN',FORM='UNFORMATTED')
2399:             ELSE2395:             ELSE
2400:                OPEN(UNIT=88,FILE=PINFOSTRING,STATUS='UNKNOWN')2396:                OPEN(UNIT=88,FILE=PINFOSTRING,STATUS='UNKNOWN')
2401:             ENDIF2397:             ENDIF


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0