From c5df6ac686a7a914a34ebbe9b56505e65a514a13 Mon Sep 17 00:00:00 2001 From: QuanSheng Wu Date: Wed, 20 Sep 2017 15:02:57 +0200 Subject: [PATCH] update --- soc/ek_bulk2D.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/soc/ek_bulk2D.f90 b/soc/ek_bulk2D.f90 index 07fc3663..c79d703c 100644 --- a/soc/ek_bulk2D.f90 +++ b/soc/ek_bulk2D.f90 @@ -106,7 +106,7 @@ subroutine ek_bulk_plane outfileindex= outfileindex+ 1 if (cpuid==0)then open(unit=outfileindex, file='bulkek_plane.dat') - write(outfileindex, '(1000a19)')'# kx', 'ky', 'kz', 'k1', 'k2', & + write(outfileindex, '(1000a19)')'# kx', 'ky', 'kz', 'k1', 'k2', 'k3', & 'E(Numoccupied-1)', 'E(Numoccupied)' , 'E(Numoccupied+1)', 'E(Numoccupied+2)' do ik=1, knv3 write(outfileindex, '(1000f19.9)')kxy_shape(:, ik), & @@ -120,7 +120,7 @@ subroutine ek_bulk_plane outfileindex= outfileindex+ 1 if (cpuid==0)then open(unit=outfileindex, file='bulkek_plane-matlab.dat') - write(outfileindex, '(1000a19)')'% kx', 'ky', 'kz', 'k1', 'k2', & + write(outfileindex, '(1000a19)')'% kx', 'ky', 'kz', 'k1', 'k2', 'k3', & 'E(Numoccupied-1)', 'E(Numoccupied)' , 'E(Numoccupied+1)', 'E(Numoccupied+2)' do ik=1, knv3 write(outfileindex, '(1000f19.9)')kxy_shape(:, ik), &