mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-23 04:43:45 +01:00
Type conversion
This commit is contained in:
parent
9c028127a0
commit
3c6b417ae7
@ -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)
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user