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:
parent
419681278b
commit
4093466b95
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user