hdiff output

r30774/fetchz.f 2016-07-13 21:30:05.260627933 +0100 r30773/fetchz.f 2016-07-13 21:30:05.508631252 +0100
145:      2        ', smallest eigenvector=',HMNEVS,' convergence at ',HMCEIG,'%'145:      2        ', smallest eigenvector=',HMNEVS,' convergence at ',HMCEIG,'%'
146:          ENDIF146:          ENDIF
147:       ENDIF147:       ENDIF
148: 148: 
149:       IF (BFGSMINT.AND.(.NOT.BFGSTST)) THEN149:       IF (BFGSMINT.AND.(.NOT.BFGSTST)) THEN
150:          WRITE(*,'(A,I8)') ' fetchz> LBFGS minimization, maximum steps=',BFGSSTEPS150:          WRITE(*,'(A,I8)') ' fetchz> LBFGS minimization, maximum steps=',BFGSSTEPS
151:       ELSE IF (BFGSTST) THEN151:       ELSE IF (BFGSTST) THEN
152:          IF (BFGSSTEP.AND.(.NOT.HYBRIDMINT)) THEN152:          IF (BFGSSTEP.AND.(.NOT.HYBRIDMINT)) THEN
153:             WRITE(*,'(A)') ' fetchz> One EF step will be taken before BFGS minimization'153:             WRITE(*,'(A)') ' fetchz> One EF step will be taken before BFGS minimization'
154:          ELSE154:          ELSE
155:             WRITE(*,'(A,I6)') ' fetchz> Hybrid EF/BFGS transition state search, maximum steps=',NSTEPS155:             WRITE(*,'(A,I4)') ' fetchz> Hybrid EF/BFGS transition state search, maximum steps=',NSTEPS
156:             WRITE(*,'(A,I4,A,I4,A,F12.6)') '         maximum tangent space steps=',NBFGSMAX1, 156:             WRITE(*,'(A,I4,A,I4,A,F12.6)') '         maximum tangent space steps=',NBFGSMAX1, 
157:      &                               ' or ',NBFGSMAX2,' when overlap is better than ',1.0D0-BFGSTSTOL157:      &                               ' or ',NBFGSMAX2,' when overlap is better than ',1.0D0-BFGSTSTOL
158:             IF (MODEDOWNT) THEN158:             IF (MODEDOWNT) THEN
159:                WRITE(*,'(A,I4,A,I4,A)') ' fetchz> Downhill mode is ',IVEC,' for initial step and ',IVEC2,' after that'159:                WRITE(*,'(A,I4,A,I4,A)') ' fetchz> Downhill mode is ',IVEC,' for initial step and ',IVEC2,' after that'
160:             ELSE160:             ELSE
161:                WRITE(*,'(A,I4,A,I4,A)') ' fetchz> Uphill mode is ',IVEC,' for initial step and ',IVEC2,' after that'161:                WRITE(*,'(A,I4,A,I4,A)') ' fetchz> Uphill mode is ',IVEC,' for initial step and ',IVEC2,' after that'
162:             ENDIF162:             ENDIF
163:          ENDIF163:          ENDIF
164:          IF (.NOT.(READV.AND.BFGSSTEP)) THEN164:          IF (.NOT.(READV.AND.BFGSSTEP)) THEN
165:             IF (NOHESS) THEN165:             IF (NOHESS) THEN
1504: C           WRITE(*,'(A,F15.6,A,F15.6,A,F15.6)') ' fetchz> n=',NN,' m=',MM,' eps=',PARAM1,' c=',PARAM2,' sigma=',PARAM31504: C           WRITE(*,'(A,F15.6,A,F15.6,A,F15.6)') ' fetchz> n=',NN,' m=',MM,' eps=',PARAM1,' c=',PARAM2,' sigma=',PARAM3
1505:             WRITE(*,'(A,F15.8,A,F15.8,A,F15.8,A,F15.8)') 1505:             WRITE(*,'(A,F15.8,A,F15.8,A,F15.8,A,F15.8)') 
1506:      1       ' fetchz> Box lengths: x ',PARAM1,', y ',PARAM2,', z ',PARAM3,', cutoff ',PARAM41506:      1       ' fetchz> Box lengths: x ',PARAM1,', y ',PARAM2,', z ',PARAM3,', cutoff ',PARAM4
1507:          ELSE IF (ZSYM(NATOMS).EQ.'PR') THEN1507:          ELSE IF (ZSYM(NATOMS).EQ.'PR') THEN
1508:             WRITE(*,'(A,I4,A,I4,A)') 1508:             WRITE(*,'(A,I4,A,I4,A)') 
1509:      1       ' fetchz> ',NOPT,' Cartesian coordinates will be optimised for ',NATOMS,' Pacheco-Ramalho C60 molecules'1509:      1       ' fetchz> ',NOPT,' Cartesian coordinates will be optimised for ',NATOMS,' Pacheco-Ramalho C60 molecules'
1510:          ELSE IF (ZSYM(NATOMS).EQ.'C6') THEN1510:          ELSE IF (ZSYM(NATOMS).EQ.'C6') THEN
1511:             WRITE(*,'(A,I4,A,I4,A)') 1511:             WRITE(*,'(A,I4,A,I4,A)') 
1512:      1       ' fetchz> ',NOPT,' Cartesian coordinates will be optimised for ',NATOMS,' Girifalco C60 molecules'1512:      1       ' fetchz> ',NOPT,' Cartesian coordinates will be optimised for ',NATOMS,' Girifalco C60 molecules'
1513:          ELSE IF ( ZSYM(NATOMS).EQ.'SB') THEN1513:          ELSE IF ( ZSYM(NATOMS).EQ.'SB') THEN
1514:             WRITE(*,'(A,I6,A,I5,A)')1514:             WRITE(*,'(A,I4,A,I4,A)')
1515:      1       ' SYSTEM ',NOPT,' Cartesian coordinates will be optimised for ',NATOMS,' SBM sites'1515:      1       ' SYSTEM ',NOPT,' Cartesian coordinates will be optimised for ',NATOMS,' SBM sites'
1516:          ELSE IF (ZSYM(NATOMS).EQ.'P6') THEN1516:          ELSE IF (ZSYM(NATOMS).EQ.'P6') THEN
1517:             WRITE(*,'(A,I4,A,I4,A)') 1517:             WRITE(*,'(A,I4,A,I4,A)') 
1518:      1       ' fetchz> ',NOPT,' Cartesian coordinates will be optimised for ',NATOMS,' Girifalco C60 molecules'1518:      1       ' fetchz> ',NOPT,' Cartesian coordinates will be optimised for ',NATOMS,' Girifalco C60 molecules'
1519:             WRITE(*,'(A,F15.8,A,F15.8,A,F15.8,A,F15.8)') 1519:             WRITE(*,'(A,F15.8,A,F15.8,A,F15.8,A,F15.8)') 
1520:      1       ' fetchz> Box lengths: x ',PARAM1,', y ',PARAM2,', z ',PARAM3,', cutoff ',PARAM41520:      1       ' fetchz> Box lengths: x ',PARAM1,', y ',PARAM2,', z ',PARAM3,', cutoff ',PARAM4
1521:          ELSE IF (ZSYM(NATOMS).EQ.'FH') THEN1521:          ELSE IF (ZSYM(NATOMS).EQ.'FH') THEN
1522:             WRITE(*,'(A,I4,A,I4,A)') ' fetchz> ',NOPT,' Cartesian coordinates will be optimised for ',NATOMS,' Fenske-Hall atoms'1522:             WRITE(*,'(A,I4,A,I4,A)') ' fetchz> ',NOPT,' Cartesian coordinates will be optimised for ',NATOMS,' Fenske-Hall atoms'
1523:          ELSE IF (ZSYM(NATOMS)(1:1).EQ.'W') THEN1523:          ELSE IF (ZSYM(NATOMS)(1:1).EQ.'W') THEN
1524:             IF (ZSYM(NATOMS).EQ.'W4') WRITE(*,'(A,I4,A,I4,A)') 1524:             IF (ZSYM(NATOMS).EQ.'W4') WRITE(*,'(A,I4,A,I4,A)') 
1829:             ENDDO1829:             ENDDO
1830:          ENDIF1830:          ENDIF
1831:       ENDIF1831:       ENDIF
1832:       IF (NEBT.OR.NEWNEBT) WRITE(*,'(A,F12.4)') ' fetchz> Extra (d)neb steps allowed if the (d)neb energy is > lowest value times ',1832:       IF (NEBT.OR.NEWNEBT) WRITE(*,'(A,F12.4)') ' fetchz> Extra (d)neb steps allowed if the (d)neb energy is > lowest value times ',
1833:      &                                          DNEBEFRAC1833:      &                                          DNEBEFRAC
1834:       IF (BFGSMINT.OR.BFGSTST) THEN1834:       IF (BFGSMINT.OR.BFGSTST) THEN
1835:          IF (GMAX.GT.CONVR) THEN1835:          IF (GMAX.GT.CONVR) THEN
1836:             CONVR=GMAX1836:             CONVR=GMAX
1837:             WRITE(*,'(A)') ' fetchz> RMS convergence reset to the LBFGS convergence limit'1837:             WRITE(*,'(A)') ' fetchz> RMS convergence reset to the LBFGS convergence limit'
1838:          ENDIF1838:          ENDIF
1839:          WRITE(*,'(A,G15.8,A,I8)') 1839:          WRITE(*,'(A,G15.8,A,I6)') 
1840:      1           ' fetchz> Convergence criterion for LBFGS optimization: RMS force<',GMAX,' maximum steps=',BFGSSTEPS1840:      1           ' fetchz> Convergence criterion for LBFGS optimization: RMS force<',GMAX,' maximum steps=',BFGSSTEPS
1841:          WRITE(*,'(A,G20.10)') ' fetchz> Maximum energy rise in LBFGS minimization=',MAXERISE1841:          WRITE(*,'(A,G20.10)') ' fetchz> Maximum energy rise in LBFGS minimization=',MAXERISE
1842:          WRITE(*,'(A,I8)') ' fetchz> Number of updates in LBFGS= ',MUPDATE1842:          WRITE(*,'(A,I8)') ' fetchz> Number of updates in LBFGS= ',MUPDATE
1843:          IF (BFGSTST) WRITE(*,'(A,I4)') ' fetchz> Number of updates in XLBFGS=',XMUPDATE1843:          IF (BFGSTST) WRITE(*,'(A,I4)') ' fetchz> Number of updates in XLBFGS=',XMUPDATE
1844:          WRITE(*,'(A,I4)') ' fetchz> Number of updates in mind=',MMUPDATE1844:          WRITE(*,'(A,I4)') ' fetchz> Number of updates in mind=',MMUPDATE
1845: 1845: 
1846:          IF (NEBT.OR.NEWNEBT) WRITE(*,'(A,I4)') ' fetchz> Number of updates in neb=',NEBMUPDATE1846:          IF (NEBT.OR.NEWNEBT) WRITE(*,'(A,I4)') ' fetchz> Number of updates in neb=',NEBMUPDATE
1847:          IF (INTCONSTRAINTT.OR.INTLJT) WRITE(*,'(A,I4)') ' fetchz> Number of updates in qci=',INTMUPDATE1847:          IF (INTCONSTRAINTT.OR.INTLJT) WRITE(*,'(A,I4)') ' fetchz> Number of updates in qci=',INTMUPDATE
1848:          IF (GROWSTRINGT) WRITE(*,'(A,I4)') ' fetchz> Number of updates in growing string=',GSUPDATE1848:          IF (GROWSTRINGT) WRITE(*,'(A,I4)') ' fetchz> Number of updates in growing string=',GSUPDATE
1849:          IF (GREATCIRCLET) WRITE(*,'(A,I4)') ' fetchz> Number of updates in great circle=',GCUPDATE1849:          IF (GREATCIRCLET) WRITE(*,'(A,I4)') ' fetchz> Number of updates in great circle=',GCUPDATE


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0