← Back to branch summary

~siesta-ts/siesta/trunk_ts_soc

« back to all changes in this revision

Viewing changes to Src/m_iterator.f90

  • Committer: Nils Wittemeier
  • Date: 2018-11-26 13:48:50 UTC
  • Revision ID: nils@4wittemeier.de-20181126134850-wlyiubv2h3d2jbo0
Adapted create_Green to handle nc spin/spin orbit

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/m_iterator.f90
363
363
       fs = ( this%it1%cur > this%it1%start ) 
364
364
    end if
365
365
    if ( fs ) call sitt_step(this%it1)
366
 
    ! try to step the outermost loop
 
366
    ! try to step the innermost loop
367
367
    call sitt_step(this%it2)
368
368
    if ( itt_done(this%it2) ) then
369
369
       if ( .not. fs ) &
381
381
 
382
382
    if ( itt_done(this) ) then
383
383
       ! if we are done after a step
384
 
       ! it must meen that every loop is done
 
384
       ! it must mean that every loop is done
385
385
       ! we immediately set everything to the end-value
386
386
       ! to ensure that a step will not be caught
387
387
       call itt_end(this)
533
533
       fs = ( this%it1%cur > this%it1%start ) 
534
534
    end if
535
535
    if ( fs ) call sitt_step(this%it1)
536
 
    ! try to step the outermost loop
 
536
    ! try to step the innermost loop
537
537
    call sitt_step(this%it2)
538
538
    if ( itt_done(this%it2) ) then
539
539
       if ( .not. fs ) &
707
707
       fs = ( this%it1%it1%cur > this%it1%it1%start ) 
708
708
    end if
709
709
    if ( fs ) call sitt_step(this%it1)
710
 
    ! try to step the outermost loop
 
710
    ! try to step the innermost loop
711
711
    call sitt_step(this%it3)
712
712
    if ( itt_done(this%it3) ) then
713
713
       if ( .not. fs ) &
892
892
       fs = ( this%it1%it1%cur > this%it1%it1%start ) 
893
893
    end if
894
894
    if ( fs ) call sitt_step(this%it1)
895
 
    ! try to step the outermost loop
 
895
    ! try to step the innermost loop
896
896
    call sitt_step(this%it3)
897
897
    if ( itt_done(this%it3) ) then
898
898
       if ( .not. fs ) &