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