TREX/irpjast
1
0
Fork 0
mirror of https://github.com/TREX-CoE/irpjast.git synced 2024-12-22 12:23:57 +01:00
Code Issues Projects Releases Wiki Activity

Allocate cn separately.

Browse Source
This commit is contained in:
vijay gopal chilkuri 2021-03-08 22:20:57 +01:00
parent 3172bbbb5c
commit 99775ce6f1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
el_nuc_el_blas.irp.f
View File

@ -41,7 +41,8 @@ END_PROVIDER
integer :: i, j, a, p, k, l, lmax, m, n integer :: i, j, a, p, k, l, lmax, m, n
double precision :: accu double precision :: accu
double precision :: cn(ncord) double precision,dimension(:),allocatable :: cn
allocate(cn(ncord))
factor_een_blas = 0.0d0 factor_een_blas = 0.0d0
factor_een_deriv_e_blas(1:4,1:nelec) = 0.0d0 factor_een_deriv_e_blas(1:4,1:nelec) = 0.0d0