hdiff output

r30431/cycle2.f90 2016-05-11 16:30:12.579045881 +0100 r30430/cycle2.f90 2016-05-11 16:30:12.787048702 +0100
170:          IF ((MINCONN(CONNDOING).GE.CONNECTIONS)) THEN170:          IF ((MINCONN(CONNDOING).GE.CONNECTIONS)) THEN
171:             CONNDOING=CONNDOING+1171:             CONNDOING=CONNDOING+1
172:             CONNATTEMPTS=0172:             CONNATTEMPTS=0
173:             IF (CONNDOING.GT.NMIN) THEN173:             IF (CONNDOING.GT.NMIN) THEN
174:                PRINT '(A)','cycle2> Completed sweep through all available minima'174:                PRINT '(A)','cycle2> Completed sweep through all available minima'
175:                NOMORE=.TRUE.175:                NOMORE=.TRUE.
176:             ELSE176:             ELSE
177:                GOTO 864177:                GOTO 864
178:             ENDIF178:             ENDIF
179:          ENDIF179:          ENDIF
180:          IF (.NOT.NOMORE) THEN180:          MINS(J3)=CONNDOING
181:             MINS(J3)=CONNDOING181:          READ(UMIN,REC=CONNDOING) (SPOINTS(L2),L2=1,3*NATOMS)
182:             READ(UMIN,REC=CONNDOING) (SPOINTS(L2),L2=1,3*NATOMS)182:          PRINT '(4(A,I6))','cycle2> Perturbation ',CONNATTEMPTS,' for minimum ',CONNDOING,' with ', &
183:             PRINT '(4(A,I6))','cycle2> Perturbation ',CONNATTEMPTS,' for minimum ',CONNDOING,' with ', & 
184:   &                         MINCONN(CONNDOING),' connections'183:   &                         MINCONN(CONNDOING),' connections'
185:             DO L2=1,NATOMS184:          DO L2=1,NATOMS
186:                IF (.NOT.FROZEN(L2)) THEN185:             IF (.NOT.FROZEN(L2)) THEN
187:                   SPOINTS(3*(L2-1)+1)=SPOINTS(3*(L2-1)+1)+(DPRAND()-0.5D0)*2.0D0*PERTVALUE186:                SPOINTS(3*(L2-1)+1)=SPOINTS(3*(L2-1)+1)+(DPRAND()-0.5D0)*2.0D0*PERTVALUE
188:                   SPOINTS(3*(L2-1)+2)=SPOINTS(3*(L2-1)+2)+(DPRAND()-0.5D0)*2.0D0*PERTVALUE187:                SPOINTS(3*(L2-1)+2)=SPOINTS(3*(L2-1)+2)+(DPRAND()-0.5D0)*2.0D0*PERTVALUE
189:                   SPOINTS(3*(L2-1)+3)=SPOINTS(3*(L2-1)+3)+(DPRAND()-0.5D0)*2.0D0*PERTVALUE188:                SPOINTS(3*(L2-1)+3)=SPOINTS(3*(L2-1)+3)+(DPRAND()-0.5D0)*2.0D0*PERTVALUE
190:                ENDIF189:             ENDIF
191:             ENDDO190:          ENDDO
192:             CONNATTEMPTS=CONNATTEMPTS+1191:          CONNATTEMPTS=CONNATTEMPTS+1
193:             IF (CONNATTEMPTS.EQ.MAXTSATTEMPTS) THEN192:          IF (CONNATTEMPTS.EQ.MAXTSATTEMPTS) THEN
194:                CONNDOING=CONNDOING+1193:             CONNDOING=CONNDOING+1
195:                CONNATTEMPTS=0194:             CONNATTEMPTS=0
196:                IF (CONNDOING.GT.NMIN) THEN195:             IF (CONNDOING.GT.NMIN) THEN
197:                   PRINT '(A)','cycle2> Completed sweep through all available minima'196:                PRINT '(A)','cycle2> Completed sweep through all available minima'
198:                   NOMORE=.TRUE.197:                NOMORE=.TRUE.
199:                ENDIF 
200:             ENDIF198:             ENDIF
201:          ENDIF199:          ENDIF
202:       ENDIF200:       ENDIF
203:    ELSEIF (CHECKSPT) THEN201:    ELSEIF (CHECKSPT) THEN
204:       NSPCHECK=NSPCHECK+1202:       NSPCHECK=NSPCHECK+1
205:       IF (NSPCHECK.LE.CHECKSPF) THEN203:       IF (NSPCHECK.LE.CHECKSPF) THEN
206:          IF (CHECKMINT) THEN204:          IF (CHECKMINT) THEN
207:             READ(UMIN,REC=NSPCHECK) SPOINTS(1:NOPT)205:             READ(UMIN,REC=NSPCHECK) SPOINTS(1:NOPT)
208:          ELSE206:          ELSE
209:             READ(UTS,REC=NSPCHECK) SPOINTS(1:NOPT)207:             READ(UTS,REC=NSPCHECK) SPOINTS(1:NOPT)


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0