mirror of
https://github.com/LCPQ/quantum_package
synced 2024-12-22 20:35:19 +01:00
bugs in mrcepa0_general and mrcc_utils
This commit is contained in:
parent
e1e896dab3
commit
b780a6540a
@ -644,7 +644,7 @@ END_PROVIDER
|
||||
AtA_ind = 0
|
||||
AtA_val = 0d0
|
||||
x = 0d0
|
||||
A_val_mwen = 0d0
|
||||
!A_val_mwen = 0d0
|
||||
N_col = 0
|
||||
col_shortcut = 0
|
||||
|
||||
@ -699,7 +699,8 @@ END_PROVIDER
|
||||
!$OMP private(at_row, a_col, t, i, r1, r2, wk, A_ind_mwen, A_val_mwen)&
|
||||
!$OMP shared(col_shortcut, N_col, AtB, AtA_size, AtA_val, AtA_ind, s)
|
||||
allocate(A_val_mwen(nex), A_ind_mwen(nex))
|
||||
A_ind_mwen = 0
|
||||
!A_ind_mwen = 0
|
||||
!A_val_mwen = 0d0
|
||||
!$OMP DO schedule(dynamic, 100)
|
||||
do at_row = 1, nex
|
||||
wk = 0
|
||||
|
@ -28,7 +28,7 @@ subroutine run(N_st,energy)
|
||||
enddo
|
||||
SOFT_TOUCH psi_coef ci_energy_dressed
|
||||
call write_double(6,ci_energy_dressed(1),"Final MRCC energy")
|
||||
call ezfio_set_mrcc_cassd_energy(ci_energy_dressed(1))
|
||||
call ezfio_set_mrcepa0_energy(ci_energy_dressed(1))
|
||||
call save_wavefunction
|
||||
energy(:) = ci_energy_dressed(:)
|
||||
else
|
||||
|
Loading…
Reference in New Issue
Block a user