PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-14 01:53:49 +01:00
Code Releases Activity

tc provide problem solved

Browse Source
This commit is contained in:
AbdAmmar 2023-04-01 22:05:34 +02:00
parent 6dbacb71b0
commit 8e031bfb46
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -69,7 +69,7 @@ subroutine routine_diag()
print*,''
print*,'******************************************************'
print*,'Excitation energies (au) (eV)'
print*,'TC Excitation energies (au) (eV)'
do i = 2, N_states
dE = eigval_right_tc_bi_orth(i) - eigval_right_tc_bi_orth(1)
print*, i, dE, dE/0.0367502d0

5
src/tc_bi_ortho/tc_hmat.irp.f
View File

@ -12,6 +12,11 @@
double precision :: hmono,htwoe,hthree,htot
PROVIDE N_int
i = 1
j = 1
call htilde_mu_mat_bi_ortho(psi_det(1,1,j), psi_det(1,1,i), N_int, hmono, htwoe, hthree, htot)
!$OMP PARALLEL DO SCHEDULE(GUIDED) DEFAULT(NONE) PRIVATE(i,j,hmono, htwoe, hthree, htot) &
!$OMP SHARED (N_det, psi_det, N_int,htilde_matrix_elmt_bi_ortho)
do i = 1, N_det