hdiff output

r32519/getconnectpair.f90 2017-05-11 17:30:10.910694149 +0100 r32518/getconnectpair.f90 2017-05-11 17:30:12.110709507 +0100
 18: ! 18: !
 19:  19: 
 20: ! 20: !
 21: !  Subroutine to provide candidate pairs of minima based on the list 21: !  Subroutine to provide candidate pairs of minima based on the list
 22: !  of NUSEPAIRS in array USEPAIRSMIN 22: !  of NUSEPAIRS in array USEPAIRSMIN
 23: ! 23: !
 24: SUBROUTINE GETCONNECTPAIR(NAVAIL,NUSED,MINS,MINF,SPOINTS,FPOINTS) 24: SUBROUTINE GETCONNECTPAIR(NAVAIL,NUSED,MINS,MINF,SPOINTS,FPOINTS)
 25: USE COMMONS, ONLY: NCONNECTPAIRS, CONNECTPAIRSMIN, UMIN, NATOMS, DMIN1, DMIN2, NATTEMPT, NCPU, MAXBARRIER,  & 25: USE COMMONS, ONLY: NCONNECTPAIRS, CONNECTPAIRSMIN, 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, NOPT 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(NOPT), FPOINTS(NOPT) 32: DOUBLE PRECISION SPOINTS(NOPT), FPOINTS(NOPT)
 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 35: INTEGER :: NDISTSTART(NMIN), NUNCONSTART ! sn402
 36: LOGICAL DEADTS(NTS), ISA(NMIN), ISB(NMIN), CHANGED, CHECKCONN 36: LOGICAL DEADTS(NTS), ISA(NMIN), ISB(NMIN), CHANGED, CHECKCONN
 37: INTEGER DMAX, NUNCONA, NUNCONB 37: INTEGER DMAX, NUNCONA, NUNCONB
 38: DOUBLE PRECISION :: CUT_UNDERFLOW=-300.0D0 38: DOUBLE PRECISION :: CUT_UNDERFLOW=-300.0D0


r32519/getdpair.f90 2017-05-11 17:30:11.130696964 +0100 r32518/getdpair.f90 2017-05-11 17:30:12.322712220 +0100
 16: !   along with this program; if not, write to the Free Software 16: !   along with this program; if not, write to the Free Software
 17: !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA 17: !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 18: ! 18: !
 19:  19: 
 20: ! 20: !
 21: !  Subroutine to provide candidate pairs of minima based on Dijkstra analysis 21: !  Subroutine to provide candidate pairs of minima based on Dijkstra analysis
 22: !  of the current database. 22: !  of the current database.
 23: ! 23: !
 24: SUBROUTINE GETDPAIR(NAVAIL,NUSED,MINS,MINF,SPOINTS,FPOINTS) 24: SUBROUTINE GETDPAIR(NAVAIL,NUSED,MINS,MINF,SPOINTS,FPOINTS)
 25: USE COMMONS, ONLY: UMIN, NATOMS, DMIN1, DMIN2, DIJINITT, NCPU, NPAIRFRQ, NATTEMPT, NMIN, DIJINITFLYT, & 25: USE COMMONS, ONLY: UMIN, NATOMS, DMIN1, DMIN2, DIJINITT, NCPU, NPAIRFRQ, NATTEMPT, NMIN, DIJINITFLYT, &
 26:   &  PAIR1, PAIR2, NPAIRDONE, MAXPAIRS, NOPT 26:   &  PAIR1, PAIR2, NPAIRDONE, MAXPAIRS
 27: IMPLICIT NONE 27: IMPLICIT NONE
 28: INTEGER NUSED, MINS, MINF, NAVAIL, PAIRSTODO, MINMAP(NMIN), NMINSAVE, J1 28: INTEGER NUSED, MINS, MINF, NAVAIL, PAIRSTODO, MINMAP(NMIN), NMINSAVE, J1
 29: DOUBLE PRECISION SPOINTS(NOPT), FPOINTS(NOPT) 29: DOUBLE PRECISION SPOINTS(NOPT), FPOINTS(NOPT)
 30:  30: 
 31: 10 CONTINUE 31: 10 CONTINUE
 32: IF (NAVAIL.EQ.0) THEN 32: IF (NAVAIL.EQ.0) THEN
 33:    IF (DIJINITT) THEN  33:    IF (DIJINITT) THEN 
 34:       CALL DIJINIT(NAVAIL) 34:       CALL DIJINIT(NAVAIL)
 35:    ELSE IF (DIJINITFLYT) THEN  35:    ELSE IF (DIJINITFLYT) THEN 
 36:       CALL GETNCONN ! must call this first to set NCONNMAX  36:       CALL GETNCONN ! must call this first to set NCONNMAX 


