Commit 98ec775a authored by Gregor Michalicek's avatar Gregor Michalicek

Remove 'obsolete' from fermi/fermie.F90

parent c3b3f29a
......@@ -7,8 +7,7 @@ MODULE m_fermie
! or fermi-function p.kurz
!----------------------------------------------------------------------
CONTAINS
SUBROUTINE fermie(eig_id, mpi,kpts,obsolete,&
input, noco,e_min,cell,results)
SUBROUTINE fermie(eig_id,mpi,kpts,input,noco,e_min,cell,results)
!---------------------------------------------------f--------------------
!
......@@ -39,13 +38,12 @@ CONTAINS
USE m_types
USE m_xmlOutput
IMPLICIT NONE
TYPE(t_results),INTENT(INOUT) :: results
TYPE(t_mpi),INTENT(IN) :: mpi
TYPE(t_obsolete),INTENT(IN) :: obsolete
TYPE(t_input),INTENT(IN) :: input
TYPE(t_noco),INTENT(IN) :: noco
TYPE(t_cell),INTENT(IN) :: cell
TYPE(t_kpts),INTENT(IN) :: kpts
TYPE(t_results), INTENT(INOUT) :: results
TYPE(t_mpi), INTENT(IN) :: mpi
TYPE(t_input), INTENT(IN) :: input
TYPE(t_noco), INTENT(IN) :: noco
TYPE(t_cell), INTENT(IN) :: cell
TYPE(t_kpts), INTENT(IN) :: kpts
! ..
! .. Scalar Arguments ..
INTEGER, INTENT (IN) :: eig_id
......
......@@ -293,12 +293,12 @@ CONTAINS
IF (noco%l_soc.AND.(.NOT.noco%l_noco)) THEN
input%zelec = input%zelec*2
CALL fermie(eig_id,mpi,kpts,obsolete,input,noco,enpara%epara_min,cell,results)
CALL fermie(eig_id,mpi,kpts,input,noco,enpara%epara_min,cell,results)
results%seigscv = results%seigscv/2
results%ts = results%ts/2
input%zelec = input%zelec/2
ELSE
CALL fermie(eig_id,mpi,kpts,obsolete,input,noco,enpara%epara_min,cell,results)
CALL fermie(eig_id,mpi,kpts,input,noco,enpara%epara_min,cell,results)
ENDIF
CALL timestop("determination of fermi energy")
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment