Fix bug in Jastrow
This commit is contained in:
parent
8806aee2bd
commit
c7599febfb
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue