Commit c948ef73 authored by Matthias Redies's avatar Matthias Redies

initialize gaunt

parent f47ecec7
......@@ -37,6 +37,7 @@
USE m_types_xcpot_inbuild
USE m_mpi_bc_xcpot
USE m_wann_read_inp
use m_gaunt, only: gaunt_init
#ifdef CPP_MPI
USE m_mpi_bc_all, ONLY : mpi_bc_all
......@@ -277,6 +278,7 @@
call MPI_BCAST( input%preconditioning_param, 1, MPI_DOUBLE_PRECISION, 0, mpi%mpi_comm, ierr )
#endif
CALL ylmnorm_init(max(atoms%lmaxd, 2*hybrid%lexp))
CALL gaunt_init(max(atoms%lmaxd+1, 2*hybrid%lexp))
!
!--> determine more dimensions
!
......
......@@ -7,9 +7,9 @@ MODULE m_gaunt
PRIVATE
INTEGER,SAVE :: lmaxdp
REAL,SAVE,ALLOCATABLE::w(:),yr(:,:)
PUBLIC gaunt1,gaunt_init
PUBLIC gaunt1, gaunt_init
CONTAINS
REAL FUNCTION gaunt1(lp,l,ls,mp,m,ms,lmaxd)
FUNCTION gaunt1(lp,l,ls,mp,m,ms,lmaxd)
!*********************************************************************
! gaunt computes the integral of conjg(y(lp,mp))*y(l,m)*y(ls,ms)
! for lp+l+ls .lt. 2*ngntd
......@@ -23,7 +23,8 @@ CONTAINS
!*********************************************************************
USE m_judft
IMPLICIT NONE
INTEGER,INTENT(IN):: l,lp,ls,m,mp,ms,lmaxd
INTEGER,INTENT(IN) :: l,lp,ls,m,mp,ms,lmaxd
REAL :: gaunt1
INTEGER :: i,il,ilp,ils,n
......
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