← Back to branch summary

~nickpapior/siesta/tddft-work

« back to all changes in this revision

Viewing changes to Util/TS/TBtrans/tbt_init.F90

  • Committer: Rafi Ullah
  • Date: 2017-09-27 12:02:36 UTC
  • mfrom: (611.1.22 trunk)
  • Revision ID: rraffiu@gmail.com-20170927120236-68zal54nt0bu1jxp
Merged with trunk-633

Show diffs side-by-side

added added

removed removed

Lines of Context:
Util/TS/TBtrans/tbt_init.F90
52
52
  use m_tbt_gf
53
53
  use m_tbt_save
54
54
  use m_tbt_proj
55
 
#ifdef NCDF_4
56
 
  use m_tbt_dH, only : init_dH_options
57
 
#endif
58
55
 
59
56
  use m_sparsity_handling
60
57
 
213
210
 
214
211
  ! Read remaining options
215
212
  call read_tbt_after_Elec(TSHS%nspin, TSHS%cell, TSHS%na_u, TSHS%lasto, &
216
 
       TSHS%xa, kscell, kdispl)
 
213
       TSHS%xa, TSHS%no_u, kscell, kdispl)
217
214
 
218
215
  ! Print options
219
216
  call print_tbt_options( TSHS%nspin )