r32519/getspair.f90 2017-05-11 17:30:11.454701113 +0100 r32518/getspair.f90 2017-05-11 17:30:12.546715088 +0100
 17: !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA 17: !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 18: ! 18: !
 19:  19: 
 20: ! 20: !
 21: !  Subroutine to provide candidate pairs of minima based on minimum distances 21: !  Subroutine to provide candidate pairs of minima based on minimum distances
 22: !  for pairs separated by a certain number of steps in the best path. 22: !  for pairs separated by a certain number of steps in the best path.
 23: ! 23: !
 24: SUBROUTINE GETSPAIR(NAVAIL,NUSED,MINS,MINF,SPOINTS,FPOINTS) 24: SUBROUTINE GETSPAIR(NAVAIL,NUSED,MINS,MINF,SPOINTS,FPOINTS)
 25: USE COMMONS, ONLY: UMIN, NATOMS, DMIN1, DMIN2, NATTEMPT, NCPU, MINSEP, BULKT, TWOD, ZSYM, DEBUG, BESTPATHLENGTH, ETS, & 25: USE COMMONS, ONLY: UMIN, NATOMS, DMIN1, DMIN2, NATTEMPT, NCPU, MINSEP, BULKT, TWOD, ZSYM, DEBUG, BESTPATHLENGTH, ETS, &
 26:   &               NPAIRFRQ, PAIR1, PAIR2, NPAIRFRQ, NPAIRDONE, MAXPAIRS, PERMDIST, BOXLX, BOXLY, BOXLZ, RIGIDBODY, BESTPATH, & 26:   &               NPAIRFRQ, PAIR1, PAIR2, NPAIRFRQ, NPAIRDONE, MAXPAIRS, PERMDIST, BOXLX, BOXLY, BOXLZ, RIGIDBODY, BESTPATH, &
 27:   &               BARRIERSHORT, EMIN, PLUS, MINUS, KPLUS, KMINUS, RATESHORT, ANGLEAXIS, NMIN, INTERPCOSTFUNCTION, NOPT 27:   &               BARRIERSHORT, EMIN, PLUS, MINUS, KPLUS, KMINUS, RATESHORT, ANGLEAXIS, NMIN, INTERPCOSTFUNCTION
 28: USE PORFUNCS 28: USE PORFUNCS
 29: IMPLICIT NONE 29: IMPLICIT NONE
 30: INTEGER NUSED, MINS, MINF, NAVAIL, PAIRSTODO, J1, NSTEPS, J2, J3, J4, N1, N2 30: INTEGER NUSED, MINS, MINF, NAVAIL, PAIRSTODO, J1, NSTEPS, J2, J3, J4, N1, N2
 31: INTEGER NMINSAVE, MINMAP(NMIN) 31: INTEGER NMINSAVE, MINMAP(NMIN)
 32: INTEGER, ALLOCATABLE :: MINLIST(:), POSITION(:) 32: INTEGER, ALLOCATABLE :: MINLIST(:), POSITION(:)
 33: DOUBLE PRECISION, ALLOCATABLE :: DISTLIST(:), BHEIGHT(:) 33: DOUBLE PRECISION, ALLOCATABLE :: DISTLIST(:), BHEIGHT(:)
 34: DOUBLE PRECISION SPOINTS(NOPT), FPOINTS(NOPT), DISTANCE, RMAT(3,3), DIST2 34: DOUBLE PRECISION SPOINTS(NOPT), FPOINTS(NOPT), DISTANCE, RMAT(3,3), DIST2
 35:  35: 
 36: 10 CONTINUE 36: 10 CONTINUE
 37: IF (NAVAIL.EQ.0) THEN 37: IF (NAVAIL.EQ.0) THEN


