mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-30 16:13:42 +02:00
35 lines
957 B
Fortran
35 lines
957 B
Fortran
BEGIN_PROVIDER [ integer, n_det_max_cisd ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! Get n_det_max_cisd from EZFIO file
|
|
END_DOC
|
|
logical :: has_n_det_max_cisd
|
|
PROVIDE ezfio_filename
|
|
call ezfio_has_cisd_selected_n_det_max_cisd(has_n_det_max_cisd)
|
|
if (has_n_det_max_cisd) then
|
|
call ezfio_get_cisd_selected_n_det_max_cisd(n_det_max_cisd)
|
|
else
|
|
n_det_max_cisd = 30000
|
|
call ezfio_set_cisd_selected_n_det_max_cisd(n_det_max_cisd)
|
|
endif
|
|
print*,'n_det_max_cisd = ',n_det_max_cisd
|
|
END_PROVIDER
|
|
|
|
BEGIN_PROVIDER [ double precision , pt2_max ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! Get pt2_max from EZFIO file
|
|
END_DOC
|
|
logical :: has_pt2_max
|
|
PROVIDE ezfio_filename
|
|
call ezfio_has_cisd_selected_pt2_max(has_pt2_max)
|
|
if (has_pt2_max) then
|
|
call ezfio_get_cisd_selected_pt2_max(pt2_max)
|
|
else
|
|
pt2_max = 1.d-9
|
|
call ezfio_set_cisd_selected_pt2_max(pt2_max)
|
|
endif
|
|
print*,'pt2_max = ',pt2_max
|
|
END_PROVIDER
|
|
|