hdiff output

r31683/bspt.F 2017-01-21 10:35:50.814250000 +0000 r31682/bspt.F 2017-01-21 10:35:52.302250000 +0000
 60: ! VMINOLD    =  (?) the energy of the previous quench that wasn't rejecected. only used for MINDENSITY (I think) 60: ! VMINOLD    =  (?) the energy of the previous quench that wasn't rejecected. only used for MINDENSITY (I think)
 61: ! 61: !
 62: ! COORDS     = scratch space.  could be anything.  Used to do quenches 62: ! COORDS     = scratch space.  could be anything.  Used to do quenches
 63: ! 63: !
 64: ! 64: !
 65: !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 65: !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 66:       USE MODCHARMM 66:       USE MODCHARMM
 67:       USE COMMONS 67:       USE COMMONS
 68:       USE TETHERFUNC 68:       USE TETHERFUNC
 69:       USE CLASS_OVERLAP 69:       USE CLASS_OVERLAP
 70:       USE PORFUNCS 
 71:       IMPLICIT NONE 70:       IMPLICIT NONE
 72:  71: 
 73: #ifdef MPI 72: #ifdef MPI
 74:       INCLUDE 'mpif.h' 73:       INCLUDE 'mpif.h'
 75:       ! 74:       !
 76:       ! NHIST=100 and NHISTE=1000 were hardcoded. They are used to allocate huge arrays later on. Changing to small numbers for now.  75:       ! NHIST=100 and NHISTE=1000 were hardcoded. They are used to allocate huge arrays later on. Changing to small numbers for now. 
 77:       !     todo - read from data file 76:       !     todo - read from data file
 78:       ! 77:       !
 79:       INTEGER, PARAMETER :: NHIST=2, NHISTE=2 78:       INTEGER, PARAMETER :: NHIST=2, NHISTE=2
 80:       INTEGER :: IACCEPT(0:NPAR-1), MPIERR, J,K, TEMPUNIT 79:       INTEGER :: IACCEPT(0:NPAR-1), MPIERR, J,K, TEMPUNIT


r31683/bspt_one_atom.F 2017-01-21 10:35:51.102250000 +0000 r31682/bspt_one_atom.F 2017-01-21 10:35:52.550250000 +0000
 64: ! VMINOLD    =  (?) the energy of the previous quench that wasn't rejecected. only used for MINDENSITY (I think) 64: ! VMINOLD    =  (?) the energy of the previous quench that wasn't rejecected. only used for MINDENSITY (I think)
 65: ! 65: !
 66: ! COORDS     = scratch space.  could be anything.  Used to do quenches 66: ! COORDS     = scratch space.  could be anything.  Used to do quenches
 67: ! 67: !
 68: ! 68: !
 69: !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 69: !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 70:       USE MODCHARMM 70:       USE MODCHARMM
 71:       USE COMMONS 71:       USE COMMONS
 72:       USE TETHERFUNC 72:       USE TETHERFUNC
 73:       USE CLASS_OVERLAP 73:       USE CLASS_OVERLAP
 74:       USE PORFUNCS 
 75:       IMPLICIT NONE 74:       IMPLICIT NONE
 76:  75: 
 77: #ifdef MPI 76: #ifdef MPI
 78:       INCLUDE 'mpif.h' 77:       INCLUDE 'mpif.h'
 79:       INTEGER :: IACCEPT(0:NPAR-1), MPIERR, J,K, TEMPUNIT 78:       INTEGER :: IACCEPT(0:NPAR-1), MPIERR, J,K, TEMPUNIT
 80:       INTEGER NDUMMY, NDUMMY2, NTOT, NH, J1, J2, J3, J4, JLOW, 79:       INTEGER NDUMMY, NDUMMY2, NTOT, NH, J1, J2, J3, J4, JLOW,
 81:      1        N1, 80:      1        N1,
 82:      2        ITRAJ, ITRAJO,NEACCEPT, RNDSEED, NUPDATE, 81:      2        ITRAJ, ITRAJO,NEACCEPT, RNDSEED, NUPDATE,
 83:      3        CONVERGED, LBFGS_ITERATIONS, BININDEX, 82:      3        CONVERGED, LBFGS_ITERATIONS, BININDEX,
 84:      4        IBININDEX, IBININDEX2, 83:      4        IBININDEX, IBININDEX2,


