hdiff output

r33024/ncutils.f90 2017-07-16 14:30:13.249993992 +0100 r33023/ncutils.f90 2017-07-16 14:30:13.505997405 +0100
1255:                        ENDIF1255:                        ENDIF
1256: 1256: 
1257:                        ALLOCATE(HEAD)1257:                        ALLOCATE(HEAD)
1258:                        NULLIFY(HEAD%NEXT)1258:                        NULLIFY(HEAD%NEXT)
1259:                        IF (ASSOCIATED(TMP)) HEAD%NEXT => TMP1259:                        IF (ASSOCIATED(TMP)) HEAD%NEXT => TMP
1260:                        ALLOCATE(HEAD%LINE(1))1260:                        ALLOCATE(HEAD%LINE(1))
1261:                        READ(40,'(a)') head%line(1)1261:                        READ(40,'(a)') head%line(1)
1262:                        TMP=>HEAD1262:                        TMP=>HEAD
1263:                   ENDDO1263:                   ENDDO
1264:                   DO1264:                   DO
1265:                        READ(HEAD%LINE(1),*) s,e1265:                        READ(HEAD%LINE(1),'(2f20.10)') s,e
1266:                        DEALLOCATE(HEAD%LINE)1266:                        DEALLOCATE(HEAD%LINE)
1267:                        WRITE(UNIT=41,FMT='(2f25.15)') Sfirst - s,e1267:                        WRITE(UNIT=41,FMT='(2f20.10)') Sfirst - s,e
1268:                        SLAST = SFIRST - S1268:                        SLAST = SFIRST - S
1269:                        IF (.NOT.ASSOCIATED(HEAD%NEXT)) EXIT1269:                        IF (.NOT.ASSOCIATED(HEAD%NEXT)) EXIT
1270:                        TMP => HEAD%NEXT1270:                        TMP => HEAD%NEXT
1271:                        NULLIFY(HEAD%NEXT)1271:                        NULLIFY(HEAD%NEXT)
1272:                        DEALLOCATE(HEAD)1272:                        DEALLOCATE(HEAD)
1273:                        HEAD => TMP1273:                        HEAD => TMP
1274:                   ENDDO1274:                   ENDDO
1275:                   NULLIFY(HEAD)1275:                   NULLIFY(HEAD)
1276:                   DEALLOCATE(TMP)1276:                   DEALLOCATE(TMP)
1277:                   NULLIFY(TMP)1277:                   NULLIFY(TMP)


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0