Commit 7ae82272 authored by Daniel Wortmann's avatar Daniel Wortmann

Small cleanups

parent 748c2cf3
......@@ -649,7 +649,7 @@
rkpt = modulo1(rkpt,kpts%nkpt3)
g = nint(rkpthlp-rkpt)
!#ifdef CPP_DEBUG
#ifdef CPP_DEBUG
!test
nrkpt=0
DO i=1,kpts%nkptf
......@@ -666,7 +666,7 @@
STOP 'bra_trafo2: rotation failed'
ENDIF
!#endif
#endif
! Define pointer to first mixed-basis functions (with m = -l)
i = 0
......
......@@ -581,10 +581,6 @@
CALL timestop("Iteration")
!+t3e
ENDIF ! mpi%irank.EQ.0
! hybrid functionals - ddist is needed on all processes
# ifdef CPP_MPI
CALL MPI_BCAST(hybrid%ddist,dimension%jspd,MPI_REAL8,0,mpi%mpi_comm,ierr)
# endif
!--- J<
ELSE
......
......@@ -648,7 +648,7 @@
hybrid%tolerance1=0.0001
hybrid%ewaldlambda=3
hybrid%lexp=16
hybrid%bands1=64
hybrid%bands1=80
hybrid%lcutm1=4
hybrid%select1(1,:)=4
......
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