mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-30 16:13:42 +02:00
18 lines
464 B
FortranFixed
18 lines
464 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 ')
|
||
|
ASSERT (read_wf > 0)
|
||
|
END_PROVIDER
|
||
|
|