← Back to branch summary

~nickpapior/siesta/tddft-work

« back to all changes in this revision

Viewing changes to Util/TS/TBtrans/m_tbt_gf.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:
Util/TS/TBtrans/m_tbt_gf.F90
98
98
    NEn = N_TBT_E()
99
99
    allocate(ce(NEn))
100
100
    iE = 0
101
 
    do i = 1 , N_TBT_E()
 
101
    do i = 1 , NEn
102
102
       c = tbt_E(i)
103
103
       ! We ensure to add the complex imaginary value
104
104
#ifdef TBT_PHONON