hdiff output

r33541/intlbfgs.f90 2017-12-02 11:30:13.356391706 +0000 r33540/intlbfgs.f90 2017-12-02 11:30:14.040400783 +0000
 25:      & REPJ, NREPMAX, ATOMACTIVE, NCONSTRAINTON, CONION, CONJON, CONDISTREFLOCALON, CONDISTREFON, & 25:      & REPJ, NREPMAX, ATOMACTIVE, NCONSTRAINTON, CONION, CONJON, CONDISTREFLOCALON, CONDISTREFON, &
 26:      & NREPCUT, REPCUT, CHECKCONINT, INTCONSTEPS, INTRELSTEPS, MAXCONE, COLDFUSIONLIMIT, & 26:      & NREPCUT, REPCUT, CHECKCONINT, INTCONSTEPS, INTRELSTEPS, MAXCONE, COLDFUSIONLIMIT, &
 27:      & INTSTEPS1, DUMPINTXYZ, DUMPINTXYZFREQ, DUMPINTEOS, DUMPINTEOSFREQ, & 27:      & INTSTEPS1, DUMPINTXYZ, DUMPINTXYZFREQ, DUMPINTEOS, DUMPINTEOSFREQ, &
 28:      & IMSEPMIN, IMSEPMAX, MAXINTIMAGE, INTFREEZET, INTFREEZETOL, FREEZE, & 28:      & IMSEPMIN, IMSEPMAX, MAXINTIMAGE, INTFREEZET, INTFREEZETOL, FREEZE, &
 29:      & INTFROZEN, CHECKREPINTERVAL, NNREPULSIVE, INTFREEZEMIN, INTIMAGECHECK, & 29:      & INTFROZEN, CHECKREPINTERVAL, NNREPULSIVE, INTFREEZEMIN, INTIMAGECHECK, &
 30:      & CONCUT, CONCUTLOCAL, KINT, REPIFIX, REPJFIX, NREPULSIVEFIX, & 30:      & CONCUT, CONCUTLOCAL, KINT, REPIFIX, REPJFIX, NREPULSIVEFIX, &
 31:      & NCONSTRAINTFIX, CONIFIX, CONJFIX, QCIPERMCHECK, QCIPERMCHECKINT, BULKT, TWOD, RIGIDBODY, & 31:      & NCONSTRAINTFIX, CONIFIX, CONJFIX, QCIPERMCHECK, QCIPERMCHECKINT, BULKT, TWOD, RIGIDBODY, &
 32:      & QCIADDREP, QCIXYZ, WHOLEDNEB, QCIIMAGE, FROZEN, QCIRESTART, NPERMGROUP, NPERMSIZE, PERMGROUP, NSETS, SETS, & 32:      & QCIADDREP, QCIXYZ, WHOLEDNEB, QCIIMAGE, FROZEN, QCIRESTART, NPERMGROUP, NPERMSIZE, PERMGROUP, NSETS, SETS, &
 33:      & PERMDIST, LOCALPERMCUT, QCILPERMDIST, QCIPDINT, QCIPERMCUT, QCIAMBERT, BONDS, DOBACK, & 33:      & PERMDIST, LOCALPERMCUT, QCILPERMDIST, QCIPDINT, QCIPERMCUT, QCIAMBERT, BONDS, DOBACK, &
 34:      & QCIRESET, QCIRESETINT1, QCIRESETINT2, JMAXCON, NCONOFF, EREP, ECON, ESPRING, CONVERGECONTEST, CONVERGEREPTEST, & 34:      & QCIRESET, QCIRESETINT1, QCIRESETINT2, JMAXCON, NCONOFF, EREP, ECON, ESPRING, CONVERGECONTEST, CONVERGEREPTEST, &
 35:      & FCONTEST, FREPTEST, QCIKADJUSTTOL, QCIKADJUSTFRAC, QCIKADJUSTFRQ, QCIKINTMAX, QCIKINTMIN, QCIAVDEV, QCISTOP 35:      & FCONTEST, FREPTEST, QCIKADJUSTTOL, QCIKADJUSTFRAC, QCIKADJUSTFRQ, QCIAVDEV, QCISTOP
 36: USE COMMONS, ONLY: NATOMS, DEBUG, PARAM1, PARAM2, PARAM3 36: USE COMMONS, ONLY: NATOMS, DEBUG, PARAM1, PARAM2, PARAM3
 37: USE MODCHARMM, ONLY : CHRMMT 37: USE MODCHARMM, ONLY : CHRMMT
 38: USE CHIRALITY 38: USE CHIRALITY
 39:  39: 
 40: IMPLICIT NONE  40: IMPLICIT NONE 
 41:  41: 
 42: DOUBLE PRECISION, INTENT(IN) :: QSTART(3*NATOMS), QFINISH(3*NATOMS)  ! The two end points 42: DOUBLE PRECISION, INTENT(IN) :: QSTART(3*NATOMS), QFINISH(3*NATOMS)  ! The two end points
 43: INTEGER D, U 43: INTEGER D, U
 44: DOUBLE PRECISION DIST, DIST2, RMAT(3,3), SUMEEE, SUMEEE2, SIGMAEEE, NEIGHBOUR_COORDS(12), CENTRE_COORDS(3) 44: DOUBLE PRECISION DIST, DIST2, RMAT(3,3), SUMEEE, SUMEEE2, SIGMAEEE, NEIGHBOUR_COORDS(12), CENTRE_COORDS(3)
 45: DOUBLE PRECISION DMAX, DF, DMIN, LOCALSTEP, ADMAX, DUMMYX, DUMMYY, DUMMYZ 45: DOUBLE PRECISION DMAX, DF, DMIN, LOCALSTEP, ADMAX, DUMMYX, DUMMYY, DUMMYZ
