hdiff output

r32266/lopermdist.f90 2017-04-06 12:30:08.318267097 +0100 r32265/lopermdist.f90 2017-04-06 12:30:08.542270068 +0100
184:    LDBESTATOM=1.0D100184:    LDBESTATOM=1.0D100
185:    NOTHER=0185:    NOTHER=0
186:    DO J2=1,NATOMS186:    DO J2=1,NATOMS
187:       IF (TRIED(J2).EQ.1) THEN187:       IF (TRIED(J2).EQ.1) THEN
188:          NOTHER=NOTHER+1188:          NOTHER=NOTHER+1
189:          DLIST(NOTHER)=J2189:          DLIST(NOTHER)=J2
190:       ENDIF190:       ENDIF
191:    ENDDO191:    ENDDO
192:    ADDED=.FALSE.192:    ADDED=.FALSE.
193:    outer2: DO J2=1,NATOMS193:    outer2: DO J2=1,NATOMS
194:       IF (DMEAN(J2).GT.LOCALPERMCUT2) THEN194:       IF (DMEAN(J2).GT.LOCALPERMDIST2) THEN
195: !        WRITE(MYUNIT,'(A)') ' lopermdist> No more atoms within cutoff'195: !        WRITE(MYUNIT,'(A)') ' lopermdist> No more atoms within cutoff'
196:          GOTO 91196:          GOTO 91
197:       ENDIF197:       ENDIF
198:       IF (TRIED(SORTLIST(J2)).EQ.0) THEN198:       IF (TRIED(SORTLIST(J2)).EQ.0) THEN
199:          ADDED=.TRUE.199:          ADDED=.TRUE.
200:          NOTHER=NOTHER+1200:          NOTHER=NOTHER+1
201:          IF (NOTHER+PATOMS.GT.NATOMS) THEN201:          IF (NOTHER+PATOMS.GT.NATOMS) THEN
202:             WRITE(MYUNIT, '(A,I6)') &202:             WRITE(MYUNIT, '(A,I6)') &
203:   & ' lopermdist> ERROR *** number of neighbours plus number of permutable atoms exceeds total for group ',J1203:   & ' lopermdist> ERROR *** number of neighbours plus number of permutable atoms exceeds total for group ',J1
204:             STOP204:             STOP


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0