← Back to branch summary

~siesta-ts/siesta/trunk_ts_soc

« back to all changes in this revision

Viewing changes to Src/m_ts_trig.F90

  • Committer: Nick Papior
  • Date: 2018-10-17 09:40:48 UTC
  • mfrom: (560.1.453 4.1)
  • Revision ID: nickpapior@gmail.com-20181017094048-t88zciggq954rlrk
Merged r1013, small changes, one left-over real-space bug

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/m_ts_trig.F90
314
314
    call itt_attach(Sp,cur=ispin)
315
315
    
316
316
    do while ( .not. itt_step(Sp) )
317
 
       
 
317
 
318
318
       call init_DM(sp_dist,sparse_pattern, &
319
319
            n_nzs, DM(:,ispin), EDM(:,ispin), &
320
320
            tsup_sp_uc, Calc_Forces)