985: 985: 
986: !986: !
987: !  Dynamic adjustment of KINT values. Local values are changed by QCIKADJUSTFRAC if the987: !  Dynamic adjustment of KINT values. Local values are changed by QCIKADJUSTFRAC if the
988: !  corresponding separation is outside a fraction QCIKADJUSTTOL of the average value.988: !  corresponding separation is outside a fraction QCIKADJUSTTOL of the average value.
989: !  The adjustment is done every QCIKADJUSTFRQ cycles.989: !  The adjustment is done every QCIKADJUSTFRQ cycles.
990: !  Based on the DNEB adjustment.990: !  Based on the DNEB adjustment.
991: !991: !
992: IF (QCIKADJUSTFRQ.GT.0) THEN992: IF (QCIKADJUSTFRQ.GT.0) THEN
993:    IF (MOD(NITERDONE,QCIKADJUSTFRQ).EQ.0) THEN ! dynamic adjustment of KINT993:    IF (MOD(NITERDONE,QCIKADJUSTFRQ).EQ.0) THEN ! dynamic adjustment of KINT
994:       IF (QCIAVDEV.GT.QCIKADJUSTTOL) THEN994:       IF (QCIAVDEV.GT.QCIKADJUSTTOL) THEN
995:          KINT=MIN(KINT*QCIKADJUSTFRAC,QCIKINTMAX)995:          KINT=MIN(KINT*QCIKADJUSTFRAC,1.0D6)
996:          IF (DEBUG) PRINT '(2(A,G20.10))',' intlbfgs> Mean deviation ',QCIAVDEV,' Increasing QCI force constant to ',KINT996:          IF (DEBUG) PRINT '(2(A,G20.10))',' intlbfgs> Mean deviation ',QCIAVDEV,' Increasing QCI force constant to ',KINT
997:       ELSEIF (QCIAVDEV.LT.QCIKADJUSTTOL) THEN997:       ELSEIF (QCIAVDEV.LT.QCIKADJUSTTOL) THEN
998:          KINT=MAX(KINT/QCIKADJUSTFRAC,QCIKINTMIN)998:          KINT=MAX(KINT/QCIKADJUSTFRAC,1.0D-6)
999:          IF (DEBUG) PRINT '(2(A,G20.10))',' intlbfgs> Mean deviation ',QCIAVDEV,' Decreasing QCI force constant to ',KINT  999:          IF (DEBUG) PRINT '(2(A,G20.10))',' intlbfgs> Mean deviation ',QCIAVDEV,' Decreasing QCI force constant to ',KINT  
1000:       ENDIF1000:       ENDIF
1001:    ENDIF1001:    ENDIF
1002: ENDIF1002: ENDIF
1003: 1003: 
1004: 1004: 
1005: !1005: !
1006: !  Add next atom to active set if ADDATOM is true. 1006: !  Add next atom to active set if ADDATOM is true. 
1007: !  Constraints to atoms already in the active set are turned on1007: !  Constraints to atoms already in the active set are turned on
1008: !  and short-range repulsions to active atoms that are not distance constrained are turned on.1008: !  and short-range repulsions to active atoms that are not distance constrained are turned on.


