Commit 08d880c5 authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfix (removed double allocation)

parent f1cdff37
......@@ -132,7 +132,6 @@ SUBROUTINE initParallelProcesses(atoms,vacuum,input,stars,sliceplot,banddos,&
ALLOCATE(kpts%specialPointNames(kpts%numSpecialPoints))
ALLOCATE(kpts%bk(3,kpts%nkpt))
ALLOCATE(kpts%wtkpt(kpts%nkpt))
ALLOCATE(kpts%wtkpt(kpts%nkpt))
ALLOCATE(kpts%ntetra(4,kpts%ntet))
ALLOCATE(kpts%voltet(kpts%ntet))
......
......@@ -511,7 +511,13 @@ CONTAINS
ENDDO
ENDIF
IF (stars%mx1 .ne. mxx1 .or. stars%mx2 .ne. mxx2) CALL judft_error("BUG in strgn")
IF (stars%mx1< mxx1 .or. stars%mx2< mxx2) then
print *,stars%mx1, mxx1, stars%mx2, mxx2
CALL judft_error("BUG in strgn")
endif
stars%mx1=mxx1
stars%mx2=mxx2
!
!---> write /str0/ and /str1/ to unit 51
!
......
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