hdiff output

r32884/fetchz.f 2017-06-30 10:30:12.519029344 +0100 r32883/fetchz.f 2017-06-30 10:30:12.835033553 +0100
1832:          ELSE1832:          ELSE
1833:             WRITE(*,'(A,I8)')' fetchz> number of order parameters and derivatives to be printed=',NORDER1833:             WRITE(*,'(A,I8)')' fetchz> number of order parameters and derivatives to be printed=',NORDER
1834:             DO J1=1,NORDER1834:             DO J1=1,NORDER
1835:                WRITE(*,'(A,A,I8)')' fetchz> order parameter and additional info=',WHICHORDER(J1),ORDERNUM(J1)1835:                WRITE(*,'(A,A,I8)')' fetchz> order parameter and additional info=',WHICHORDER(J1),ORDERNUM(J1)
1836:             ENDDO1836:             ENDDO
1837:          ENDIF1837:          ENDIF
1838:       ENDIF1838:       ENDIF
1839:       IF (NEBT.OR.NEWNEBT) WRITE(*,'(A,F12.4)') ' fetchz> Extra (d)neb steps allowed if the (d)neb energy is > lowest value times ',1839:       IF (NEBT.OR.NEWNEBT) WRITE(*,'(A,F12.4)') ' fetchz> Extra (d)neb steps allowed if the (d)neb energy is > lowest value times ',
1840:      &                                          DNEBEFRAC1840:      &                                          DNEBEFRAC
1841:       IF (BFGSMINT.OR.BFGSTST) THEN1841:       IF (BFGSMINT.OR.BFGSTST) THEN
1842:          IF (GMAX.NE.CONVR) THEN1842:          IF (GMAX.GT.CONVR) THEN
1843:             CONVR=MIN(CONVR,GMAX)1843:             CONVR=GMAX
1844:             GMAX=MIN(CONVR,GMAX)1844:             WRITE(*,'(A)') ' fetchz> RMS convergence reset to the LBFGS convergence limit'
1845:             WRITE(*,'(A,G20.10,A)') ' fetchz> RMS convergence reset to ',GMAX,' for LBFGS and EF phases for consistency' 
1846:          ENDIF1845:          ENDIF
1847:          WRITE(*,'(A,G15.8,A,I8)') 1846:          WRITE(*,'(A,G15.8,A,I8)') 
1848:      1           ' fetchz> Convergence criterion for LBFGS optimization: RMS force<',GMAX,' maximum steps=',BFGSSTEPS1847:      1           ' fetchz> Convergence criterion for LBFGS optimization: RMS force<',GMAX,' maximum steps=',BFGSSTEPS
1849:          WRITE(*,'(A,G20.10)') ' fetchz> Maximum energy rise in LBFGS minimization=',MAXERISE1848:          WRITE(*,'(A,G20.10)') ' fetchz> Maximum energy rise in LBFGS minimization=',MAXERISE
1850:          WRITE(*,'(A,I8)') ' fetchz> Number of updates in LBFGS= ',MUPDATE1849:          WRITE(*,'(A,I8)') ' fetchz> Number of updates in LBFGS= ',MUPDATE
1851:          IF (BFGSTST) WRITE(*,'(A,I4)') ' fetchz> Number of updates in XLBFGS=',XMUPDATE1850:          IF (BFGSTST) WRITE(*,'(A,I4)') ' fetchz> Number of updates in XLBFGS=',XMUPDATE
1852:          WRITE(*,'(A,I4)') ' fetchz> Number of updates in mind=',MMUPDATE1851:          WRITE(*,'(A,I4)') ' fetchz> Number of updates in mind=',MMUPDATE
1853: 1852: 
1854:          IF (NEBT.OR.NEWNEBT) WRITE(*,'(A,I4)') ' fetchz> Number of updates in neb=',NEBMUPDATE1853:          IF (NEBT.OR.NEWNEBT) WRITE(*,'(A,I4)') ' fetchz> Number of updates in neb=',NEBMUPDATE
1855:          IF (INTCONSTRAINTT.OR.INTLJT) WRITE(*,'(A,I4)') ' fetchz> Number of updates in qci=',INTMUPDATE1854:          IF (INTCONSTRAINTT.OR.INTLJT) WRITE(*,'(A,I4)') ' fetchz> Number of updates in qci=',INTMUPDATE


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0