From 99775ce6f1bb2b8fd8d1bec0e2fb5ba45ec46f88 Mon Sep 17 00:00:00 2001 From: vijay gopal chilkuri Date: Mon, 8 Mar 2021 22:20:57 +0100 Subject: [PATCH] Allocate cn separately. --- el_nuc_el_blas.irp.f | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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