LCPQ/qmcchem
10
1
Fork 1
mirror of https://gitlab.com/scemama/qmcchem.git synced 2024-12-22 12:23:30 +01:00
Code Releases Activity

Merge branch 'hotfix/norm'

Browse Source
This commit is contained in:
Anthony Scemama 2016-03-28 15:42:36 +02:00
commit e791273547
1 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/AO/ao.irp.f
View File

@ -260,26 +260,6 @@ END_PROVIDER
enddo enddo
enddo enddo
! Normalization of the contracted AOs
! -----------------------------------
integer :: k
do i=1,ao_num
pow(1) = ao_power_transp(1,i)
pow(2) = ao_power_transp(2,i)
pow(3) = ao_power_transp(3,i)
norm = 0.d0
do j=1,ao_prim_num(i)
do k=1,ao_prim_num(i)
norm = norm + ao_coef(i,j) * ao_coef(i,k) * goverlap(ao_expo(i,j),ao_expo(i,k),pow)
enddo
enddo
do j=1,ao_prim_num(i)
ao_coef(i,j) = ao_coef(i,j)/sqrt(norm)
enddo
enddo
END_PROVIDER END_PROVIDER