Skip to content

Commit

Permalink
update
Browse files Browse the repository at this point in the history
  • Loading branch information
quanshengwu committed May 1, 2018
1 parent 989280a commit 7636e68
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion soc/sigma_AHC.f90
Original file line number Diff line number Diff line change
Expand Up @@ -195,7 +195,7 @@ subroutine sigma_AHC
outfileindex= outfileindex+ 1
if (cpuid.eq.0) then
open(unit=outfileindex, file='sigma_ahe.txt')
write(outfileindex, '("#",20a16)')'Conductivity in unit of (Ohm*cm)^-1'
write(outfileindex, '("#",a)')'Conductivity in unit of (Ohm*cm)^-1'
write(outfileindex, '("#",20a16)')'E(eV)', 'xx', 'xy', 'xz', 'yx', 'yy', 'yz', 'zx', 'zy','zz'
do ie=1, OmegaNum
write(outfileindex, '(200f16.8)')energy(ie), ((sigma_tensor_ahc(i, j, ie), i=1, 3), j=1, 3)
Expand Down

0 comments on commit 7636e68

Please sign in to comment.