9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-11 22:23:31 +01:00

fixed little bug

This commit is contained in:
Barthelemy Pradines LCT 2019-05-31 17:43:05 +02:00
parent 419681278b
commit 4093466b95

View File

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