Correct allocation in case of restart and bug in electron_si constant.

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@12911 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
sponce 2016-09-04 12:01:09 +00:00
parent 21cb39abe3
commit cf38502236
2 changed files with 3 additions and 1 deletions

View File

@ -45,7 +45,7 @@
REAL(DP), PARAMETER :: mev2ps = 0.6582119514 ! 1000/((1/hbar)*1e-12)
REAL(DP), PARAMETER :: mev2invps = 1.0 / meV2ps
REAL(DP), PARAMETER :: kb = 8.6173324d-05 ! eV/K
REAL(DP), PARAMETER :: electron_si = 1.602176487d-1
REAL(DP), PARAMETER :: electron_SI = 1.602176487d-19
REAL(DP), PARAMETER :: hbar = 6.582119514E-16 ! eV*s
REAL(DP), PARAMETER :: hbarJ = 1.054571800E-34 ! J*s
!

View File

@ -498,6 +498,8 @@
INTEGER :: itemp
!! Counter on temperature
!
ALLOCATE( transp_temp(nstemp) )
!
transp_temp(:) = zero
! In case of scattering calculation
IF ( scattering ) THEN