9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-07-20 17:53:25 +02:00

Fix bug in Jastrow

This commit is contained in:
Anthony Scemama 2023-10-17 00:28:47 +02:00
parent 8806aee2bd
commit c7599febfb

View File

@ -138,7 +138,7 @@
allocate( gl(2,4,n_points) )
do ipoint_block = 1, n_points_final_grid, 100 ! r1
ipoint_end = min(n_points_final_grid, ipoint_block+100)
ipoint_end = min(n_points_final_grid, ipoint_block+99)
k=0
do ipoint = ipoint_block, ipoint_end
@ -223,8 +223,6 @@
enddo !ipoint_block
deallocate(gl, rij)
else