hdiff output

r29800/Dijinit.f90 2016-07-06 15:39:38.906514409 +0100 r29799/Dijinit.f90 2016-07-06 15:39:39.262519221 +0100
358: ENDDO358: ENDDO
359: PRINT '(2(A,I8))','Dijinit> Number of steps=',NSTEPS,' number of missing connections=',NWORST359: PRINT '(2(A,I8))','Dijinit> Number of steps=',NSTEPS,' number of missing connections=',NWORST
360: IF (MINGAPT) THEN360: IF (MINGAPT) THEN
361:    IF (NMINGAP.GT.0) THEN361:    IF (NMINGAP.GT.0) THEN
362:       PRINT '(A,I8)','Dijinit> Number of connections larger than minimum distance:',NMINGAP362:       PRINT '(A,I8)','Dijinit> Number of connections larger than minimum distance:',NMINGAP
363:       NWORST=NMINGAP363:       NWORST=NMINGAP
364:    ELSE364:    ELSE
365:       PRINT '(A)','Dijinit> No missing connection is above the required distance cut off.'365:       PRINT '(A)','Dijinit> No missing connection is above the required distance cut off.'
366:       PRINT '(A)','Dijinit> Set MINGAP to false and redo analysis'366:       PRINT '(A)','Dijinit> Set MINGAP to false and redo analysis'
367:       MINGAPT=.FALSE.367:       MINGAPT=.FALSE.
368:       DEALLOCATE(LOCATIONSTART,LOCATIONEND) 
369:       GOTO 121368:       GOTO 121
370:    ENDIF369:    ENDIF
371: ENDIF370: ENDIF
372: IF (DIJPRUNET) THEN !write the best path out to min.retain and then terminate371: IF (DIJPRUNET) THEN !write the best path out to min.retain and then terminate
373:    PATHMINS(NSTEPS+1)=J5372:    PATHMINS(NSTEPS+1)=J5
374:    WRITE(MUNIT,'(I8)') NSTEPS+1373:    WRITE(MUNIT,'(I8)') NSTEPS+1
375:    DO J6=1,NSTEPS+1374:    DO J6=1,NSTEPS+1
376:       WRITE(MUNIT,'(I8)') PATHMINS(J6)375:       WRITE(MUNIT,'(I8)') PATHMINS(J6)
377:    ENDDO376:    ENDDO
378:    CLOSE(MUNIT)377:    CLOSE(MUNIT)


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0