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

Type conversion

Browse Source
This commit is contained in:
Anthony Scemama 2019-06-05 18:00:04 +02:00
parent 9c028127a0
commit 3c6b417ae7
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -103,7 +103,7 @@ subroutine run_cipsi
if (qp_stop()) exit if (qp_stop()) exit
n_det_before = N_det n_det_before = N_det
to_select = N_det*int(sqrt(dble(N_states)))*selection_factor to_select = int(sqrt(dble(N_states)*dble(N_det))*selection_factor)
to_select = max(N_states_diag, to_select) to_select = max(N_states_diag, to_select)
call ZMQ_selection(to_select, pt2, variance, norm) call ZMQ_selection(to_select, pt2, variance, norm)

2
src/cipsi/stochastic_cipsi.irp.f
View File

@ -70,7 +70,7 @@ subroutine run_stochastic_cipsi
write(*,'(A)') '--------------------------------------------------------------------------------' write(*,'(A)') '--------------------------------------------------------------------------------'
to_select = N_det*int(sqrt(dble(N_states)))*selection_factor to_select = int(sqrt(dble(N_states)*dble(N_det))*selection_factor)
to_select = max(N_states_diag, to_select) to_select = max(N_states_diag, to_select)
pt2 = 0.d0 pt2 = 0.d0