LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2025-01-03 17:15:40 +01:00
Code Releases Activity

minor assert fixed

Browse Source
This commit is contained in:
eginer 2022-10-22 19:51:56 +02:00
parent aa55f7de28
commit b01b7d4d55
3 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ao_many_one_e_ints/ao_gaus_gauss.irp.f
View File

@ -170,7 +170,7 @@ double precision function overlap_gauss_r12_ao_with1s(B_center, beta, D_center,
double precision, external :: overlap_gauss_r12, overlap_gauss_r12_ao double precision, external :: overlap_gauss_r12, overlap_gauss_r12_ao
ASSERT(beta .gt. 0.d0) ASSERT(beta .ge. 0.d0)
if(beta .lt. 1d-10) then if(beta .lt. 1d-10) then
overlap_gauss_r12_ao_with1s = overlap_gauss_r12_ao(D_center, delta, i, j) overlap_gauss_r12_ao_with1s = overlap_gauss_r12_ao(D_center, delta, i, j)
return return

3
src/tc_keywords/j1b_pen.irp.f
View File

@ -47,10 +47,11 @@ BEGIN_PROVIDER [ double precision, j1b_pen, (nucl_num) ]
integer :: i integer :: i
do i = 1, nucl_num do i = 1, nucl_num
j1b_pen(i) = 1d5 j1b_pen(i) = 1.d0
enddo enddo
endif endif
print*,'j1b_pen = ',j1b_pen
END_PROVIDER END_PROVIDER

1
src/tc_keywords/tc_keywords.irp.f
View File

@ -4,4 +4,5 @@ program tc_keywords
! TODO : Put the documentation of the program here ! TODO : Put the documentation of the program here
END_DOC END_DOC
print *, 'Hello world' print *, 'Hello world'
provide j1b_pen
end end