mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-27 07:32:15 +02:00
18 lines
464 B
Fortran
18 lines
464 B
Fortran
BEGIN_PROVIDER [ logical , read_wf ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! If true, read the wave function from the EZFIO file
|
|
END_DOC
|
|
logical :: exists
|
|
PROVIDE ezfio_filename
|
|
call ezfio_has_determinants_read_wf(exists)
|
|
if (exists) then
|
|
call ezfio_get_determinants_read_wf(read_wf)
|
|
else
|
|
read_wf = .True.
|
|
endif
|
|
!call write_i(output_determinants,read_wf,' computes the PT2 at the end of the selection ')
|
|
ASSERT (read_wf > 0)
|
|
END_PROVIDER
|
|
|