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

Fix bug in Jastrow

Browse Source
This commit is contained in:
Anthony Scemama 2023-10-17 00:28:47 +02:00
parent 8806aee2bd
commit c7599febfb
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/non_h_ints_mu/jast_deriv.irp.f
View File

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