hdiff output

r28929/getusepair.f90 2015-11-17 23:34:33.373756980 +0000 r28928/getusepair.f90 2015-11-17 23:34:33.573759636 +0000
 25: USE COMMONS, ONLY: NUSEPAIRS, USEPAIRSMIN, UMIN, NATOMS, DMIN1, DMIN2, NATTEMPT, NCPU, MAXBARRIER,  & 25: USE COMMONS, ONLY: NUSEPAIRS, USEPAIRSMIN, UMIN, NATOMS, DMIN1, DMIN2, NATTEMPT, NCPU, MAXBARRIER,  &
 26:   &               DEBUG, NPAIRFRQ, PAIR1, PAIR2, NPAIRFRQ, NPAIRDONE, MAXPAIRS, LOCATIONA, LOCATIONB, NCONNMAX, & 26:   &               DEBUG, NPAIRFRQ, PAIR1, PAIR2, NPAIRFRQ, NPAIRDONE, MAXPAIRS, LOCATIONA, LOCATIONB, NCONNMAX, &
 27:                   NTS, NMIN, NMINA, NMINB, DIRECTION, PLUS, MINUS, KPLUS, KMINUS, NCONN, & 27:                   NTS, NMIN, NMINA, NMINB, DIRECTION, PLUS, MINUS, KPLUS, KMINUS, NCONN, &
 28:   &               ETS, EMIN, SKIPPAIRST 28:   &               ETS, EMIN, SKIPPAIRST
 29: USE PORFUNCS 29: USE PORFUNCS
 30: IMPLICIT NONE 30: IMPLICIT NONE
 31: INTEGER NUSED, MINS, MINF, NAVAIL, PAIRSTODO, J1, J2, J3, NDIFF 31: INTEGER NUSED, MINS, MINF, NAVAIL, PAIRSTODO, J1, J2, J3, NDIFF
 32: DOUBLE PRECISION SPOINTS(3*NATOMS), FPOINTS(3*NATOMS) 32: DOUBLE PRECISION SPOINTS(3*NATOMS), FPOINTS(3*NATOMS)
 33: DOUBLE PRECISION DMATMC(NCONNMAX,NMIN), KSUM(NMIN) 33: DOUBLE PRECISION DMATMC(NCONNMAX,NMIN), KSUM(NMIN)
 34: INTEGER NCOL(NMIN), NVAL(NCONNMAX,NMIN), NDISTA(NMIN), NDISTB(NMIN), NCYCLE, DMIN 34: INTEGER NCOL(NMIN), NVAL(NCONNMAX,NMIN), NDISTA(NMIN), NDISTB(NMIN), NCYCLE, DMIN
 35: INTEGER :: NDISTSTART(NMIN), NUNCONSTART ! sn402 
 36: LOGICAL DEADTS(NTS), ISA(NMIN), ISB(NMIN), CHANGED, CHECKCONN 35: LOGICAL DEADTS(NTS), ISA(NMIN), ISB(NMIN), CHANGED, CHECKCONN
 37: INTEGER DMAX, NUNCONA, NUNCONB 36: INTEGER DMAX, NUNCONA, NUNCONB
 38: DOUBLE PRECISION :: CUT_UNDERFLOW=-300.0D0 37: DOUBLE PRECISION :: CUT_UNDERFLOW=-300.0D0
 39:  38: 
 40: IF (NAVAIL.EQ.0) THEN 39: IF (NAVAIL.EQ.0) THEN
 41:    NDIFF=1 40:    NDIFF=1
 42:    PAIRSTODO=NCPU*NPAIRFRQ 41:    PAIRSTODO=NCPU*NPAIRFRQ
 43:    IF (NPAIRFRQ.LT.1) PAIRSTODO=NATTEMPT*NCPU ! just one set of pairs unless we run out 42:    IF (NPAIRFRQ.LT.1) PAIRSTODO=NATTEMPT*NCPU ! just one set of pairs unless we run out
 44:    IF (ALLOCATED(DMIN1)) DEALLOCATE(DMIN1,DMIN2) 43:    IF (ALLOCATED(DMIN1)) DEALLOCATE(DMIN1,DMIN2)
 45:    ALLOCATE(DMIN1(PAIRSTODO),DMIN2(PAIRSTODO)) 44:    ALLOCATE(DMIN1(PAIRSTODO),DMIN2(PAIRSTODO))
167: ENDIF166: ENDIF
168: !167: !
169: !  End of connection check.168: !  End of connection check.
170: !169: !
171: 170: 
172: 7 CONTINUE ! Jump back to here if the previously selected pair of minima were already connected171: 7 CONTINUE ! Jump back to here if the previously selected pair of minima were already connected
173: NUSED=NUSED+1172: NUSED=NUSED+1
174: NAVAIL=NAVAIL-1173: NAVAIL=NAVAIL-1
175: IF (NAVAIL.EQ.0) THEN174: IF (NAVAIL.EQ.0) THEN
176:    PRINT '(A)','getusepair> No more candidate pairs of minima in getusepair - quit'175:    PRINT '(A)','getusepair> No more candidate pairs of minima in getusepair - quit'
177:  !  IF(SKIPPAIRST) STOP176:    STOP
178:  !  RETURN 
179:     STOP 
180: ENDIF177: ENDIF
181: MINS=DMIN1(NUSED)178: MINS=DMIN1(NUSED)
182: MINF=DMIN2(NUSED)179: MINF=DMIN2(NUSED)
183: 180: 
184: ! Check whether this particular pair is already connected. SKIPPAIRS allows us to skip over the pair if it is.181: ! Check whether this particular pair is already connected. SKIPPAIRS allows us to skip over the pair if it is.
185: IF(SKIPPAIRST) THEN182: IF(SKIPPAIRST) THEN  ! Hide this behind a keyword SKIPPAIRS!
186:     NDISTSTART(1:NMIN)=1000000183:     NDISTSTART(1:NMIN)=1000000
187:     NDISTSTART(MINS) = 0184:     NDISTSTART(MINS) = 0
188: 185: 
189:     NCYCLE=0186:     NCYCLE=0
190: 52   CHANGED=.FALSE.187: 52   CHANGED=.FALSE.
191:     NCYCLE=NCYCLE+1188:     NCYCLE=NCYCLE+1
192:     DMIN=100000189:     DMIN=100000
193:     DMAX=0190:     DMAX=0
194:     NUNCONSTART=0191:     NUNCONSTART=0
195:     DO J1=1,NMIN192:     DO J1=1,NMIN


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0