Commit 4116ecb8 authored by Daniel Wortmann's avatar Daniel Wortmann

Fixed initialization

parent a640aae8
......@@ -107,6 +107,7 @@ CONTAINS
this%nop = xml%GetNumberOfNodes('/fleurInput/calculationSetup/symmetryOperations/symOp')
this%nop2=this%nop !might be changed later in film case
ALLOCATE(this%mrot(3,3,this%nop))
ALLOCATE(this%tau(3,this%nop))
......@@ -291,8 +292,6 @@ CONTAINS
n = n + 1
ENDIF
ENDDO
ELSE !film
sym%nop2 = 0
ENDIF
......
......@@ -120,8 +120,8 @@ MODULE m_make_stars
! Set up pointer for backtransformation from g-vector in positive
! domain of carge density fftibox into stars
CALL prp_qfft_map(stars,sym,input,stars%igq2_fft,stars%igq_fft)
CALL prp_qfft(stars,cell,noco,input)
CALL prp_qfft_map(stars,sym,input,stars%igq2_fft,stars%igq_fft)
CALL timestop("strgn")
......
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