From 7636e682b570896a34367cdf96e490a50406cb19 Mon Sep 17 00:00:00 2001 From: QuanSheng Wu Date: Wed, 2 May 2018 00:27:06 +0200 Subject: [PATCH] update --- soc/sigma_AHC.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/soc/sigma_AHC.f90 b/soc/sigma_AHC.f90 index 07d17b67..02d756b0 100644 --- a/soc/sigma_AHC.f90 +++ b/soc/sigma_AHC.f90 @@ -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)