LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-07-03 18:05:59 +02:00
Code Issues Releases Wiki Activity

Merge branch 'master' of github.com:scemama/quantum_package

Browse Source
This commit is contained in:
Anthony Scemama 2018-05-30 13:47:08 +02:00
commit 54986d9d8f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Determinants/density_matrix.irp.f
View File

@ -390,17 +390,17 @@ BEGIN_PROVIDER [ double precision, state_average_weight, (N_states) ]
END_DOC END_DOC
logical :: exists logical :: exists
state_average_weight(:) = 1.d0
if (use_l3_weight) then if (use_l3_weight) then
state_average_weight(:) = l3_weight(:) state_average_weight(:) = l3_weight(:)
else else
state_average_weight(:) = 1.d0
call ezfio_has_determinants_state_average_weight(exists) call ezfio_has_determinants_state_average_weight(exists)
if (exists) then if (exists) then
call ezfio_get_determinants_state_average_weight(state_average_weight) call ezfio_get_determinants_state_average_weight(state_average_weight)
endif endif
endif
state_average_weight(:) = state_average_weight(:)+1.d-31 state_average_weight(:) = state_average_weight(:)+1.d-31
state_average_weight(:) = state_average_weight(:)/(sum(state_average_weight(:))) state_average_weight(:) = state_average_weight(:)/(sum(state_average_weight(:)))
endif
END_PROVIDER END_PROVIDER