Skip to content

Commit

Permalink
update
Browse files Browse the repository at this point in the history
  • Loading branch information
quanshengwu committed Sep 20, 2017
1 parent 4334b54 commit c5df6ac
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions soc/ek_bulk2D.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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), &
Expand All @@ -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), &
Expand Down

0 comments on commit c5df6ac

Please sign in to comment.