mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-12 10:48:31 +02:00
Fix psi_det_size
This commit is contained in:
parent
1dac2bd9b2
commit
e3e4036921
@ -77,6 +77,9 @@ BEGIN_PROVIDER [ integer, psi_det_size ]
|
|||||||
END_DOC
|
END_DOC
|
||||||
PROVIDE ezfio_filename
|
PROVIDE ezfio_filename
|
||||||
logical :: exists
|
logical :: exists
|
||||||
|
psi_det_size = 1
|
||||||
|
PROVIDE mpi_master
|
||||||
|
if (read_wf) then
|
||||||
if (mpi_master) then
|
if (mpi_master) then
|
||||||
call ezfio_has_determinants_n_det(exists)
|
call ezfio_has_determinants_n_det(exists)
|
||||||
if (exists) then
|
if (exists) then
|
||||||
@ -98,7 +101,7 @@ BEGIN_PROVIDER [ integer, psi_det_size ]
|
|||||||
stop 'Unable to read psi_det_size with MPI'
|
stop 'Unable to read psi_det_size with MPI'
|
||||||
endif
|
endif
|
||||||
IRP_ENDIF
|
IRP_ENDIF
|
||||||
|
endif
|
||||||
|
|
||||||
END_PROVIDER
|
END_PROVIDER
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user