hdiff output

r30526/stealthy.f90 2016-05-27 14:30:31.409680528 +0100 r30525/stealthy.f90 2016-05-27 14:30:31.605683167 +0100
276: 276: 
277:    ALLOCATE(BNNUM(NLING+1))277:    ALLOCATE(BNNUM(NLING+1))
278:    EVABS=DABS(EVARY)278:    EVABS=DABS(EVARY)
279:    BNNUM=3*NATOMS279:    BNNUM=3*NATOMS
280:    EQYN=.FALSE.280:    EQYN=.FALSE.
281:    281:    
282:    DO I=1, NLING+1282:    DO I=1, NLING+1
283:       MYMIN=EVABS(3*NATOMS)283:       MYMIN=EVABS(3*NATOMS)
284:       DO J=1, 3*NATOMS-1284:       DO J=1, 3*NATOMS-1
285:          DO K=1, I285:          DO K=1, I
286:             IF (J.EQ.BNNUM(K)) EQYN=.TRUE.286:             IF (J==BNNUM(K)) EQYN=.TRUE.
287:          ENDDO287:          ENDDO
288:          IF (EQYN.EQ..TRUE.) THEN288:          IF (EQYN==.TRUE.) THEN
289:             EQYN=.FALSE.289:             EQYN=.FALSE.
290:             CYCLE290:             CYCLE
291:          ENDIF291:          ENDIF
292:          IF (EVABS(J).LT.MYMIN) THEN292:          IF (EVABS(J).LT.MYMIN) THEN
293:             MYMIN=EVABS(J)293:             MYMIN=EVABS(J)
294:             BNNUM(I)=J294:             BNNUM(I)=J
295:          ENDIF295:          ENDIF
296:       ENDDO296:       ENDDO
297:       IF (I==NLING) ELCUT=BNNUM(I)297:       IF (I==NLING) ELCUT=BNNUM(I)
298:       IF (I==NLING+1) EHCUT=BNNUM(I)298:       IF (I==NLING+1) EHCUT=BNNUM(I)


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0