mirror of
https://github.com/TREX-CoE/irpjast.git
synced 2024-07-22 18:57:41 +02:00
Fixed bug in allocation of cn.
This commit is contained in:
parent
c2ba528452
commit
5b19669825
@ -42,7 +42,7 @@ 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,dimension(:),allocatable :: cn
|
double precision,dimension(:),allocatable :: cn
|
||||||
allocate(cn(ncord))
|
allocate(cn(nnuc))
|
||||||
|
|
||||||
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
|
||||||
|
Loading…
Reference in New Issue
Block a user