← Back to branch summary

~nickpapior/siesta/tddft-work

« back to all changes in this revision

Viewing changes to Src/m_ts_trig.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_ts_trig.F90
45
45
       nq, uGF, nspin, na_u, lasto, &
46
46
       sp_dist, sparse_pattern, &
47
47
       no_u, n_nzs, &
48
 
       Hs, Ss, DM, EDM, Ef)
 
48
       Hs, Ss, DM, EDM, Ef, DE_NEGF)
49
49
 
50
50
    use units, only : eV, Pi
51
51
    use parallel, only : Node, Nodes
113
113
    real(dp), intent(in) :: Hs(n_nzs,nspin), Ss(n_nzs)
114
114
    real(dp), intent(inout) :: DM(n_nzs,nspin), EDM(n_nzs,nspin)
115
115
    real(dp), intent(in) :: Ef
 
116
    real(dp), intent(inout) :: DE_NEGF
116
117
 
117
118
! ******************* Computational arrays *******************
118
119
    integer :: ndwork, nzwork, n_s
582
583
            spEDM=spEDM,  spuEDM=spuEDM, E_dim2=N_mu)
583
584
       
584
585
       call weight_DM( N_Elec, Elecs, N_mu, mus, na_u, lasto, &
585
 
            spDM, spDMneq, spEDM, n_s, sc_off)
 
586
            sp_dist, sparse_pattern, Ss, &
 
587
            spDM, spDMneq, spEDM, n_s, sc_off, DE_NEGF)
586
588
       
587
589
       call update_DM(sp_dist,sparse_pattern, n_nzs, &
588
590
            DM(:,ispin), spDM, Ef=Ef, &