mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-07 22:53:57 +01:00
17 lines
442 B
FortranFixed
17 lines
442 B
FortranFixed
|
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 ')
|
||
|
|
END_PROVIDER
|
||
|
|
|