mirror of
https://github.com/pfloos/quack
synced 2024-06-20 12:12:15 +02:00
21 lines
440 B
Fortran
21 lines
440 B
Fortran
function electron_number(nGrid,w,rho) result(nEl)
|
|
|
|
! Compute the number of electrons via integration of the one-electron density
|
|
|
|
implicit none
|
|
include 'parameters.h'
|
|
|
|
! Input variables
|
|
|
|
integer,intent(in) :: nGrid
|
|
double precision,intent(in) :: w(nGrid)
|
|
double precision,intent(in) :: rho(nGrid)
|
|
|
|
! Output variables
|
|
|
|
double precision :: nEl
|
|
|
|
nEl = dot_product(w,rho)
|
|
|
|
end function electron_number
|