diff --git a/el_nuc_el_blas.irp.f b/el_nuc_el_blas.irp.f
index 73f0d6b..e11b006 100644
--- a/el_nuc_el_blas.irp.f
+++ b/el_nuc_el_blas.irp.f
@@ -41,7 +41,8 @@ END_PROVIDER
 
  integer                        :: i, j, a, p, k, l, lmax, m, n
  double precision               :: accu
- double precision               :: cn(ncord)
+ double precision,dimension(:),allocatable :: cn
+ allocate(cn(ncord))
 
  factor_een_blas = 0.0d0
  factor_een_deriv_e_blas(1:4,1:nelec) = 0.0d0