10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-23 04:43:50 +01:00

Reduce stack size

This commit is contained in:
Anthony Scemama 2015-06-22 09:41:31 +02:00
parent 9548cf14d4
commit 50efbb349f

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