r33541/key.f90 2017-12-02 11:30:13.576394625 +0000 r33540/key.f90 2017-12-02 11:30:14.260403702 +0000
110:      &        CPCONSTRAINTTOL, CPCONSTRAINTDEL, CPCONSTRAINTREP, CPCONSTRAINREPCUT, CPCONFRAC, &110:      &        CPCONSTRAINTTOL, CPCONSTRAINTDEL, CPCONSTRAINTREP, CPCONSTRAINREPCUT, CPCONFRAC, &
111:      &        INTLJTOL, INTLJDEL, INTLJEPS, IMSEPMIN, IMSEPMAX, TRAPK, MINOVERLAP, &111:      &        INTLJTOL, INTLJDEL, INTLJEPS, IMSEPMIN, IMSEPMAX, TRAPK, MINOVERLAP, &
112:      &        INTFREEZETOL, LOCALPERMCUT, LOCALPERMCUT2, LOCALPERMCUTINC, CHECKREPCUTOFF, CONCUTABS, &112:      &        INTFREEZETOL, LOCALPERMCUT, LOCALPERMCUT2, LOCALPERMCUTINC, CHECKREPCUTOFF, CONCUTABS, &
113:      &        CONCUTFRAC, ENDNUMHESSDELTA, DNEBEFRAC, QCHEMSCALE, KAA, SIGMAAA, QUIPATOMMASS, TEMPERATURE1, &113:      &        CONCUTFRAC, ENDNUMHESSDELTA, DNEBEFRAC, QCHEMSCALE, KAA, SIGMAAA, QUIPATOMMASS, TEMPERATURE1, &
114:      &        DISTORTINST,DELTAINST,MOLPROSCALE,COVER,STTSRMSCONV,LAN_DIST,LANCONV,LANFACTOR, &114:      &        DISTORTINST,DELTAINST,MOLPROSCALE,COVER,STTSRMSCONV,LAN_DIST,LANCONV,LANFACTOR, &
115:      &        STOCKEXP, JPARAM, MCPATHTEMP, MCPATHDMAX, MCPATHSTEP, MCPATHACCRATIO, BIASFAC, &115:      &        STOCKEXP, JPARAM, MCPATHTEMP, MCPATHDMAX, MCPATHSTEP, MCPATHACCRATIO, BIASFAC, &
116:      &        MCADDDEV, MCPATHQMIN, MCPATHQMAX, RPHQMIN, RPHQMAX, RPHTEMP, TWISTF, TWISTREF, MCPATHADDREF, &116:      &        MCADDDEV, MCPATHQMIN, MCPATHQMAX, RPHQMIN, RPHQMAX, RPHTEMP, TWISTF, TWISTREF, MCPATHADDREF, &
117:      &        MCPATHGWS, MCPATHGWQ, MCPATHNEGLECT, MCPATHTOL, FRAMESDIFF,TMRATIO, INTMINFAC, MLPLAMBDA, COLL_TOL, KLIM, SCA, &117:      &        MCPATHGWS, MCPATHGWQ, MCPATHNEGLECT, MCPATHTOL, FRAMESDIFF,TMRATIO, INTMINFAC, MLPLAMBDA, COLL_TOL, KLIM, SCA, &
118:      &        NEBMAXERISE, GDSQ, FLATEDIFF, QCIADDREPCUT, QCIADDREPEPS, QCIRADSHIFT, INTCONCUT, MLQLAMBDA, FRQCONV, FRQCONV2, &118:      &        NEBMAXERISE, GDSQ, FLATEDIFF, QCIADDREPCUT, QCIADDREPEPS, QCIRADSHIFT, INTCONCUT, MLQLAMBDA, FRQCONV, FRQCONV2, &
119:      &        TANHFAC, LJADDCUTOFF,LJADDREFNORM,MAXIMFACTOR, PUSHOPTCONV, QCICYCDIST, QCIPERMCUT, KERNELWIDTH, QUIPLATT(3,3), &119:      &        TANHFAC, LJADDCUTOFF,LJADDREFNORM,MAXIMFACTOR, PUSHOPTCONV, QCICYCDIST, QCIPERMCUT, KERNELWIDTH, QUIPLATT(3,3), &
120:      &        ECON, EREP, ESPRING, CONVERGECONTEST, CONVERGEREPTEST, FCONTEST, FREPTEST, QCIKADJUSTTOL, QCIKADJUSTFRAC, QCIAVDEV, &120:      &        ECON, EREP, ESPRING, CONVERGECONTEST, CONVERGEREPTEST, FCONTEST, FREPTEST, QCIKADJUSTTOL, QCIKADJUSTFRAC, QCIAVDEV
121:      &        QCIKINTMAX, QCIKINTMIN 
122: 121: 
123: !     sf344122: !     sf344
124:       DOUBLE PRECISION :: PCUTOFF,PYA11(3),PYA21(3),PYA12(3),PYA22(3),PEPSILON1(3),PSCALEFAC1(2),PSCALEFAC2(2), &123:       DOUBLE PRECISION :: PCUTOFF,PYA11(3),PYA21(3),PYA12(3),PYA22(3),PEPSILON1(3),PSCALEFAC1(2),PSCALEFAC2(2), &
125:      &                     PEPSILONATTR(2),PSIGMAATTR(2), PYOVERLAPTHRESH, LJSITECOORDS(3), LJGSITESIGMA, LJGSITEEPS, &124:      &                     PEPSILONATTR(2),PSIGMAATTR(2), PYOVERLAPTHRESH, LJSITECOORDS(3), LJGSITESIGMA, LJGSITEEPS, &
126:      &                     PYLOCALSTEP(2),PYCFTHRESH,PYGRAVITYC1,PYGRAVITYC2,PERCCUT125:      &                     PYLOCALSTEP(2),PYCFTHRESH,PYGRAVITYC1,PYGRAVITYC2,PERCCUT
127:  126:  
128:       DOUBLE PRECISION, ALLOCATABLE :: PYADDEPS(:,:)127:       DOUBLE PRECISION, ALLOCATABLE :: PYADDEPS(:,:)
129:       DOUBLE PRECISION, ALLOCATABLE :: SHIFTL(:)128:       DOUBLE PRECISION, ALLOCATABLE :: SHIFTL(:)
130:       LOGICAL, ALLOCATABLE :: uniaxarray(:)129:       LOGICAL, ALLOCATABLE :: uniaxarray(:)
131:       DOUBLE PRECISION, ALLOCATABLE :: PYADDREP(:,:), PYADDATT(:,:)130:       DOUBLE PRECISION, ALLOCATABLE :: PYADDREP(:,:), PYADDATT(:,:)


