← 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_kpoint.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_kpoint.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 .
474
474
             select case ( i )
475
475
             case ( 1 )
476
476
                allocate( k3_1(size(tmp3,1),2) )
477
 
                k3_1 = tmp3
 
477
                k3_1(:,:) = tmp3
478
478
             case ( 2 )
479
479
                allocate( k3_2(size(tmp3,1),2) )
480
 
                k3_2 = tmp3
 
480
                k3_2(:,:) = tmp3
481
481
             case ( 3 )
482
482
                allocate( k3_3(size(tmp3,1),2) )
483
 
                k3_3 = tmp3
 
483
                k3_3(:,:) = tmp3
484
484
             end select
485
485
             deallocate(tmp3)
486
486