scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

I don't like to have two different routines with the same name (weights), 

even if one of the two is hidden inside a module


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@10748 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2014-02-21 08:49:17 +00:00
parent eeed3bc77f
commit 482c3dfe55
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
PW/src/paw_init.f90
View File

@ -434,7 +434,7 @@ SUBROUTINE PAW_rad_init(l, ls, rad)
n = (rad%lmax+2)/2
ALLOCATE(x(n),w(n))
! compute weights for theta integration
CALL weights(x,w,n)
CALL gauss_weights(x,w,n)
! number of integration directions
rad%nx = n*nphi !(rad%lmax+1)
@ -531,7 +531,7 @@ SUBROUTINE PAW_rad_init(l, ls, rad)
CONTAINS
! Computes weights for gaussian integrals,
! from numerical recipes
SUBROUTINE weights(x,w,n)
SUBROUTINE gauss_weights(x,w,n)
USE constants, ONLY : pi, eps => eps12
implicit none
integer :: n, i,j,m
@ -559,7 +559,7 @@ SUBROUTINE PAW_rad_init(l, ls, rad)
w(n+1-i) = w(i)
end do
END SUBROUTINE weights
END SUBROUTINE gauss_weights
END SUBROUTINE PAW_rad_init
END MODULE paw_init