Commit 3ab90e84 authored by Matthias Redies's avatar Matthias Redies

ylm4 supports maxl=0

parent dc08b1dd
......@@ -150,7 +150,7 @@
INTEGER l,lm0,m
REAL fac,x,y,z,xy,r,rxy,cth,sth,cph,sph,cph2
REAL p(0:lmax,0:lmax),c(0:lmax),s(0:lmax)
REAL p(0:lmax,0:lmax),c(0:max(1,lmax)),s(0:max(1,lmax))
COMPLEX ylms
......
......@@ -183,6 +183,7 @@ CONTAINS
CALL MPI_BCAST(atoms%rmsh,atoms%jmtd*atoms%ntype,MPI_DOUBLE_PRECISION,0,mpi%mpi_comm,ierr)
!
CALL MPI_BCAST(kpts%nkpt,1,MPI_INTEGER,0,mpi%mpi_comm,ierr)
CALL MPI_BCAST(kpts%nkptf,1,MPI_INTEGER,0,mpi%mpi_comm,ierr)
CALL MPI_BCAST(kpts%bk,3*kpts%nkpt,MPI_DOUBLE_PRECISION,0,mpi%mpi_comm,ierr)
CALL MPI_BCAST(kpts%wtkpt,kpts%nkpt,MPI_DOUBLE_PRECISION,0,mpi%mpi_comm,ierr)
CALL MPI_BCAST(kpts%ntetra,kpts%ntet,MPI_INTEGER,0,mpi%mpi_comm,ierr)
......
......@@ -21,7 +21,7 @@ MODULE m_types_kpts
REAL,ALLOCATABLE :: bk(:,:)
!(nkpts) weights
REAL,ALLOCATABLE :: wtkpt(:)
INTEGER :: nkptf !<k-vectors in full BZ
INTEGER :: nkptf = 0!<k-vectors in full BZ
INTEGER :: nkpt3(3)
REAL :: kPointDensity(3) ! only used if k point set is defined as density
REAL ,ALLOCATABLE :: bkf(:,:)
......
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