mirror of
https://github.com/LCPQ/quantum_package
synced 2024-09-27 03:51:01 +02:00
Merge branch 'toto' of github.com:eginer/quantum_package
This commit is contained in:
commit
fedca82f17
@ -86,7 +86,7 @@ The following packages are supported by the :command:`configure` installer:
|
||||
* irpf90
|
||||
* zeromq
|
||||
* f77zmq ( :math:`\approx` 3 minutes)
|
||||
* ocaml
|
||||
* ocaml ( :math:`\approx` 9 minutes)
|
||||
* ezfio
|
||||
* emsl
|
||||
* docopt
|
||||
|
@ -39,7 +39,7 @@ subroutine example_becke_numerical_grid
|
||||
double precision :: distance, f_r
|
||||
! you compute the function to be integrated
|
||||
distance = dsqrt( (r(1) - center(1))**2 + (r(2) - center(2))**2 + (r(3) - center(3))**2 )
|
||||
f_r = dexp(-alpha * distance)
|
||||
f_r = dexp(-alpha * distance*distance)
|
||||
! you add the contribution of the grid point to the integral
|
||||
integral_1 += f_r * weight
|
||||
enddo
|
||||
@ -60,7 +60,7 @@ subroutine example_becke_numerical_grid
|
||||
r(3) = grid_points_per_atom(3,k,j,i)
|
||||
weight = final_weight_at_r(k,j,i)
|
||||
distance = dsqrt( (r(1) - center(1))**2 + (r(2) - center(2))**2 + (r(3) - center(3))**2 )
|
||||
f_r = dexp(-alpha * distance)
|
||||
f_r = dexp(-alpha * distance*distance)
|
||||
integral_2 += f_r * weight
|
||||
enddo
|
||||
enddo
|
||||
|
Loading…
Reference in New Issue
Block a user