← Back to branch summary

~siesta-ts/siesta/trunk_ts_soc

« back to all changes in this revision

Viewing changes to Src/m_ts_electype.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_ts_electype.F90
1421
1421
    real(dp), intent(out) :: k2(3)
1422
1422
    ! Whether or not this is an electrode 'output' k-point.
1423
1423
    !  opt ==  1, from device k-point [1/Bohr] to electrode k-point [1/Bohr]
1424
 
    !  opt ==  2, from device k-point [1/Bohr] to electrode k-point [1/b]
 
1424
    !  opt ==  2, from device k-point [1/Bohr] to electrode k-point [b]
1425
1425
    !  opt == -1, from electrode k-point [1/Bohr] to device k-point [1/Bohr]
1426
 
    !  opt == -2, from electrode k-point [1/Bohr] to device  k-point [1/b]
 
1426
    !  opt == -2, from electrode k-point [1/Bohr] to device  k-point [/b]
1427
1427
    integer, intent(in), optional :: opt
1428
1428
    
1429
1429
    ! Local variables
1654
1654
    fN = trim(this%HSfile)
1655
1655
    ! We read in the information
1656
1656
    fL = len_trim(fN)
1657
 
    call ts_read_tshs(fN, &
 
1657
    call ts_read_TSHS(fN, &
1658
1658
         onlyS, Gamma_file, TSGamma, &
1659
1659
         this%cell, nsc, this%na_u, this%no_u, this%nspin,  &
1660
1660
         kscell, kdispl, &