fixed a bug in dos.f90 reported by X.G Zhu

quanshengwu · Oct 13, 2018 · 1254318 · 1254318
1 parent 12de4fc
commit 1254318
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/soc/dos.f90 b/soc/dos.f90
@@ -324,7 +324,8 @@ subroutine dos_joint_dos
 
    real(dp) :: k(3)
    real(dp), allocatable :: W(:), omega_dos(:), omega_jdos(:)
-   real(dp), allocatable :: dos(:), dos_mpi(:), jdos(:), jdos_mpi(:), Hk(:, :)
+   real(dp), allocatable :: dos(:), dos_mpi(:), jdos(:), jdos_mpi(:)
+   complex(dp), allocatable :: Hk(:, :)
 
    !> fermi distribution
    real(dp), allocatable :: fermi_dis(:)