← Back to branch summary

~nickpapior/siesta/tddft-work

« back to all changes in this revision

Viewing changes to Src/m_broyddj.f90

  • Committer: Rafi Ullah
  • Date: 2017-08-30 14:09:10 UTC
  • mfrom: (611.1.19 trunk)
  • Revision ID: rraffiu@gmail.com-20170830140910-bhu0osuh4d59wn8e
Merged with trunk-630

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/m_broyddj.f90
122
122
!  positions), restart
123
123
!
124
124
if (br%it == -1 .or. br%it > br%maxit) then
125
 
    if (br%debug) call message("(Re)starting the Broyden process.")
 
125
    if (br%debug .and. ionode) print *,"(Re)starting the Broyden process."
126
126
    br%it = 0
127
127
    br%dF(1:n,0) = F(1:n)
128
128
    newx(1:n) = x(1:n) + br%jinv0*F(1:n)
272
272
if (br%it > br%maxit) then
273
273
   
274
274
   if (br%cycle_on_maxit) then
275
 
         call message("Cycling the Broyden process...")
 
275
         !call message("Cycling the Broyden process...")
276
276
         br%dFdF(0:maxit-1,0:maxit-1) = br%dFdF(1:maxit,1:maxit)
277
277
         br%w(0:maxit-1) = br%w(1:maxit)
278
278
         br%u(1:n,0:maxit-1) = br%u(1:n,1:maxit)