LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-23 04:43:50 +01:00
Code Issues Releases Wiki Activity

Remove one useless if in N_det

Browse Source
This commit is contained in:
Thomas APPLENCOURT 2014-10-21 09:40:46 +02:00
parent 7f76f8e2c6
commit 410f564a04
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Dets/determinants.irp.f
View File

@ -11,13 +11,11 @@ BEGIN_PROVIDER [ integer, N_det ]
if (read_wf) then if (read_wf) then
call ezfio_has_determinants_n_det(exists) call ezfio_has_determinants_n_det(exists)
if (exists) then if (exists) then
if (exists) then
call ezfio_has_determinants_mo_label(exists) call ezfio_has_determinants_mo_label(exists)
if (exists) then if (exists) then
call ezfio_get_determinants_mo_label(label) call ezfio_get_determinants_mo_label(label)
exists = (label == mo_label) exists = (label == mo_label)
endif endif
endif
endif endif
if (exists) then if (exists) then
call ezfio_get_determinants_n_det(N_det) call ezfio_get_determinants_n_det(N_det)