LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-23 12:56:14 +01:00
Code Issues Releases Wiki Activity

Reduce stack size

Browse Source
This commit is contained in:
Anthony Scemama 2015-06-22 09:41:31 +02:00
parent 9548cf14d4
commit 50efbb349f
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/QmcChem/pot_ao_pseudo_ints.irp.f
View File

@ -71,8 +71,11 @@ BEGIN_PROVIDER [ double precision, mo_pseudo_grid, (ao_num,-pseudo_lmax:pseudo_l
integer :: n_a(3) integer :: n_a(3)
double precision :: a(3), c(3), g_a double precision :: a(3), c(3), g_a
integer :: i,j,k,l,m,n,p integer :: i,j,k,l,m,n,p
double precision :: r(pseudo_grid_size), dr, Ulc double precision :: dr, Ulc
double precision :: y double precision :: y
double precision, allocatable :: r(:)
allocate (r(pseudo_grid_size))
dr = pseudo_grid_rmax/dble(pseudo_grid_size) dr = pseudo_grid_rmax/dble(pseudo_grid_size)
r(1) = 0.d0 r(1) = 0.d0
@ -95,6 +98,7 @@ BEGIN_PROVIDER [ double precision, mo_pseudo_grid, (ao_num,-pseudo_lmax:pseudo_l
enddo enddo
enddo enddo
enddo enddo
deallocate(r)
END_PROVIDER END_PROVIDER