r31683/tryexchange.F90 2017-01-21 10:35:51.398250000 +0000 r31682/tryexchange.F90 2017-01-21 10:35:52.790250000 +0000
 15: !  You should have received a copy of the GNU General Public License 15: !  You should have received a copy of the GNU General Public License
 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 TRYEXCHANGE(E,X,Y,Z,XO,YO,ZO,VOLD,EXCHANGEACCEPT,JLOW, & 21: SUBROUTINE TRYEXCHANGE(E,X,Y,Z,XO,YO,ZO,VOLD,EXCHANGEACCEPT,JLOW, &
 22:   &                    VNEW,GRAD,VNEWSAVE,VMINOLD,VMINNEW,BETA,ITRAJ,ITRAJO,NTOT, & 22:   &                    VNEW,GRAD,VNEWSAVE,VMINOLD,VMINNEW,BETA,ITRAJ,ITRAJO,NTOT, &
 23:   &                    LBFGS_ITERATIONS,NEACCEPT,LBFGS_ITERATIONSO,QV,XDUMMY,PEINT,NCHOSEN,LASTEXDOWN, MCSTEP) 23:   &                    LBFGS_ITERATIONS,NEACCEPT,LBFGS_ITERATIONSO,QV,XDUMMY,PEINT,NCHOSEN,LASTEXDOWN, MCSTEP)
 24: USE COMMONS 24: USE COMMONS
 25: USE PORFUNCS 
 26: IMPLICIT NONE 25: IMPLICIT NONE
 27: DOUBLE PRECISION RANDOM, DPRAND, E, X(NATOMS), Y(NATOMS), Z(NATOMS), XO(NATOMS), YO(NATOMS), ZO(NATOMS), & 26: DOUBLE PRECISION RANDOM, DPRAND, E, X(NATOMS), Y(NATOMS), Z(NATOMS), XO(NATOMS), YO(NATOMS), ZO(NATOMS), &
 28:   &              POTEL, VOLD, VNEW, GRAD(3*NATOMS), & 27:   &              POTEL, VOLD, VNEW, GRAD(3*NATOMS), &
 29:   &              DELTA, W, ER, DBETA, VNEWSAVE, VMINOLD, VMINNEW, BETA(0:NPAR-1), LESAVE, PERTCOORDS(3*NATOMS), & 28:   &              DELTA, W, ER, DBETA, VNEWSAVE, VMINOLD, VMINNEW, BETA(0:NPAR-1), LESAVE, PERTCOORDS(3*NATOMS), &
 30:   &              PERTCOORDSO(3*NATOMS), DUMMY, NEWE, QV(NENRPER), XDUMMY, PEINT, OLDPE 29:   &              PERTCOORDSO(3*NATOMS), DUMMY, NEWE, QV(NENRPER), XDUMMY, PEINT, OLDPE
 31: INTEGER KAPPA 30: INTEGER KAPPA
 32: DOUBLE PRECISION, intent(in)    :: MCSTEP ! the monte carlo step. Used for printing  31: DOUBLE PRECISION, intent(in)    :: MCSTEP ! the monte carlo step. Used for printing 
 33: INTEGER, INTENT(INOUT)    :: NEACCEPT, NTOT 32: INTEGER, INTENT(INOUT)    :: NEACCEPT, NTOT
 34: !DOUBLE PRECISION    :: MCSTEP ! the monte carlo step. Used for printing  33: !DOUBLE PRECISION    :: MCSTEP ! the monte carlo step. Used for printing 
 35: LOGICAL, intent(OUT) :: EXCHANGEACCEPT 34: LOGICAL, intent(OUT) :: EXCHANGEACCEPT


r31683/tryexchange_independence.F90 2017-01-21 10:35:51.642250000 +0000 r31682/tryexchange_independence.F90 2017-01-21 10:35:53.014250000 +0000
114: END MODULE TRYEXCHANGE_MONTE_CARLO_MOD114: END MODULE TRYEXCHANGE_MONTE_CARLO_MOD
115: 115: 
116: SUBROUTINE TRYEXCHANGE_INDEPENDENCE(MYNODE, MYENERGY, MYCOORDS, nreps, beta, EXCHANGEACCEPT, &116: SUBROUTINE TRYEXCHANGE_INDEPENDENCE(MYNODE, MYENERGY, MYCOORDS, nreps, beta, EXCHANGEACCEPT, &
117:       MCSTEP, myunit)117:       MCSTEP, myunit)
118: #ifdef MPI118: #ifdef MPI
119:   USE COMMONS, only : natoms, ptex_indep_nsteps, PTEX_INDEP_UNIT, debug119:   USE COMMONS, only : natoms, ptex_indep_nsteps, PTEX_INDEP_UNIT, debug
120:   USE TRYEXCHANGE_MONTE_CARLO_MOD, ONLY : TRYEXCHANGE_MONTE_CARLO120:   USE TRYEXCHANGE_MONTE_CARLO_MOD, ONLY : TRYEXCHANGE_MONTE_CARLO
121: #else121: #else
122:   USE COMMONS, only: natoms122:   USE COMMONS, only: natoms
123: #endif123: #endif
124:   USE PORFUNCS 
125: IMPLICIT NONE124: IMPLICIT NONE
126: INTEGER, INTENT(IN) :: MYNODE, nreps, myunit125: INTEGER, INTENT(IN) :: MYNODE, nreps, myunit
127: DOUBLE PRECISION, INTENT(INOUT) :: MYCOORDS(3*NATOMS), MYENERGY126: DOUBLE PRECISION, INTENT(INOUT) :: MYCOORDS(3*NATOMS), MYENERGY
128: DOUBLE PRECISION, INTENT(IN) :: beta(nreps), mcstep127: DOUBLE PRECISION, INTENT(IN) :: beta(nreps), mcstep
129: LOGICAL, INTENT(OUT) :: EXCHANGEACCEPT128: LOGICAL, INTENT(OUT) :: EXCHANGEACCEPT
130: integer headnode, nmcsteps, node, tempinteger129: integer headnode, nmcsteps, node, tempinteger
131: integer nperm, permutation(nreps)130: integer nperm, permutation(nreps)
132: integer newpositions(nreps), oldpositions(nreps), newnode, oldnode131: integer newpositions(nreps), oldpositions(nreps), newnode, oldnode
133: DOUBLE PRECISION ENERGIES(NREPS), newenergy132: DOUBLE PRECISION ENERGIES(NREPS), newenergy
134: double precision allcoords(3*natoms, nreps) !this is large133: double precision allcoords(3*natoms, nreps) !this is large


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0