hdiff output

r32834/decide.f90 2017-06-23 09:30:11.565163394 +0100 r32833/decide.f90 2017-06-23 09:30:11.793166447 +0100
189:       ENDDO189:       ENDDO
190: !     CALL TSUMMARY190: !     CALL TSUMMARY
191:       DEALLOCATE(DIJMIN)191:       DEALLOCATE(DIJMIN)
192:       CALL FLUSH(6)192:       CALL FLUSH(6)
193:       GOTO 975193:       GOTO 975
194: !     STOP194: !     STOP
195:    ENDIF195:    ENDIF
196: 196: 
197:    IF (ABS(MINWEIGHT).LT.1.0D-100) THEN197:    IF (ABS(MINWEIGHT).LT.1.0D-100) THEN
198:       WRITE(*,'(A)') ' WARNING - zero weight path already exists in DIJKSTRA'198:       WRITE(*,'(A)') ' WARNING - zero weight path already exists in DIJKSTRA'
199:       STOP 
200:    ENDIF199:    ENDIF
201: 200: 
202: ! Should have found shortest path now. Get it, backwards from end201: ! Should have found shortest path now. Get it, backwards from end
203: 202: 
204:   BEGIN=1203:   BEGIN=1
205:   END=2204:   END=2
206:   I=END205:   I=END
207:   NSTEP=0206:   NSTEP=0
208:   NDIJPAIRS=0207:   NDIJPAIRS=0
209:   DO 208:   DO 


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0