hdiff output

r30627/bestpath.f90 2016-07-06 15:37:56.669132442 +0100 r30626/bestpath.f90 2016-07-06 15:37:57.013137095 +0100
255:              PATHTS(NPATHTS)=J4255:              PATHTS(NPATHTS)=J4
256:           ENDIF256:           ENDIF
257:        ENDDO257:        ENDDO
258:      ENDIF258:      ENDIF
259:      I=DIJMIN(I)%PREVMIN259:      I=DIJMIN(I)%PREVMIN
260:   ENDDO260:   ENDDO
261:   PATHMINS(NSTEP+1)=I261:   PATHMINS(NSTEP+1)=I
262:   PATHSP(NSP+1)=.TRUE.262:   PATHSP(NSP+1)=.TRUE.
263:   NSTEP=NSTEP +1263:   NSTEP=NSTEP +1
264:   NSP=NSP + 1264:   NSP=NSP + 1
 265:   NSTEP=0
265:   NPATHTS=0266:   NPATHTS=0
266:   DO J3=1,NSP267:   DO J3=1,NSP
267:      IF (.NOT.(PATHSP(J3))) THEN268:      IF (PATHSP(J3)) THEN
 269:         NSTEP=NSTEP + 1
 270:         CALL MAKEMINPATHINFO(PATHMINS(NSTEP))
 271:      ELSE
268:         NPATHTS=NPATHTS + 1272:         NPATHTS=NPATHTS + 1
269:         CALL MAKEMINPATHINFO(TS(PATHTS(NPATHTS))%data%P) 
270:         CALL MAKETSPATHINFO(PATHTS(NPATHTS))273:         CALL MAKETSPATHINFO(PATHTS(NPATHTS))
271:         CALL MAKEMINPATHINFO(TS(PATHTS(NPATHTS))%data%M) 
272:      ENDIF274:      ENDIF
273:   ENDDO275:   ENDDO
274: ! WRITE(*,'(I6)') BEGIN276: ! WRITE(*,'(I6)') BEGIN
275:   WRITE(*,'(A)') ' '277:   WRITE(*,'(A)') ' '
276: 278: 
277:   DEALLOCATE(PATHMINS)279:   DEALLOCATE(PATHMINS)
278:   DEALLOCATE(PATHTS)280:   DEALLOCATE(PATHTS)
279:   DEALLOCATE(PATHSP)281:   DEALLOCATE(PATHSP)
280:   DEALLOCATE(DIJMIN)282:   DEALLOCATE(DIJMIN)
281:   CALL FLUSH(88)283:   CALL FLUSH(88)


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0