LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-21 20:52:18 +02:00
Code Issues Releases Wiki Activity

Travis didn't compile

Browse Source
This commit is contained in:
Anthony Scemama 2015-05-21 11:41:10 +02:00
parent 23e3f5c5e8
commit 54a1487abb
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/DensityFit/aux_basis.irp.f
View File

@ -8,8 +8,8 @@
integer :: align_double
if (do_pseudo) then
aux_basis_num_sqrt = ao_num + ao_pseudo_num
! aux_basis_num_sqrt = ao_num
! aux_basis_num_sqrt = ao_num + ao_pseudo_num
aux_basis_num_sqrt = ao_num
else
endif
@ -55,13 +55,13 @@ END_PROVIDER
aux_basis_power(i,1:3) = ao_power(i,1:3)
enddo
do j=1,ao_pseudo_num
aux_basis_expo_transp(1,ao_num+j) = 0.5d0*pseudo_ao_expo(j)
aux_basis_coef_transp(1,ao_num+j) = 1.d0
aux_basis_power(ao_num+j,1:3) = 0
aux_basis_prim_num(ao_num+j) = 1
aux_basis_nucl(ao_num+j) = pseudo_ao_nucl(j)
enddo
! do j=1,ao_pseudo_num
! aux_basis_expo_transp(1,ao_num+j) = 0.5d0*pseudo_ao_expo(j)
! aux_basis_coef_transp(1,ao_num+j) = 1.d0
! aux_basis_power(ao_num+j,1:3) = 0
! aux_basis_prim_num(ao_num+j) = 1
! aux_basis_nucl(ao_num+j) = pseudo_ao_nucl(j)
! enddo
END_PROVIDER