Commit a7ccaca7 authored by Matthias Redies's avatar Matthias Redies

remove intent(out) from symm_hf

parent 885400ce
......@@ -102,10 +102,11 @@ CONTAINS
! - arrays -
INTEGER, INTENT(IN) :: rrot(:,:,:)
INTEGER, INTENT(IN) :: psym(:)
INTEGER, INTENT(OUT) :: parent(kpts%nkptf)
INTEGER, INTENT(OUT) :: nsest(hybdat%nbands(nk)), indx_sest(hybdat%nbands(nk), hybdat%nbands(nk))
INTEGER, ALLOCATABLE, INTENT(OUT) :: pointer_EIBZ(:)
INTEGER, ALLOCATABLE, INTENT(OUT) :: n_q(:)
INTEGER, INTENT(INOUT) :: parent(kpts%nkptf)
INTEGER, INTENT(INOUT) :: nsest(hybdat%nbands(nk))
INTEGER, INTENT(INOUT) :: indx_sest(hybdat%nbands(nk), hybdat%nbands(nk))
INTEGER, ALLOCATABLE, INTENT(INOUT) :: pointer_EIBZ(:)
INTEGER, ALLOCATABLE, INTENT(INOUT) :: n_q(:)
REAL, INTENT(IN) :: eig_irr(:,:)
......@@ -145,6 +146,8 @@ CONTAINS
COMPLEX, ALLOCATABLE :: rep_d(:, :, :)
LOGICAL, ALLOCATABLE :: symequivalent(:, :)
parent = 0; nsest = 0; indx_sest = 0;
WRITE (6, '(A)') new_line('n')//new_line('n')//'### subroutine: symm ###'
! determine extented irreducible BZ of k ( EIBZ(k) ), i.e.
......@@ -197,7 +200,7 @@ CONTAINS
END DO
nkpt_EIBZ = ic
allocate(pointer_EIBZ(nkpt_EIBZ))
allocate(pointer_EIBZ(nkpt_EIBZ), source=0)
ic = 0
DO ikpt = 1, kpts%nkptf
IF (parent(ikpt) == ikpt) THEN
......@@ -210,9 +213,8 @@ CONTAINS
! determine the factor n_q, that means the number of symmetrie operations of the little group of bk(:,nk)
! which keep q (in EIBZ) invariant
allocate(n_q(nkpt_EIBZ))
allocate(n_q(nkpt_EIBZ), source=0)
ic = 0
n_q = 0
DO ikpt = 1, kpts%nkptf
......
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