← Back to branch summary

~jose-soler/siesta/unfolding

« back to all changes in this revision

Viewing changes to Util/Unfolding/Src/unfold.F90

  • Committer: Jose M Soler
  • Date: 2018-10-29 19:21:33 UTC
  • Revision ID: jose.soler@uam.es-20181029192133-qm0m8jrt9f28oe8x
Plot line edges

modified:
  Util/Unfolding/Src/plotdos.m
  Util/Unfolding/Src/unfold.F90

Show diffs side-by-side

added added

removed removed

Lines of Context:
Util/Unfolding/Src/unfold.F90
357
357
        call re_alloc( iline,  1,nq+nqline, myName//'iline' )
358
358
        do iq = 1,nqline
359
359
          q(:,nq+iq) = q(:,nq) + (qline-q(:,nq))*iq/nqline
360
 
          iline(nq+iq) = iline(nq)
 
360
          iline(nq+iq) = iline(nq)+1
361
361
        enddo
362
362
        nq = nq+nqline
363
363
      endif