PTEROSOR/QuAcK
10
1
Fork 0
mirror of https://github.com/pfloos/quack synced 2025-05-06 15:14:55 +02:00
Code Releases Activity

Merge branch 'master' of github.com:pfloos/QuAcK

Browse Source
This commit is contained in:
lburth 2025-04-30 16:14:43 +02:00
commit 1dd74119ca
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/QuAcK/QuAcK.f90
View File

@ -207,8 +207,8 @@ program QuAcK
call wall_time(start_int) call wall_time(start_int)
call read_1e_integrals(working_dir,nBas,S,T,V,Hc) call read_1e_integrals(working_dir,nBas,S,T,V,Hc)
call read_eta_cap(working_dir,eta_cap)
if (doCAP) then if (doCAP) then
call read_eta_cap(working_dir,eta_cap)
call read_CAP_integrals(working_dir,nBas,CAP) call read_CAP_integrals(working_dir,nBas,CAP)
CAP(:,:) = -eta_cap*CAP(:,:) CAP(:,:) = -eta_cap*CAP(:,:)
end if end if