mirror of
https://github.com/TREX-CoE/irpjast.git
synced 2024-08-25 06:31:46 +02:00
Allocate cn separately.
This commit is contained in:
parent
3172bbbb5c
commit
99775ce6f1
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user