r32519/getupair.f90 2017-05-11 17:30:11.670703878 +0100 r32518/getupair.f90 2017-05-11 17:30:12.762717856 +0100
 19:  19: 
 20: ! 20: !
 21: !  Subroutine to provide candidate pairs of minima based on the minimum barrier 21: !  Subroutine to provide candidate pairs of minima based on the minimum barrier
 22: !  to a target minimum. Designed to remove traps. 22: !  to a target minimum. Designed to remove traps.
 23: ! 23: !
 24: SUBROUTINE GETUPAIR(NAVAIL,NUSED,MINS,MINF,SPOINTS,FPOINTS) 24: SUBROUTINE GETUPAIR(NAVAIL,NUSED,MINS,MINF,SPOINTS,FPOINTS)
 25: USE COMMONS, ONLY: UMIN, NATOMS, DMIN1, DMIN2, NATTEMPT, NCPU, NMIN, PERMDIST, EDELTAMIN, ELOWBAR, EHIGHBAR, OHCELLT, & 25: USE COMMONS, ONLY: UMIN, NATOMS, DMIN1, DMIN2, NATTEMPT, NCPU, NMIN, PERMDIST, EDELTAMIN, ELOWBAR, EHIGHBAR, OHCELLT, &
 26:   &               NPAIRFRQ, PAIR1, PAIR2, NPAIRFRQ, NPAIRDONE, MAXPAIRS, DMINMAX, DEBUG, LOCATIONA, LOCATIONB, BULKT, & 26:   &               NPAIRFRQ, PAIR1, PAIR2, NPAIRFRQ, NPAIRDONE, MAXPAIRS, DMINMAX, DEBUG, LOCATIONA, LOCATIONB, BULKT, &
 27:   &               ZSYM, TWOD, DIRECTION, PLUS, MINUS, NMINA, NMINB, EMIN, NTS, ETS, EUNTRAPTHRESH, EINC, DEBUG, ANGLEAXIS, & 27:   &               ZSYM, TWOD, DIRECTION, PLUS, MINUS, NMINA, NMINB, EMIN, NTS, ETS, EUNTRAPTHRESH, EINC, DEBUG, ANGLEAXIS, &
 28:   &               TSTHRESH, TOPPOINTER, POINTERP, POINTERM, BOXLX, BOXLY, BOXLZ, RIGIDBODY, INTERPCOSTFUNCTION, & 28:   &               TSTHRESH, TOPPOINTER, POINTERP, POINTERM, BOXLX, BOXLY, BOXLZ, RIGIDBODY, INTERPCOSTFUNCTION, &
 29:   &               METRICUPAIR, UNTRAPMETRICT, METMATMAX, BAILDIST, NOPT                          29:   &               METRICUPAIR, UNTRAPMETRICT, METMATMAX, BAILDIST                         
 30: USE PORFUNCS 30: USE PORFUNCS
 31: IMPLICIT NONE 31: IMPLICIT NONE
 32: INTEGER NUSED, MINS, MINF, NAVAIL, PAIRSTODO, J1, J3, J4, CLOSEST(NMIN), MINVAL, OLDBASIN(NMIN), BASIN(NMIN), NBASIN, J2, NDONE 32: INTEGER NUSED, MINS, MINF, NAVAIL, PAIRSTODO, J1, J3, J4, CLOSEST(NMIN), MINVAL, OLDBASIN(NMIN), BASIN(NMIN), NBASIN, J2, NDONE
 33: INTEGER MAXNEIGHBOURS, NP, NNEIGH, JDOING, NTRIED, J5, J6, J7 33: INTEGER MAXNEIGHBOURS, NP, NNEIGH, JDOING, NTRIED, J5, J6, J7
 34: INTEGER, ALLOCATABLE :: NEIGHBOURS(:), ITEMP(:) 34: INTEGER, ALLOCATABLE :: NEIGHBOURS(:), ITEMP(:)
 35: DOUBLE PRECISION, ALLOCATABLE :: BLIST(:) 35: DOUBLE PRECISION, ALLOCATABLE :: BLIST(:)
 36: DOUBLE PRECISION SPOINTS(NOPT), FPOINTS(NOPT), BARRIER(NMIN), POINTS1(NOPT), POINTS2(NOPT), & 36: DOUBLE PRECISION SPOINTS(NOPT), FPOINTS(NOPT), BARRIER(NMIN), POINTS1(NOPT), POINTS2(NOPT), &
 37:   &              DISTANCE, RMAT(3,3), DIST2, LOWESTTARG, & 37:   &              DISTANCE, RMAT(3,3), DIST2, LOWESTTARG, &
 38:   &              HIGHESTTS, DUMMY, ETHRESH 38:   &              HIGHESTTS, DUMMY, ETHRESH
 39: INTEGER, ALLOCATABLE :: VINT(:) 39: INTEGER, ALLOCATABLE :: VINT(:)


r32519/getusepair.f90 2017-05-11 17:30:11.890706691 +0100 r32518/getusepair.f90 2017-05-11 17:30:12.986720719 +0100
 18: ! 18: !
 19:  19: 
 20: ! 20: !
 21: !  Subroutine to provide candidate pairs of minima based on the list 21: !  Subroutine to provide candidate pairs of minima based on the list
 22: !  of NUSEPAIRS in array USEPAIRSMIN 22: !  of NUSEPAIRS in array USEPAIRSMIN
 23: ! 23: !
 24: SUBROUTINE GETUSEPAIR(NAVAIL,NUSED,MINS,MINF,SPOINTS,FPOINTS) 24: SUBROUTINE GETUSEPAIR(NAVAIL,NUSED,MINS,MINF,SPOINTS,FPOINTS)
 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, NOPT 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(NOPT), FPOINTS(NOPT) 32: DOUBLE PRECISION SPOINTS(NOPT), FPOINTS(NOPT)
 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 35: INTEGER :: NDISTSTART(NMIN), NUNCONSTART ! sn402
 36: LOGICAL DEADTS(NTS), ISA(NMIN), ISB(NMIN), CHANGED, CHECKCONN 36: LOGICAL DEADTS(NTS), ISA(NMIN), ISB(NMIN), CHANGED, CHECKCONN
 37: INTEGER DMAX, NUNCONA, NUNCONB 37: INTEGER DMAX, NUNCONA, NUNCONB
 38: DOUBLE PRECISION :: CUT_UNDERFLOW=-300.0D0 38: DOUBLE PRECISION :: CUT_UNDERFLOW=-300.0D0


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0