LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 03:23:29 +01:00
Code Releases Activity

fixed little bug

Browse Source
This commit is contained in:
Barthelemy Pradines LCT 2019-05-31 17:43:05 +02:00
parent 419681278b
commit 4093466b95
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/becke_numerical_grid/grid_becke_vector.irp.f
View File

@ -6,7 +6,6 @@ BEGIN_PROVIDER [integer, n_points_final_grid]
END_DOC END_DOC
integer :: i,j,k,l integer :: i,j,k,l
n_points_final_grid = 0 n_points_final_grid = 0
print*,'tresh_grid = ',tresh_grid
do j = 1, nucl_num do j = 1, nucl_num
do i = 1, n_points_radial_grid -1 do i = 1, n_points_radial_grid -1
do k = 1, n_points_integration_angular do k = 1, n_points_integration_angular
@ -38,7 +37,6 @@ END_PROVIDER
integer :: i,j,k,l,i_count integer :: i,j,k,l,i_count
double precision :: r(3) double precision :: r(3)
i_count = 0 i_count = 0
print*,'tresh_grid = ',tresh_grid
do j = 1, nucl_num do j = 1, nucl_num
do i = 1, n_points_radial_grid -1 do i = 1, n_points_radial_grid -1
do k = 1, n_points_integration_angular do k = 1, n_points_integration_angular