← Back to branch summary

~siesta-ts/siesta/trunk_ts_soc

« back to all changes in this revision

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

  • Committer: Nils Wittemeier
  • Date: 2019-02-14 07:45:07 UTC
  • mfrom: (746.1.15 trunk)
  • Revision ID: nils@4wittemeier.de-20190214074507-1mvzbmj9kw19gllr
Merged trunk 761

Show diffs side-by-side

added added

removed removed

Lines of Context:
Util/TS/TBtrans/m_tbt_regions.F90
1
1
! ---
2
 
! Copyright (C) 1996-2016       The SIESTA group
 
2
! Copyright (C) 1996-2016       The SIESTA group
3
3
!  This file is distributed under the terms of the
4
4
!  GNU General Public License: see COPYING in the top directory
5
5
!  or http://www.gnu.org/copyleft/gpl.txt .
328
328
         i = Elecs(iEl)%pvt(1)
329
329
         call Sp_remove_crossterms(dit,sp,nsc,isc_off, i, sp, r = r_tmp2)
330
330
         i = Elecs(iEl)%pvt(2)
 
331
       case ( 7 ) ! A-B-C
 
332
         i = Elecs(iEl)%pvt(1)
 
333
         call Sp_remove_crossterms(dit,sp,nsc,isc_off, i, sp, r = r_tmp2)
 
334
         i = Elecs(iEl)%pvt(2)
 
335
         call Sp_remove_crossterms(dit,sp,nsc,isc_off, i, sp, r = r_tmp2)
 
336
         i = Elecs(iEl)%pvt(3)
331
337
       case default
332
338
         i = Elecs(iEl)%pvt(Elecs(iEl)%t_dir)
333
339
       end select