Commit 00e7f072 authored by Gregor Michalicek's avatar Gregor Michalicek

Remove more variables from hybrid/hsfock.F90

The variables removed are only needed inside hybrid/symm_hf.F90.
parent f05cc56d
......@@ -89,8 +89,7 @@ SUBROUTINE hsfock(nk,atoms,hybrid,lapw,dimension,kpts,jsp,input,hybdat,eig_irr,s
INTEGER :: ikpt,ikpt0
INTEGER :: irec
INTEGER :: irecl_olap,irecl_z,irecl_vx
INTEGER :: maxndb, nbasfcn
INTEGER :: nddb
INTEGER :: nbasfcn
INTEGER :: nsymop
INTEGER :: nkpt_EIBZ
INTEGER :: ncstd
......@@ -155,7 +154,7 @@ SUBROUTINE hsfock(nk,atoms,hybrid,lapw,dimension,kpts,jsp,input,hybdat,eig_irr,s
CALL symm_hf_init(sym,kpts,nk,irank2,nsymop,rrot,psym)
CALL symm_hf(kpts,nk,sym,dimension,hybdat,eig_irr,atoms,hybrid,cell,lapw,jsp,mpi,irank2,&
rrot,nsymop,psym,nkpt_EIBZ,n_q,parent,pointer_EIBZ,maxndb,nddb,nsest,indx_sest)
rrot,nsymop,psym,nkpt_EIBZ,n_q,parent,pointer_EIBZ,nsest,indx_sest)
CALL timestop("symm_hf")
! remove weights(wtkpt) in w_iks
......
......@@ -72,7 +72,7 @@ END SUBROUTINE symm_hf_init
SUBROUTINE symm_hf(kpts,nk,sym,dimension,hybdat,eig_irr,atoms,hybrid,cell,&
lapw,jsp,mpi,irank2,rrot,nsymop,psym,nkpt_EIBZ,n_q,parent,&
pointer_EIBZ,maxndb,nddb,nsest,indx_sest)
pointer_EIBZ,nsest,indx_sest)
USE m_constants
USE m_types
......@@ -99,7 +99,6 @@ SUBROUTINE symm_hf(kpts,nk,sym,dimension,hybdat,eig_irr,atoms,hybrid,cell,&
INTEGER,INTENT(IN) :: irank2
INTEGER,INTENT(OUT) :: nkpt_EIBZ
INTEGER,INTENT(IN) :: nsymop
INTEGER,INTENT(OUT) :: maxndb,nddb
! - arrays -
INTEGER,INTENT(IN) :: rrot(3,3,sym%nsym)
......@@ -122,6 +121,7 @@ SUBROUTINE symm_hf(kpts,nk,sym,dimension,hybdat,eig_irr,atoms,hybrid,cell,&
INTEGER :: n1,n2,nn
INTEGER :: ndb,ndb1,ndb2
INTEGER :: nrkpt
INTEGER :: maxndb, nddb
REAL :: tolerance,pi
......
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