hdiff output

r32259/cycle2.f90 2017-04-05 16:30:32.175277330 +0100 r32258/cycle2.f90 2017-04-05 16:30:32.907286906 +0100
267: ENDDO267: ENDDO
268: 268: 
269: cycles: DO NCYCLES=1,NATTEMPT*NCPU ! the last NCPU steps do not submit new jobs269: cycles: DO NCYCLES=1,NATTEMPT*NCPU ! the last NCPU steps do not submit new jobs
270: 270: 
271:    IF (NAVAIL.EQ.0) THEN271:    IF (NAVAIL.EQ.0) THEN
272:       IF (SLEEPTIME1.GT.0.0D0) CALL SYSTEM(TRIM(ADJUSTL(SLEEPSTRING1))) ! to allow jobs to catch up for demos272:       IF (SLEEPTIME1.GT.0.0D0) CALL SYSTEM(TRIM(ADJUSTL(SLEEPSTRING1))) ! to allow jobs to catch up for demos
273:    ENDIF273:    ENDIF
274:    KILLED=.FALSE.274:    KILLED=.FALSE.
275:    CALL FLUSH(6) ! the child process may duplicate output without this line!275:    CALL FLUSH(6) ! the child process may duplicate output without this line!
276:    CALL FLUSH(6)276:    CALL FLUSH(6)
277:    IF (CONNECTPAIRST.OR.CHECKSPT.OR.ADDMINXYZT) THEN277:    IF (CHECKSPT.OR.ADDMINXYZT) THEN
278:       DO J2=1,NCPU278:       DO J2=1,NCPU
279:          IF (MINID(J2).GT.0) GOTO 113279:          IF (MINID(J2).GT.0) GOTO 113
280:       ENDDO280:       ENDDO
281: 281: 
282:       PRINT '(A)','cycle2> No more candidates to run'282:       PRINT '(A)','cycle2> No more candidates to run'
283:       STOP283:       STOP
284:    ENDIF284:    ENDIF
285: 113 CONTINUE285: 113 CONTINUE
286:    CALL WAIT_SUBR(PIDDONE,STATUS)286:    CALL WAIT_SUBR(PIDDONE,STATUS)
287: 11 CONTINUE287: 11 CONTINUE


r32259/getmetric.f90 2017-04-05 16:30:32.411280411 +0100 r32258/getmetric.f90 2017-04-05 16:30:33.159290198 +0100
117:             DO J5=PAIRDISTMAX,J4+1,-1117:             DO J5=PAIRDISTMAX,J4+1,-1
118:                PAIRDIST(J3,J5)=PAIRDIST(J3,J5-1)118:                PAIRDIST(J3,J5)=PAIRDIST(J3,J5-1)
119:                PAIRLIST(J3,J5)=PAIRLIST(J3,J5-1)119:                PAIRLIST(J3,J5)=PAIRLIST(J3,J5-1)
120:             ENDDO120:             ENDDO
121:             PAIRDIST(J3,J4)=DISTANCE121:             PAIRDIST(J3,J4)=DISTANCE
122:             PAIRLIST(J3,J4)=J6122:             PAIRLIST(J3,J4)=J6
123:             EXIT sortloop2123:             EXIT sortloop2
124:          ENDIF124:          ENDIF
125:       ENDDO sortloop2125:       ENDDO sortloop2
126:    ENDDO min2126:    ENDDO min2
127:    PRINT '(A,I8)','getmetric> Finished metric calculation for minimum ',J6127:    PRINT '(A,I8)','getallpaths> Finished metric calculation for minimum ',J6
128:    IF (DEBUG) THEN128:    IF (DEBUG) THEN
129:       PRINT '(10G13.5)',PAIRDIST(J6,1:PAIRDISTMAX)129:       PRINT '(10G13.5)',PAIRDIST(J6,1:PAIRDISTMAX)
130:       PRINT '(10I13)',PAIRLIST(J6,1:PAIRDISTMAX)130:       PRINT '(10I13)',PAIRLIST(J6,1:PAIRDISTMAX)
131:    ENDIF131:    ENDIF
132:    CALL FLUSH(6)132:    CALL FLUSH(6)
133: ENDDO133: ENDDO
134: 134: 
135: IF (.NOT.RANDOMMETRICT) RETURN135: IF (.NOT.RANDOMMETRICT) RETURN
136: !136: !
137: ! We have assigned all the direct connections in the above loop. Now calculate137: ! We have assigned all the direct connections in the above loop. Now calculate
204:             DO J5=PAIRDISTMAX,J4+1,-1204:             DO J5=PAIRDISTMAX,J4+1,-1
205:                PAIRDIST(J3,J5)=PAIRDIST(J3,J5-1)205:                PAIRDIST(J3,J5)=PAIRDIST(J3,J5-1)
206:                PAIRLIST(J3,J5)=PAIRLIST(J3,J5-1)206:                PAIRLIST(J3,J5)=PAIRLIST(J3,J5-1)
207:             ENDDO207:             ENDDO
208:             PAIRDIST(J3,J4)=DISTANCE208:             PAIRDIST(J3,J4)=DISTANCE
209:             PAIRLIST(J3,J4)=J6209:             PAIRLIST(J3,J4)=J6
210:             EXIT ransortloop2210:             EXIT ransortloop2
211:          ENDIF211:          ENDIF
212:       ENDDO ransortloop2212:       ENDDO ransortloop2
213:    ENDDO ranmin2213:    ENDDO ranmin2
214:    PRINT '(A,I8)','getmetric> Finished metric calculation with random pair selection for minimum ',J6214:    PRINT '(A,I8)','getallpaths> Finished metric calculation with random pair selection for minimum ',J6
215:    IF (DEBUG) THEN215:    IF (DEBUG) THEN
216:       PRINT '(10G13.2)',PAIRDIST(J6,1:PAIRDISTMAX)216:       PRINT '(10G13.2)',PAIRDIST(J6,1:PAIRDISTMAX)
217:       PRINT '(10I13)',PAIRLIST(J6,1:PAIRDISTMAX)217:       PRINT '(10I13)',PAIRLIST(J6,1:PAIRDISTMAX)
218:    ENDIF218:    ENDIF
219:    CALL FLUSH(6)219:    CALL FLUSH(6)
220: ENDDO220: ENDDO
221: 221: 
222: END SUBROUTINE GETMETRIC222: END SUBROUTINE GETMETRIC


r32259/lopermdist.f90 2017-04-05 16:30:32.647283499 +0100 r32258/lopermdist.f90 2017-04-05 16:30:33.431293777 +0100
 34:   &            LOCALPERMCUT, LOCALPERMNEIGH, LOCALPERMCUT2 34:   &            LOCALPERMCUT, LOCALPERMNEIGH, LOCALPERMCUT2
 35: IMPLICIT NONE 35: IMPLICIT NONE
 36:  36: 
 37: INTEGER, PARAMETER :: MAXIMUMTRIES=10 37: INTEGER, PARAMETER :: MAXIMUMTRIES=10
 38: INTEGER NATOMS, NPERM, PATOMS, NORBIT1, NORBIT2, NCHOOSE2, NCHOOSE1, NORBITB1, NORBITB2, BESTPERM(NATOMS) 38: INTEGER NATOMS, NPERM, PATOMS, NORBIT1, NORBIT2, NCHOOSE2, NCHOOSE1, NORBITB1, NORBITB2, BESTPERM(NATOMS)
 39: INTEGER J3, J4, NDUMMY, LPERM(NATOMS), J1, J2, NOTHER, LPERMBEST(NATOMS), NCHOOSEB1, NCHOOSEB2, & 39: INTEGER J3, J4, NDUMMY, LPERM(NATOMS), J1, J2, NOTHER, LPERMBEST(NATOMS), NCHOOSEB1, NCHOOSEB2, &
 40:         LPERMBESTATOM(NATOMS) 40:         LPERMBESTATOM(NATOMS)
 41: DOUBLE PRECISION DIST2, COORDSA(3*NATOMS), COORDSB(3*NATOMS), DISTANCE, DUMMYA(3*NATOMS), & 41: DOUBLE PRECISION DIST2, COORDSA(3*NATOMS), COORDSB(3*NATOMS), DISTANCE, DUMMYA(3*NATOMS), &
 42:   &              DUMMYB(3*NATOMS), DUMMY(3*NATOMS), DSUM 42:   &              DUMMYB(3*NATOMS), DUMMY(3*NATOMS), DSUM
 43: DOUBLE PRECISION BOXLX,BOXLY,BOXLZ,WORSTRAD,RMAT(3,3), DBEST, XBEST(3*NATOMS) 43: DOUBLE PRECISION BOXLX,BOXLY,BOXLZ,WORSTRAD,RMAT(3,3), DBEST, XBEST(3*NATOMS)
 44: DOUBLE PRECISION ROTA(3,3), ROTINVA(3,3), ROTB(3,3), ROTINVB(3,3), RMATBEST(3,3) 44: DOUBLE PRECISION ROTA(3,3), ROTINVA(3,3), ROTB(3,3), ROTINVB(3,3), RMATBEST(3,3), LPC2, LPC22
 45: LOGICAL DEBUG, TWOD, RIGID, BULKT, ADDED, PERMUTABLE(NATOMS) 45: LOGICAL DEBUG, TWOD, RIGID, BULKT, ADDED, PERMUTABLE(NATOMS)
 46: DOUBLE PRECISION PDUMMYA(3*NATOMS), PDUMMYB(3*NATOMS), LDISTANCE, XDUMMY, & 46: DOUBLE PRECISION PDUMMYA(3*NATOMS), PDUMMYB(3*NATOMS), LDISTANCE, XDUMMY, &
 47:    &             LDBEST(NPERMGROUP), LDBESTATOM 47:    &             LDBEST(NPERMGROUP), LDBESTATOM
 48: DOUBLE PRECISION SPDUMMYA(3*NATOMS), SPDUMMYB(3*NATOMS) 48: DOUBLE PRECISION SPDUMMYA(3*NATOMS), SPDUMMYB(3*NATOMS)
 49: INTEGER NEWPERM(NATOMS), ALLPERM(NATOMS), SAVEPERM(NATOMS) 49: INTEGER NEWPERM(NATOMS), ALLPERM(NATOMS), SAVEPERM(NATOMS)
 50: CHARACTER(LEN=5) ZSYMSAVE 50: CHARACTER(LEN=5) ZSYMSAVE
 51: COMMON /SYS/ ZSYMSAVE 51: COMMON /SYS/ ZSYMSAVE
 52: DOUBLE PRECISION XA, XB, YA, YB, ZA, ZB, DMEAN(NATOMS), DA, DB 52: DOUBLE PRECISION XA, XB, YA, YB, ZA, ZB, DMEAN(NATOMS), DA, DB
 53: INTEGER TRIED(NATOMS), DLIST(NATOMS), SORTLIST(NATOMS), NDUMMY2, INGROUP(NATOMS), NADDED 53: INTEGER TRIED(NATOMS), DLIST(NATOMS), SORTLIST(NATOMS), NDUMMY2, INGROUP(NATOMS), NADDED
 54:  54: 
  55: LPC2=LOCALPERMCUT**2
  56: LPC22=LOCALPERMCUT2**2
 55: DBEST=1.0D100 57: DBEST=1.0D100
 56: PERMUTABLE(1:NATOMS)=.FALSE. 58: PERMUTABLE(1:NATOMS)=.FALSE.
 57: NDUMMY=1 59: NDUMMY=1
 58: DO J1=1,NPERMGROUP 60: DO J1=1,NPERMGROUP
 59:    DO J2=1,NPERMSIZE(J1) 61:    DO J2=1,NPERMSIZE(J1)
 60:       PERMUTABLE(PERMGROUP(NDUMMY+J2-1))=.TRUE. 62:       PERMUTABLE(PERMGROUP(NDUMMY+J2-1))=.TRUE.
 61:       INGROUP(PERMGROUP(NDUMMY+J2-1))=J1 63:       INGROUP(PERMGROUP(NDUMMY+J2-1))=J1
 62:    ENDDO 64:    ENDDO
 63:    NDUMMY=NDUMMY+NPERMSIZE(J1) 65:    NDUMMY=NDUMMY+NPERMSIZE(J1)
 64: ENDDO 66: ENDDO
