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

Fixed allocation of temp buffers.

Browse Source
This commit is contained in:
vijay gopal chilkuri 2021-03-08 21:55:45 +01:00
parent e2f1404784
commit b22bd73b29
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
el_nuc_el_blas.irp.f
View File

@ -7,10 +7,13 @@
END_DOC END_DOC
integer :: i, j, a, p, k, l, lmax, m, n integer :: i, j, a, p, k, l, lmax, m, n
double precision :: cn(ncord), accu double precision :: accu
double precision :: f(nnuc,0:ncord-2,0:ncord-2) double precision,dimension(:),allocatable :: cn
double precision :: tmp_c(nelec,nnuc,0:ncord,0:ncord-1) double precision,dimension(:,:,:,:),allocatable :: tmp_c
double precision :: dtmp_c(4,nelec,nnuc,0:ncord,0:ncord-1) double precision,dimension(:,:,:,:,:),allocatable :: dtmp_c
allocate(cn(ncord))
allocate(tmp_c(nelec,nnuc,0:ncord,0:ncord-1))
allocate(dtmp_c(4,nelec,nnuc,0:ncord,0:ncord-1))
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
@ -71,4 +74,7 @@
enddo enddo
enddo enddo
deallocate(cn)
deallocate(tmp_c)
deallocate(dtmp_c)
END_PROVIDER END_PROVIDER