mirror of
https://github.com/LCPQ/quantum_package
synced 2024-07-22 18:57:31 +02:00
Options n_states_diag in ezfio corrected
This commit is contained in:
parent
66abccfdfb
commit
692eba018d
@ -10,15 +10,6 @@ T.set_output ( "output_dets" )
|
|||||||
print T
|
print T
|
||||||
|
|
||||||
|
|
||||||
T.set_type ( "integer" )
|
|
||||||
T.set_name ( "N_states_diag" )
|
|
||||||
T.set_doc ( "Number of states to consider for the diagonalization " )
|
|
||||||
T.set_ezfio_dir ( "determinants" )
|
|
||||||
T.set_ezfio_name( "N_states_diag" )
|
|
||||||
T.set_output ( "output_dets" )
|
|
||||||
print T
|
|
||||||
|
|
||||||
|
|
||||||
T.set_name ( "N_det_max_jacobi" )
|
T.set_name ( "N_det_max_jacobi" )
|
||||||
T.set_doc ( "Maximum number of determinants diagonalized by Jacobi" )
|
T.set_doc ( "Maximum number of determinants diagonalized by Jacobi" )
|
||||||
T.set_ezfio_name( "N_det_max_jacobi" )
|
T.set_ezfio_name( "N_det_max_jacobi" )
|
||||||
@ -33,4 +24,25 @@ print T
|
|||||||
|
|
||||||
END_SHELL
|
END_SHELL
|
||||||
|
|
||||||
|
BEGIN_PROVIDER [ integer, N_states_diag ]
|
||||||
|
implicit none
|
||||||
|
BEGIN_DOC
|
||||||
|
! Number of states to consider for the diagonalization
|
||||||
|
END_DOC
|
||||||
|
|
||||||
|
logical :: has
|
||||||
|
PROVIDE ezfio_filename
|
||||||
|
call ezfio_has_determinants_n_states_diag(has)
|
||||||
|
if (has) then
|
||||||
|
call ezfio_get_determinants_n_states_diag(N_states_diag)
|
||||||
|
else
|
||||||
|
N_states_diag = N_states
|
||||||
|
endif
|
||||||
|
|
||||||
|
call write_time(output_dets)
|
||||||
|
call write_int(output_dets, N_states_diag, &
|
||||||
|
'N_states_diag')
|
||||||
|
|
||||||
|
|
||||||
|
END_PROVIDER
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user