LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-23 03:53:29 +01:00
Code Releases Activity

tc natorb are ok with good thresholds and all

Browse Source
This commit is contained in:
eginer 2022-10-30 11:32:22 +01:00
parent 1e2f8ab44f
commit e0650db8b1
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/tc_bi_ortho/save_tc_bi_ortho_nat.irp.f
View File

@ -10,6 +10,7 @@
read_wf = .True. read_wf = .True.
touch read_wf touch read_wf
touch my_grid_becke my_n_pt_r_grid my_n_pt_a_grid touch my_grid_becke my_n_pt_r_grid my_n_pt_a_grid
call print_energy_and_mos
call save_tc_natorb call save_tc_natorb
end end

2
src/tc_bi_ortho/tc_natorb.irp.f
View File

@ -18,7 +18,7 @@
fock_diag(i) = fock_matrix_tc_mo_tot(i,i) fock_diag(i) = fock_matrix_tc_mo_tot(i,i)
write(*,'(100(F16.10,X))')-dm_tmp(:,i) write(*,'(100(F16.10,X))')-dm_tmp(:,i)
enddo enddo
thr_deg = thr_degen_tc thr_deg = 1.d-3
call diag_mat_per_fock_degen(fock_diag,dm_tmp,mo_num,thr_deg,& call diag_mat_per_fock_degen(fock_diag,dm_tmp,mo_num,thr_deg,&
natorb_tc_leigvec_mo,natorb_tc_reigvec_mo,& natorb_tc_leigvec_mo,natorb_tc_reigvec_mo,&
natorb_tc_eigval) natorb_tc_eigval)