Merge pull request #290 from giovannipizzi/fix_unused_bnddataunit

Fix an unused variable that was creating a SEGFAULT
wannier-developers · Sep 22, 2019 · 7e02e02 · 7e02e02
2 parents c658e7e + bcb1648
commit 7e02e02
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/src/postw90/kslice.F90 b/src/postw90/kslice.F90
@@ -75,7 +75,6 @@ subroutine k_slice
                          fermi_lines_color, heatmap, plot_shc
     character(len=120) :: filename, square
 
-    integer, allocatable :: bnddataunit(:)
     complex(kind=dp), allocatable :: HH(:, :)
     complex(kind=dp), allocatable :: delHH(:, :, :)
     complex(kind=dp), allocatable :: UU(:, :)
@@ -349,7 +348,6 @@ subroutine k_slice
             n1 = n/100
             n2 = (n - n1*100)/10
             n3 = n - n1*100 - n2*10
-            bnddataunit(n) = io_file_unit()
             filename = trim(seedname)//'-bnd_' &
                        //achar(48 + n1)//achar(48 + n2)//achar(48 + n3)//'.dat'