r33541/keywords.f 2017-12-02 11:30:13.812397757 +0000 r33540/keywords.f 2017-12-02 11:30:14.496406834 +0000
657:          QCISTOP=.FALSE.657:          QCISTOP=.FALSE.
658:          QCIRESETINT1=300658:          QCIRESETINT1=300
659:          QCIRESETINT2=1000659:          QCIRESETINT2=1000
660:          QCIADDACIDT=.FALSE.660:          QCIADDACIDT=.FALSE.
661:          QCITRILAT=.FALSE.661:          QCITRILAT=.FALSE.
662:          QCIADDREPCUT=1.0D0662:          QCIADDREPCUT=1.0D0
663:          QCIADDREPEPS=1.0D0663:          QCIADDREPEPS=1.0D0
664:          QCINOREPINT=.FALSE.664:          QCINOREPINT=.FALSE.
665:          QCIINTREPMINSEP=20665:          QCIINTREPMINSEP=20
666:          QCIKADJUSTFRQ=0666:          QCIKADJUSTFRQ=0
667:          QCIKINTMAX=1.0D2 
668:          QCIKINTMIN=1.0D-2 
669:          QCIKADJUSTTOL=10.0D0667:          QCIKADJUSTTOL=10.0D0
670:          KADJUSTFRAC=1.05D0668:          KADJUSTFRAC=1.05D0
671:          MAXNACTIVE=0669:          MAXNACTIVE=0
672: 670: 
673:          FREEZETOL=1.0D-3671:          FREEZETOL=1.0D-3
674:          FLATTESTT=.FALSE.672:          FLATTESTT=.FALSE.
675:          FLATEDIFF=1.0D-6673:          FLATEDIFF=1.0D-6
676:          QCIPERMCHECK=.FALSE.674:          QCIPERMCHECK=.FALSE.
677:          QCIPERMCHECKINT=100675:          QCIPERMCHECKINT=100
678:          INTCONSTRAINTT=.FALSE.676:          INTCONSTRAINTT=.FALSE.


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0