Lines Matching refs:tddfpt_control
92 n_ev = dft_control%tddfpt_control%n_ev
100 do_kernel_save = dft_control%tddfpt_control%do_kernel
101 dft_control%tddfpt_control%do_kernel = .FALSE.
106 IF (ASSOCIATED(dft_control%tddfpt_control%lumos)) THEN
112 DO restarts = 1, dft_control%tddfpt_control%n_restarts
119 dft_control%tddfpt_control%do_kernel = do_kernel_save
129 DO restarts = 1, dft_control%tddfpt_control%n_restarts
196 TYPE(tddfpt_control_type), POINTER :: tddfpt_control local
202 NULLIFY (ao_mo_fm_pools, X, R, b, Ab, Sb, tddfpt_control, &
212 tddfpt_control => dft_control%tddfpt_control
214 n_ev = tddfpt_control%n_ev
217 IF (dft_control%tddfpt_control%diag_method == tddfpt_lanczos) THEN
219 ELSE IF (dft_control%tddfpt_control%diag_method == tddfpt_davidson) THEN
228 max_kv = tddfpt_control%max_kv
299 IF (tddfpt_control%invert_S) THEN
324 IF (tddfpt_control%invert_S) THEN
335 IF (dft_control%tddfpt_control%precond) THEN
363 DO j = 1, tddfpt_control%n_reortho
371 dft_control%tddfpt_control%do_kernel)
439 IF (convergence < tddfpt_control%tolerance) THEN
450 IF (evals_difference(i) > tddfpt_control%tolerance) must_improve(i) = 1