From 5b19669825a10cdba600d9e00518f1634c87efb2 Mon Sep 17 00:00:00 2001 From: vijay gopal chilkuri Date: Mon, 8 Mar 2021 22:54:33 +0100 Subject: [PATCH] Fixed bug in allocation of cn. --- el_nuc_el_blas.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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