mirror of
https://github.com/TREX-CoE/irpjast.git
synced 2024-08-25 06:31:46 +02:00
Cleaning
This commit is contained in:
parent
e923ab7c20
commit
ddba2253ac
@ -8,29 +8,6 @@ BEGIN_PROVIDER [ double precision, factor_een ]
|
|||||||
integer :: i, j, a, p, k, l, lmax, m, n
|
integer :: i, j, a, p, k, l, lmax, m, n
|
||||||
double precision :: cn, accu2, accu
|
double precision :: cn, accu2, accu
|
||||||
|
|
||||||
! double precision :: ria_tmp(nelec,dim_cord_vect,nnuc)
|
|
||||||
! double precision :: rja_tmp(nelec,dim_cord_vect,nnuc)
|
|
||||||
!
|
|
||||||
! do a = 1, nnuc
|
|
||||||
! do n = 1, dim_cord_vect
|
|
||||||
!
|
|
||||||
! l = lkpm_of_cindex(1,n)
|
|
||||||
! k = lkpm_of_cindex(2,n)
|
|
||||||
! p = lkpm_of_cindex(3,n)
|
|
||||||
! m = lkpm_of_cindex(4,n)
|
|
||||||
!
|
|
||||||
! do i = 1, nelec
|
|
||||||
! ria_tmp(i,n,a) = rescale_een_n(i,a,m)
|
|
||||||
! rja_tmp(i,n,a) = rescale_een_n(i,a,m+l)
|
|
||||||
! enddo
|
|
||||||
! enddo
|
|
||||||
!
|
|
||||||
! enddo
|
|
||||||
|
|
||||||
|
|
||||||
! factor_een = factor_een_blas
|
|
||||||
! return
|
|
||||||
|
|
||||||
factor_een = 0.0d0
|
factor_een = 0.0d0
|
||||||
|
|
||||||
do n = 1, dim_cord_vect
|
do n = 1, dim_cord_vect
|
||||||
|
Loading…
Reference in New Issue
Block a user