176:    LDBESTATOM=1.0D100178:    LDBESTATOM=1.0D100
177:    NOTHER=0179:    NOTHER=0
178:    DO J2=1,NATOMS180:    DO J2=1,NATOMS
179:       IF (TRIED(J2).EQ.1) THEN181:       IF (TRIED(J2).EQ.1) THEN
180:          NOTHER=NOTHER+1182:          NOTHER=NOTHER+1
181:          DLIST(NOTHER)=J2183:          DLIST(NOTHER)=J2
182:       ENDIF184:       ENDIF
183:    ENDDO185:    ENDDO
184:    ADDED=.FALSE.186:    ADDED=.FALSE.
185:    outer2: DO J2=1,NATOMS187:    outer2: DO J2=1,NATOMS
186:       IF (DMEAN(J2).GT.LOCALPERMCUT2) THEN188:       IF (DMEAN(J2).GT.LPC22) THEN
187: !        PRINT '(A)',' lopermdist> No more atoms within cutoff'189: !        PRINT '(A)',' lopermdist> No more atoms within cutoff'
188:          GOTO 91190:          GOTO 91
189:       ENDIF191:       ENDIF
190:       IF (TRIED(SORTLIST(J2)).EQ.0) THEN192:       IF (TRIED(SORTLIST(J2)).EQ.0) THEN
191:          ADDED=.TRUE.193:          ADDED=.TRUE.
192:          NOTHER=NOTHER+1194:          NOTHER=NOTHER+1
193:          IF (NOTHER+PATOMS.GT.NATOMS) THEN195:          IF (NOTHER+PATOMS.GT.NATOMS) THEN
194:             PRINT '(A,I6)', &196:             PRINT '(A,I6)', &
195:   & ' lopermdist> ERROR *** number of neighbours plus number of permutable atoms exceeds total for group ',J1197:   & ' lopermdist> ERROR *** number of neighbours plus number of permutable atoms exceeds total for group ',J1
196:             STOP198:             STOP


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0