From 50efbb349f1316640ccd32bd66e725663334bd6b Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Mon, 22 Jun 2015 09:41:31 +0200 Subject: [PATCH] Reduce stack size --- src/QmcChem/pot_ao_pseudo_ints.irp.f | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/QmcChem/pot_ao_pseudo_ints.irp.f b/src/QmcChem/pot_ao_pseudo_ints.irp.f index 3b655b00..9ab4ac63 100644 --- a/src/QmcChem/pot_ao_pseudo_ints.irp.f +++ b/src/QmcChem/pot_ao_pseudo_ints.irp.f @@ -71,8 +71,11 @@ BEGIN_PROVIDER [ double precision, mo_pseudo_grid, (ao_num,-pseudo_lmax:pseudo_l integer :: n_a(3) double precision :: a(3), c(3), g_a 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, allocatable :: r(:) + + allocate (r(pseudo_grid_size)) dr = pseudo_grid_rmax/dble(pseudo_grid_size) r(1) = 0.d0 @@ -95,6 +98,7 @@ BEGIN_PROVIDER [ double precision, mo_pseudo_grid, (ao_num,-pseudo_lmax:pseudo_l enddo enddo enddo + deallocate(r) END_PROVIDER