39 USE dbcsr_api,
ONLY: &
40 dbcsr_checksum, dbcsr_copy, dbcsr_dot, dbcsr_filter, dbcsr_get_diag, dbcsr_get_num_blocks, &
41 dbcsr_get_occupation, dbcsr_iterator_blocks_left, dbcsr_iterator_next_block, &
42 dbcsr_iterator_start, dbcsr_iterator_stop, dbcsr_iterator_type, dbcsr_multiply, &
43 dbcsr_nfullrows_total, dbcsr_p_type, dbcsr_release, dbcsr_scale, dbcsr_set, &
44 dbcsr_set_diag, dbcsr_type, dbcsr_verify_matrix
102 #include "./base/base_uses.f90"
108 CHARACTER(len=*),
PARAMETER,
PRIVATE :: moduleN =
'qs_initial_guess'
113 TYPE atom_matrix_type
114 REAL(KIND=
dp),
DIMENSION(:, :, :),
POINTER :: mat
115 END TYPE atom_matrix_type
135 TYPE(qs_scf_env_type),
POINTER :: scf_env
136 TYPE(qs_environment_type),
POINTER :: qs_env
138 CHARACTER(LEN=*),
PARAMETER :: routinen =
'calculate_first_density_matrix'
140 CHARACTER(LEN=default_path_length) :: file_name, filename
141 INTEGER :: atom_a, blk, density_guess, handle, homo, i, iatom, ic, icol, id_nr, ikind, irow, &
142 iseed(4), ispin, istart_col, istart_row, j, last_read, n, n_cols, n_rows, nao, natom, &
143 natoms, natoms_tmp, nblocks, nelectron, nmo, nmo_tmp, not_read, nsgf, nspin, nvec, ounit, &
144 safe_density_guess, size_atomic_kind_set, z
145 INTEGER,
ALLOCATABLE,
DIMENSION(:) :: first_sgf, kind_of, last_sgf
146 INTEGER,
DIMENSION(2) :: nelectron_spin
147 INTEGER,
DIMENSION(:),
POINTER :: atom_list, elec_conf, nelec_kind, &
149 LOGICAL :: did_guess, do_hfx_ri_mo, do_kpoints, do_std_diag, exist, has_unit_metric, &
150 natom_mismatch, need_mos, need_wm, ofgpw, owns_ortho, print_history_log, print_log
151 REAL(
dp),
ALLOCATABLE,
DIMENSION(:, :) :: buff, buff2
152 REAL(
dp),
DIMENSION(:, :),
POINTER :: pdata
153 REAL(kind=
dp) :: checksum, eps, length, maxocc, occ, &
154 rscale, tot_corr_zeff, trps1, zeff
155 REAL(kind=
dp),
DIMENSION(0:3) :: edftb
156 TYPE(atom_matrix_type),
DIMENSION(:),
POINTER :: pmat
157 TYPE(atomic_kind_type),
DIMENSION(:),
POINTER :: atomic_kind_set
158 TYPE(atomic_kind_type),
POINTER :: atomic_kind
159 TYPE(cp_fm_struct_type),
POINTER :: ao_ao_struct, ao_mo_struct
160 TYPE(cp_fm_type) :: sv
161 TYPE(cp_fm_type),
DIMENSION(:),
POINTER :: work1
162 TYPE(cp_fm_type),
POINTER :: mo_coeff, moa, mob, ortho, work2
163 TYPE(cp_logger_type),
POINTER :: logger
164 TYPE(dbcsr_iterator_type) :: iter
165 TYPE(dbcsr_p_type),
DIMENSION(:),
POINTER :: h_core_sparse, matrix_ks, p_rmpv, &
167 TYPE(dbcsr_p_type),
DIMENSION(:, :),
POINTER :: matrix_h_kp, matrix_ks_kp, matrix_s_kp, &
169 TYPE(dbcsr_type) :: mo_dbcsr, mo_tmp_dbcsr
170 TYPE(dft_control_type),
POINTER :: dft_control
171 TYPE(gto_basis_set_type),
POINTER :: orb_basis_set
172 TYPE(hfx_type),
DIMENSION(:, :),
POINTER :: x_data
173 TYPE(kpoint_type),
POINTER :: kpoints
174 TYPE(mo_set_type),
DIMENSION(:),
POINTER :: mo_array, mos_last_converged
175 TYPE(mp_para_env_type),
POINTER :: para_env
176 TYPE(particle_type),
DIMENSION(:),
POINTER :: particle_set
177 TYPE(qs_kind_type),
DIMENSION(:),
POINTER :: qs_kind_set
178 TYPE(qs_kind_type),
POINTER :: qs_kind
179 TYPE(qs_rho_type),
POINTER :: rho
180 TYPE(scf_control_type),
POINTER :: scf_control
181 TYPE(section_vals_type),
POINTER :: dft_section, input, subsys_section
184 NULLIFY (atomic_kind, qs_kind, mo_coeff, orb_basis_set, atomic_kind_set, &
185 qs_kind_set, particle_set, ortho, work2, work1, mo_array, s_sparse, &
186 scf_control, dft_control, p_rmpv, para_env, h_core_sparse, matrix_ks, rho, &
188 NULLIFY (dft_section, input, subsys_section)
189 NULLIFY (matrix_s_kp, matrix_h_kp, matrix_ks_kp, rho_ao_kp)
191 NULLIFY (atom_list, elec_conf, kpoints)
193 tot_corr_zeff = 0.0_dp
195 CALL timeset(routinen, handle)
198 atomic_kind_set=atomic_kind_set, &
199 qs_kind_set=qs_kind_set, &
200 particle_set=particle_set, &
202 matrix_s_kp=matrix_s_kp, &
203 matrix_h_kp=matrix_h_kp, &
204 matrix_ks_kp=matrix_ks_kp, &
206 scf_control=scf_control, &
207 dft_control=dft_control, &
208 has_unit_metric=has_unit_metric, &
209 do_kpoints=do_kpoints, &
212 nelectron_spin=nelectron_spin, &
218 IF (dft_control%switch_surf_dip)
THEN
219 CALL get_qs_env(qs_env, mos_last_converged=mos_last_converged)
223 DO ispin = 1, dft_control%nspins
224 DO ic = 1,
SIZE(rho_ao_kp, 2)
225 CALL dbcsr_set(rho_ao_kp(ispin, ic)%matrix, 0.0_dp)
228 s_sparse => matrix_s_kp(:, 1)
229 h_core_sparse => matrix_h_kp(:, 1)
230 matrix_ks => matrix_ks_kp(:, 1)
231 p_rmpv => rho_ao_kp(:, 1)
233 work1 => scf_env%scf_work1
234 work2 => scf_env%scf_work2
235 ortho => scf_env%ortho
239 nspin = dft_control%nspins
240 ofgpw = dft_control%qs_control%ofgpw
241 density_guess = scf_control%density_guess
242 do_std_diag = .false.
244 do_hfx_ri_mo = .false.
245 IF (
ASSOCIATED(x_data))
THEN
246 IF (x_data(1, 1)%do_hfx_ri)
THEN
247 IF (x_data(1, 1)%ri_data%flavor ==
ri_mo) do_hfx_ri_mo = .true.
251 IF (
ASSOCIATED(scf_env%krylov_space)) do_std_diag = (scf_env%krylov_space%eps_std_diag > 0.0_dp)
259 IF (dft_control%qs_control%semi_empirical .OR. dft_control%qs_control%dftb)
THEN
263 IF (dft_control%qs_control%xtb)
THEN
273 IF (scf_control%use_ot .AND. &
281 (scf_control%level_shift == 0.0_dp)))))
THEN
282 CALL cp_abort(__location__, &
283 "OT needs GUESS ATOMIC / CORE / RANDOM / SPARSE / RESTART / HISTORY RESTART: other options NYI")
295 IF (para_env%is_source())
THEN
299 IF (para_env%is_source())
THEN
303 CALL para_env%bcast(exist)
304 CALL para_env%bcast(file_name)
305 IF (.NOT. exist)
THEN
306 CALL cp_warn(__location__, &
307 "User requested to restart the wavefunction from the file named: "// &
308 trim(file_name)//
". This file does not exist. Please check the existence of"// &
309 " the file or change properly the value of the keyword WFN_RESTART_FILE_NAME."// &
310 " Calculation continues using ATOMIC GUESS. ")
311 density_guess = safe_density_guess
315 cpabort(
"calculate_first_density_matrix: history_guess not implemented for k-points")
317 IF (para_env%is_source())
THEN
320 CALL para_env%bcast(exist)
321 CALL para_env%bcast(file_name)
322 nvec = qs_env%wf_history%memory_depth
327 filename = trim(file_name)
329 filename = trim(file_name)//
".bak-"//adjustl(cp_to_string(j))
331 IF (para_env%is_source()) &
332 INQUIRE (file=filename, exist=exist)
333 CALL para_env%bcast(exist)
334 IF ((.NOT. exist) .AND. (i < not_read))
THEN
338 IF (not_read == 1)
THEN
340 filename = trim(file_name)
341 IF (para_env%is_source())
INQUIRE (file=filename, exist=exist)
342 CALL para_env%bcast(exist)
343 IF (.NOT. exist)
THEN
344 CALL cp_warn(__location__, &
345 "User requested to restart the wavefunction from a series of restart files named: "// &
346 trim(file_name)//
" with extensions (.bak-n). These files do not exist."// &
347 " Even trying to switch to a plain restart wave-function failes because the"// &
348 " file named: "//trim(file_name)//
" does not exist. Please check the existence of"// &
349 " the file or change properly the value of the keyword WFN_RESTART_FILE_NAME."// &
350 " Calculation continues using ATOMIC GUESS. ")
351 density_guess = safe_density_guess
354 last_read = not_read - 1
359 IF (dft_control%correct_el_density_dip)
THEN
360 tot_corr_zeff = qs_env%total_zeff_corr
362 IF ((abs(tot_corr_zeff) > 0.0_dp) .AND. (density_guess /=
restart_guess))
THEN
363 CALL cp_warn(__location__, &
364 "Use SCF_GUESS RESTART in conjunction with "// &
365 "CORE_CORRECTION /= 0.0 and SURFACE_DIPOLE_CORRECTION TRUE. "// &
366 "It is always advisable to perform SURFACE_DIPOLE_CORRECTION "// &
367 "after a simulation without the surface dipole correction "// &
368 "and using the ensuing wavefunction restart file. ")
374 print_history_log = .false.
375 IF (para_env%is_source())
THEN
377 "SCF%PRINT%RESTART%LOG_PRINT_KEY", &
380 "SCF%PRINT%RESTART_HISTORY%LOG_PRINT_KEY", &
381 l_val=print_history_log)
382 IF (print_log .OR. print_history_log)
THEN
389 WRITE (unit=ounit, fmt=
"(/,T2,A)") &
390 "WFN_RESTART| Reading restart file"
393 natoms =
SIZE(particle_set)
395 natoms, para_env, id_nr, dft_section, natom_mismatch)
396 IF (natom_mismatch) density_guess = safe_density_guess
399 id_nr=id_nr, multiplicity=dft_control%multiplicity, dft_section=dft_section, &
400 natom_mismatch=natom_mismatch, out_unit=ounit)
402 IF (natom_mismatch)
THEN
403 density_guess = safe_density_guess
406 IF (scf_control%level_shift /= 0.0_dp)
THEN
407 CALL get_mo_set(mo_set=mo_array(ispin), mo_coeff=mo_coeff)
408 CALL cp_fm_to_fm(mo_coeff, ortho)
413 mo_coeff=mo_coeff, nmo=nmo, homo=homo)
415 IF (has_unit_metric)
THEN
417 ELSEIF (dft_control%smear)
THEN
419 matrix_s=s_sparse(1)%matrix)
425 IF (dft_control%restricted)
EXIT
429 IF (.NOT. scf_control%diagonalization%mom)
THEN
430 IF (dft_control%correct_surf_dip)
THEN
431 IF (abs(tot_corr_zeff) > 0.0_dp)
THEN
432 CALL set_mo_occupation(mo_array, smear=qs_env%scf_control%smear, &
433 tot_zeff_corr=tot_corr_zeff)
435 CALL set_mo_occupation(mo_array, smear=qs_env%scf_control%smear)
438 CALL set_mo_occupation(mo_array, smear=qs_env%scf_control%smear)
446 mo_array(ispin)%mo_coeff_b)
449 CALL calculate_density_matrix(mo_array(ispin), &
450 p_rmpv(ispin)%matrix)
457 IF (scf_control%diagonalization%mom)
THEN
465 IF (not_read > 1)
THEN
467 WRITE (unit=ounit, fmt=
"(/,T2,A)") &
468 "WFN_RESTART| Reading restart file history"
473 id_nr=j, multiplicity=dft_control%multiplicity, &
474 dft_section=dft_section, out_unit=ounit)
477 IF (scf_control%level_shift /= 0.0_dp)
THEN
478 CALL get_mo_set(mo_set=mo_array(ispin), mo_coeff=mo_coeff)
479 CALL cp_fm_to_fm(mo_coeff, ortho)
483 CALL get_mo_set(mo_set=mo_array(ispin), mo_coeff=mo_coeff, nmo=nmo, homo=homo)
485 IF (has_unit_metric)
THEN
492 IF (dft_control%restricted)
EXIT
497 CALL set_mo_occupation(mo_set=mo_array(ispin), &
498 smear=qs_env%scf_control%smear)
504 mo_array(ispin)%mo_coeff_b)
506 CALL calculate_density_matrix(mo_array(ispin), p_rmpv(ispin)%matrix)
510 CALL wfi_update(wf_history=qs_env%wf_history, qs_env=qs_env, dt=1.0_dp)
521 mo_coeff=mo_coeff, nmo=nmo)
523 IF (has_unit_metric)
THEN
529 IF (dft_control%restricted)
EXIT
534 CALL set_mo_occupation(mo_set=mo_array(ispin), &
535 smear=qs_env%scf_control%smear)
542 mo_array(ispin)%mo_coeff_b)
545 CALL calculate_density_matrix(mo_array(ispin), p_rmpv(ispin)%matrix)
554 cpabort(
"calculate_first_density_matrix: core_guess not implemented for k-points")
558 IF (.NOT.
ASSOCIATED(work1))
THEN
560 cpassert(.NOT.
ASSOCIATED(work2))
561 cpassert(.NOT.
ASSOCIATED(ortho))
564 cpassert(
ASSOCIATED(work2))
565 IF (.NOT.
ASSOCIATED(ortho))
THEN
572 CALL get_mo_set(mo_set=mo_array(1), mo_coeff=moa)
576 nrow_block=nblocks, &
577 ncol_block=nblocks, &
580 template_fmstruct=ao_mo_struct)
582 ALLOCATE (work2, ortho)
597 IF (has_unit_metric)
THEN
599 mo_set=mo_array(ispin), &
601 do_level_shift=.false., &
602 level_shift=0.0_dp, &
603 use_jacobi=.false., jacobi_threshold=0._dp)
606 mo_set=mo_array(ispin), &
609 cholesky_method=scf_env%cholesky_method, &
610 do_level_shift=.false., &
611 level_shift=0.0_dp, &
617 CALL get_mo_set(mo_set=mo_array(1), mo_coeff=moa)
618 CALL get_mo_set(mo_set=mo_array(2), mo_coeff=mob, nmo=nmo)
619 CALL cp_fm_to_fm(moa, mob, nmo)
625 CALL set_mo_occupation(mo_set=mo_array(ispin), smear=scf_control%smear)
626 CALL calculate_density_matrix(mo_array(ispin), p_rmpv(ispin)%matrix)
631 CALL cp_fm_release(ortho)
632 CALL cp_fm_release(work2)
633 CALL cp_fm_release(work1(1))
634 DEALLOCATE (ortho, work2)
636 NULLIFY (work1, work2, ortho)
637 ELSE IF (owns_ortho)
THEN
649 WRITE (unit=ounit, fmt=
"(/,(T2,A))") &
650 "Atomic guess: The first density matrix is obtained in terms of atomic orbitals", &
651 " and electronic configurations assigned to each atomic kind"
655 nspin, nelectron_spin, ounit, para_env)
661 IF (ofgpw .AND. (scf_control%use_ot .OR. scf_env%method ==
ot_diag_method_nr))
THEN
666 IF (dft_control%restricted .AND. (ispin == 2))
THEN
671 nmo=nmo, nao=nao, homo=homo)
678 IF (has_unit_metric)
THEN
679 CALL cp_fm_to_fm(mo_coeff, sv)
686 CALL cp_fm_release(sv)
688 IF (has_unit_metric)
THEN
695 CALL set_mo_occupation(mo_set=mo_array(ispin), &
696 smear=qs_env%scf_control%smear)
699 mo_array(ispin)%mo_coeff_b)
701 CALL calculate_density_matrix(mo_array(ispin), &
702 p_rmpv(ispin)%matrix)
707 IF (dft_control%correct_surf_dip)
THEN
708 IF (abs(tot_corr_zeff) > 0.0_dp)
THEN
711 nmo=nmo, nao=nao, homo=homo)
718 IF (has_unit_metric)
THEN
719 CALL cp_fm_to_fm(mo_coeff, sv)
726 CALL cp_fm_release(sv)
728 IF (has_unit_metric)
THEN
734 CALL set_mo_occupation(mo_set=mo_array(ispin), smear=qs_env%scf_control%smear, &
735 tot_zeff_corr=tot_corr_zeff)
737 CALL calculate_density_matrix(mo_array(ispin), &
738 p_rmpv(ispin)%matrix)
747 IF (ofgpw .AND. (scf_control%use_ot .OR. scf_env%method ==
ot_diag_method_nr))
THEN
762 IF (scf_control%diagonalization%mom)
THEN
774 IF (ofgpw) cpabort(
"SPARSE_GUESS not implemented for OFGPW")
775 IF (.NOT. scf_control%use_ot) cpabort(
"OT needed!")
777 cpabort(
"calculate_first_density_matrix: sparse_guess not implemented for k-points")
783 natoms =
SIZE(particle_set)
784 ALLOCATE (kind_of(natoms))
785 ALLOCATE (first_sgf(natoms), last_sgf(natoms))
787 checksum = dbcsr_checksum(s_sparse(1)%matrix)
788 i = dbcsr_get_num_blocks(s_sparse(1)%matrix);
CALL para_env%sum(i)
789 IF (ounit > 0)
WRITE (ounit, *)
'S nblks', i,
' checksum', checksum
790 CALL dbcsr_filter(s_sparse(1)%matrix, eps)
791 checksum = dbcsr_checksum(s_sparse(1)%matrix)
792 i = dbcsr_get_num_blocks(s_sparse(1)%matrix);
CALL para_env%sum(i)
793 IF (ounit > 0)
WRITE (ounit, *)
'S nblks', i,
' checksum', checksum
799 ALLOCATE (pmat(
SIZE(atomic_kind_set)))
802 IF (nspin == 2) rscale = 0.5_dp
803 DO ikind = 1,
SIZE(atomic_kind_set)
804 atomic_kind => atomic_kind_set(ikind)
805 qs_kind => qs_kind_set(ikind)
806 NULLIFY (pmat(ikind)%mat)
808 NULLIFY (atomic_kind)
816 CALL dbcsr_iterator_start(iter, p_rmpv(ispin)%matrix)
817 DO WHILE (dbcsr_iterator_blocks_left(iter))
818 CALL dbcsr_iterator_next_block(iter, irow, icol, pdata, blk)
819 ikind = kind_of(irow)
820 IF (icol .EQ. irow)
THEN
822 pdata(:, :) = pmat(ikind)%mat(:, :, 1)*rscale + &
823 pmat(ikind)%mat(:, :, 2)*rscale
825 pdata(:, :) = pmat(ikind)%mat(:, :, 1)*rscale - &
826 pmat(ikind)%mat(:, :, 2)*rscale
830 CALL dbcsr_iterator_stop(iter)
833 checksum = dbcsr_checksum(p_rmpv(ispin)%matrix)
834 occ = dbcsr_get_occupation(p_rmpv(ispin)%matrix)
835 IF (ounit > 0)
WRITE (ounit, *)
'P_init occ', occ,
' checksum', checksum
839 checksum = dbcsr_checksum(p_rmpv(ispin)%matrix)
840 occ = dbcsr_get_occupation(p_rmpv(ispin)%matrix)
841 IF (ounit > 0)
WRITE (ounit, *)
'P_init occ', occ,
' checksum', checksum
843 CALL dbcsr_dot(p_rmpv(ispin)%matrix, s_sparse(1)%matrix, trps1)
844 rscale = real(nelectron,
dp)/trps1
845 CALL dbcsr_scale(p_rmpv(ispin)%matrix, rscale)
848 checksum = dbcsr_checksum(p_rmpv(ispin)%matrix)
849 occ = dbcsr_get_occupation(p_rmpv(ispin)%matrix)
850 IF (ounit > 0)
WRITE (ounit, *)
'P occ', occ,
' checksum', checksum
854 IF (dft_control%restricted .AND. (ispin == 2))
THEN
859 nmo=nmo, nao=nao, homo=homo)
862 n = maxval(last_sgf - first_sgf) + 1
863 size_atomic_kind_set =
SIZE(atomic_kind_set)
865 ALLOCATE (buff(n, n), sort_kind(size_atomic_kind_set), &
866 nelec_kind(size_atomic_kind_set))
869 DO ikind = 1, size_atomic_kind_set
870 atomic_kind => atomic_kind_set(ikind)
871 qs_kind => qs_kind_set(ikind)
874 atom_list=atom_list, &
876 CALL get_qs_kind(qs_kind, nsgf=nsgf, elec_conf=elec_conf, &
877 basis_set=orb_basis_set, zeff=zeff)
878 nelec_kind(ikind) = sum(elec_conf)
880 CALL sort(nelec_kind, size_atomic_kind_set, sort_kind)
886 iseed(1) = 4; iseed(2) = 3; iseed(3) = 2; iseed(4) = 1
887 DO i = 1, size_atomic_kind_set
889 atomic_kind => atomic_kind_set(ikind)
891 natom=natom, atom_list=atom_list)
894 atom_a = atom_list(iatom)
895 istart_row = first_sgf(atom_a)
896 n_rows = last_sgf(atom_a) - first_sgf(atom_a) + 1
899 n_cols = max(int(real(nmo_tmp,
dp)/real(natoms_tmp,
dp)), 1)
900 IF (n_cols .GT. n_rows) n_cols = n_rows
902 nmo_tmp = nmo_tmp - n_cols
903 natoms_tmp = natoms_tmp - 1
904 IF (nmo_tmp .LT. 0 .OR. natoms_tmp .LT. 0)
THEN
908 CALL dlarnv(1, iseed, n_rows, buff(1, j))
912 istart_col = istart_col + n_cols
916 IF (istart_col .LE. nmo)
THEN
920 DEALLOCATE (buff, nelec_kind, sort_kind)
923 ALLOCATE (buff(nao, 1), buff2(nao, 1))
926 IF (sum(buff**2) .LT. 1e-10_dp)
THEN
927 WRITE (*, *)
'wrong', i, sum(buff**2)
929 length = sqrt(dot_product(buff(:, 1), buff(:, 1)))
930 buff(:, :) = buff(:, :)/length
933 length = sqrt(dot_product(buff2(:, 1), buff2(:, 1)))
934 buff2(:, :) = buff2(:, :)/length
935 IF (abs(dot_product(buff(:, 1), buff2(:, 1)) - 1.0_dp) .LT. 1e-10_dp)
THEN
936 WRITE (*, *)
'wrong2', i, j, dot_product(buff(:, 1), buff2(:, 1))
938 IF (abs(mo_coeff%local_data(ikind, i)) .GT. 1e-10_dp)
THEN
939 WRITE (*, *)
'c1', ikind, mo_coeff%local_data(ikind, i)
941 IF (abs(mo_coeff%local_data(ikind, j)) .GT. 1e-10_dp)
THEN
942 WRITE (*, *)
'c2', ikind, mo_coeff%local_data(ikind, j)
949 DEALLOCATE (buff, buff2)
955 checksum = dbcsr_checksum(mo_dbcsr)
957 occ = dbcsr_get_occupation(mo_dbcsr)
958 IF (ounit > 0)
WRITE (ounit, *)
'C occ', occ,
' checksum', checksum
959 CALL dbcsr_filter(mo_dbcsr, eps)
961 occ = dbcsr_get_occupation(mo_dbcsr)
962 checksum = dbcsr_checksum(mo_dbcsr)
963 IF (ounit > 0)
WRITE (ounit, *)
'C occ', occ,
' checksum', checksum
966 IF (has_unit_metric)
THEN
967 cpabort(
"has_unit_metric will be removed soon")
971 CALL dbcsr_copy(mo_tmp_dbcsr, mo_dbcsr, name=
"mo_tmp")
972 CALL dbcsr_multiply(
"N",
"N", 1.0_dp, s_sparse(1)%matrix, mo_dbcsr, &
973 0.0_dp, mo_tmp_dbcsr, &
974 retain_sparsity=.true.)
976 checksum = dbcsr_checksum(mo_tmp_dbcsr)
977 occ = dbcsr_get_occupation(mo_tmp_dbcsr)
978 IF (ounit > 0)
WRITE (ounit, *)
'S*C occ', occ,
' checksum', checksum
979 CALL dbcsr_filter(mo_tmp_dbcsr, eps)
981 checksum = dbcsr_checksum(mo_tmp_dbcsr)
982 occ = dbcsr_get_occupation(mo_tmp_dbcsr)
983 IF (ounit > 0)
WRITE (ounit, *)
'S*C occ', occ,
' checksum', checksum
988 CALL dbcsr_multiply(
"N",
"N", 1.0_dp, p_rmpv(ispin)%matrix, &
989 mo_tmp_dbcsr, 0.0_dp, mo_dbcsr)
990 IF (.false.)
CALL dbcsr_verify_matrix(mo_dbcsr)
991 checksum = dbcsr_checksum(mo_dbcsr)
992 occ = dbcsr_get_occupation(mo_dbcsr)
993 IF (ounit > 0)
WRITE (ounit, *)
'P*SC occ', occ,
' checksum', checksum
994 CALL dbcsr_filter(mo_dbcsr, eps)
996 checksum = dbcsr_checksum(mo_dbcsr)
997 occ = dbcsr_get_occupation(mo_dbcsr)
998 IF (ounit > 0)
WRITE (ounit, *)
'P*SC occ', occ,
' checksum', checksum
1002 CALL dbcsr_release(mo_dbcsr)
1003 CALL dbcsr_release(mo_tmp_dbcsr)
1009 CALL set_mo_occupation(mo_set=mo_array(ispin), &
1010 smear=qs_env%scf_control%smear)
1013 mo_array(ispin)%mo_coeff_b)
1015 CALL calculate_density_matrix(mo_array(ispin), &
1016 p_rmpv(ispin)%matrix)
1017 DO ikind = 1,
SIZE(atomic_kind_set)
1018 IF (
ASSOCIATED(pmat(ikind)%mat))
THEN
1019 DEALLOCATE (pmat(ikind)%mat)
1026 DEALLOCATE (kind_of)
1028 DEALLOCATE (first_sgf, last_sgf)
1035 particle_set, atomic_kind_set, qs_kind_set, nspin, nelectron_spin, para_env)
1041 IF (dft_control%restricted .AND. (ispin == 2))
THEN
1045 mo_coeff=mo_coeff, &
1050 IF (has_unit_metric)
THEN
1051 CALL cp_fm_to_fm(mo_coeff, sv)
1057 CALL cp_fm_release(sv)
1059 IF (has_unit_metric)
THEN
1066 CALL set_mo_occupation(mo_set=mo_array(ispin), &
1067 smear=qs_env%scf_control%smear)
1069 mo_array(ispin)%mo_coeff_b)
1071 CALL calculate_density_matrix(mo_array(ispin), &
1072 p_rmpv(ispin)%matrix)
1079 IF (dft_control%switch_surf_dip)
THEN
1086 IF (density_guess ==
no_guess)
THEN
1090 IF (.NOT. did_guess)
THEN
1091 cpabort(
"An invalid keyword for the initial density guess was specified")
1094 CALL timestop(handle)
1106 TYPE(dbcsr_type),
INTENT(INOUT) :: matrix_f
1107 TYPE(atomic_kind_type),
DIMENSION(:),
POINTER :: atomic_kind_set
1108 TYPE(qs_kind_type),
DIMENSION(:),
POINTER :: qs_kind_set
1109 INTEGER,
INTENT(IN) :: ounit
1111 CHARACTER(LEN=*),
PARAMETER :: routinen =
'calculate_atomic_fock_matrix'
1113 INTEGER :: handle, icol, ikind, irow
1114 INTEGER,
ALLOCATABLE,
DIMENSION(:) :: kind_of
1115 REAL(
dp),
DIMENSION(:, :),
POINTER :: block
1116 TYPE(atom_matrix_type),
ALLOCATABLE,
DIMENSION(:) :: fmat
1117 TYPE(atomic_kind_type),
POINTER :: atomic_kind
1118 TYPE(dbcsr_iterator_type) :: iter
1119 TYPE(qs_kind_type),
POINTER :: qs_kind
1121 CALL timeset(routinen, handle)
1124 ALLOCATE (fmat(
SIZE(atomic_kind_set)))
1127 DO ikind = 1,
SIZE(atomic_kind_set)
1128 atomic_kind => atomic_kind_set(ikind)
1129 qs_kind => qs_kind_set(ikind)
1130 NULLIFY (fmat(ikind)%mat)
1131 IF (ounit > 0)
WRITE (unit=ounit, fmt=
"(/,T2,A)") &
1132 "Calculating atomic Fock matrix for atomic kind: "//trim(atomic_kind%name)
1136 fmat=fmat(ikind)%mat)
1140 CALL dbcsr_set(matrix_f, 0.0_dp)
1143 CALL dbcsr_iterator_start(iter, matrix_f)
1144 DO WHILE (dbcsr_iterator_blocks_left(iter))
1145 CALL dbcsr_iterator_next_block(iter, irow, icol, block)
1146 ikind = kind_of(irow)
1147 IF (icol .EQ. irow) block(:, :) = fmat(ikind)%mat(:, :, 1)
1149 CALL dbcsr_iterator_stop(iter)
1152 DO ikind = 1,
SIZE(atomic_kind_set)
1153 DEALLOCATE (fmat(ikind)%mat)
1157 CALL timestop(handle)
1175 dft_control, particle_set, atomic_kind_set, qs_kind_set, &
1176 nspin, nelectron_spin, para_env)
1177 TYPE(dbcsr_p_type),
DIMENSION(:),
INTENT(INOUT) :: pmat
1178 TYPE(dbcsr_type),
INTENT(INOUT) :: matrix_s
1179 LOGICAL :: has_unit_metric
1180 TYPE(dft_control_type),
POINTER :: dft_control
1181 TYPE(particle_type),
DIMENSION(:),
POINTER :: particle_set
1182 TYPE(atomic_kind_type),
DIMENSION(:),
POINTER :: atomic_kind_set
1183 TYPE(qs_kind_type),
DIMENSION(:),
POINTER :: qs_kind_set
1184 INTEGER,
INTENT(IN) :: nspin
1185 INTEGER,
DIMENSION(:),
INTENT(IN) :: nelectron_spin
1186 TYPE(mp_para_env_type) :: para_env
1188 CHARACTER(LEN=*),
PARAMETER :: routinen =
'calculate_mopac_dm'
1190 INTEGER :: atom_a, handle, iatom, ikind, iset, &
1191 isgf, isgfa, ishell, ispin, la, maxl, &
1192 maxll, na, nao, natom, ncount, nset, &
1194 INTEGER,
ALLOCATABLE,
DIMENSION(:) :: first_sgf
1195 INTEGER,
DIMENSION(25) :: laox, naox
1196 INTEGER,
DIMENSION(5) :: occupation
1197 INTEGER,
DIMENSION(:),
POINTER :: atom_list, elec_conf, nshell
1198 INTEGER,
DIMENSION(:, :),
POINTER :: first_sgfa, l, last_sgfa
1200 REAL(kind=
dp) :: maxocc, my_sum, nelec, occ, paa, rscale, &
1201 trps1, trps2, yy, zeff
1202 REAL(kind=
dp),
ALLOCATABLE,
DIMENSION(:) :: econf, pdiag, sdiag
1203 REAL(kind=
dp),
DIMENSION(0:3) :: edftb
1204 TYPE(all_potential_type),
POINTER :: all_potential
1205 TYPE(dbcsr_type),
POINTER :: matrix_p
1206 TYPE(gth_potential_type),
POINTER :: gth_potential
1207 TYPE(gto_basis_set_type),
POINTER :: orb_basis_set
1208 TYPE(sgp_potential_type),
POINTER :: sgp_potential
1209 TYPE(xtb_atom_type),
POINTER :: xtb_kind
1211 CALL timeset(routinen, handle)
1214 matrix_p => pmat(ispin)%matrix
1215 CALL dbcsr_set(matrix_p, 0.0_dp)
1218 natom =
SIZE(particle_set)
1219 nao = dbcsr_nfullrows_total(pmat(1)%matrix)
1220 IF (nspin == 1)
THEN
1226 ALLOCATE (first_sgf(natom))
1231 ALLOCATE (econf(0:maxl))
1233 ALLOCATE (pdiag(nao))
1236 ALLOCATE (sdiag(nao))
1239 IF (has_unit_metric)
THEN
1242 CALL dbcsr_get_diag(matrix_s, sdiag)
1243 CALL para_env%sum(sdiag)
1251 IF (sum(nelectron_spin) /= 0)
THEN
1252 DO ikind = 1,
SIZE(atomic_kind_set)
1254 CALL get_atomic_kind(atomic_kind_set(ikind), natom=natom, atom_list=atom_list)
1255 CALL get_qs_kind(qs_kind_set(ikind), basis_set=orb_basis_set, &
1256 all_potential=all_potential, &
1257 gth_potential=gth_potential, &
1258 sgp_potential=sgp_potential)
1259 has_pot =
ASSOCIATED(all_potential) .OR.
ASSOCIATED(gth_potential) .OR.
ASSOCIATED(sgp_potential)
1261 IF (dft_control%qs_control%dftb)
THEN
1263 lmax=maxll, occupation=edftb)
1264 maxll = min(maxll, maxl)
1265 econf(0:maxl) = edftb(0:maxl)
1266 ELSEIF (dft_control%qs_control%xtb)
THEN
1267 CALL get_qs_kind(qs_kind_set(ikind), xtb_parameter=xtb_kind)
1268 CALL get_xtb_atom_param(xtb_kind, z=z, natorb=nsgf, nao=naox, lao=laox, occupation=occupation)
1269 ELSEIF (has_pot)
THEN
1271 CALL get_qs_kind(qs_kind_set(ikind), nsgf=nsgf, elec_conf=elec_conf, zeff=zeff)
1272 maxll = min(
SIZE(elec_conf) - 1, maxl)
1274 econf(0:maxll) = 0.5_dp*maxocc*real(elec_conf(0:maxll),
dp)
1280 IF (dft_control%qs_control%dftb)
THEN
1282 atom_a = atom_list(iatom)
1283 isgfa = first_sgf(atom_a)
1287 pdiag(isgfa) = econf(0)
1289 pdiag(isgfa + 1) = econf(1)/3._dp
1290 pdiag(isgfa + 2) = econf(1)/3._dp
1291 pdiag(isgfa + 3) = econf(1)/3._dp
1293 pdiag(isgfa + 4) = econf(2)/5._dp
1294 pdiag(isgfa + 5) = econf(2)/5._dp
1295 pdiag(isgfa + 6) = econf(2)/5._dp
1296 pdiag(isgfa + 7) = econf(2)/5._dp
1297 pdiag(isgfa + 8) = econf(2)/5._dp
1299 pdiag(isgfa + 9) = econf(3)/7._dp
1300 pdiag(isgfa + 10) = econf(3)/7._dp
1301 pdiag(isgfa + 11) = econf(3)/7._dp
1302 pdiag(isgfa + 12) = econf(3)/7._dp
1303 pdiag(isgfa + 13) = econf(3)/7._dp
1304 pdiag(isgfa + 14) = econf(3)/7._dp
1305 pdiag(isgfa + 15) = econf(3)/7._dp
1311 ELSEIF (dft_control%qs_control%xtb)
THEN
1313 atom_a = atom_list(iatom)
1314 isgfa = first_sgf(atom_a)
1315 IF (z == 1 .AND. nsgf == 2)
THEN
1317 pdiag(isgfa) = 1.0_dp
1318 pdiag(isgfa + 1) = 0.0_dp
1323 occ = real(occupation(la + 1),
dp)/real(2*la + 1,
dp)
1324 pdiag(isgfa + isgf - 1) = occ
1328 ELSEIF (dft_control%qs_control%semi_empirical)
THEN
1329 yy = real(dft_control%charge, kind=
dp)/real(nao, kind=
dp)
1331 atom_a = atom_list(iatom)
1332 isgfa = first_sgf(atom_a)
1335 pdiag(isgfa) = (zeff - yy)*0.5_dp*maxocc
1339 pdiag(isgfa) = (zeff - yy)*0.5_dp*maxocc
1340 pdiag(isgfa + 1) = 0._dp
1341 pdiag(isgfa + 2) = 0._dp
1342 pdiag(isgfa + 3) = 0._dp
1344 pdiag(isgfa) = (zeff*0.25_dp - yy)*0.5_dp*maxocc
1345 pdiag(isgfa + 1) = (zeff*0.25_dp - yy)*0.5_dp*maxocc
1346 pdiag(isgfa + 2) = (zeff*0.25_dp - yy)*0.5_dp*maxocc
1347 pdiag(isgfa + 3) = (zeff*0.25_dp - yy)*0.5_dp*maxocc
1350 IF (z < 21 .OR. z > 30 .AND. z < 39 .OR. z > 48 .AND. z < 57)
THEN
1352 pdiag(isgfa) = (zeff*0.25_dp - yy)*0.5_dp*maxocc
1353 pdiag(isgfa + 1) = (zeff*0.25_dp - yy)*0.5_dp*maxocc
1354 pdiag(isgfa + 2) = (zeff*0.25_dp - yy)*0.5_dp*maxocc
1355 pdiag(isgfa + 3) = (zeff*0.25_dp - yy)*0.5_dp*maxocc
1356 pdiag(isgfa + 4) = (-yy)*0.5_dp*maxocc
1357 pdiag(isgfa + 5) = (-yy)*0.5_dp*maxocc
1358 pdiag(isgfa + 6) = (-yy)*0.5_dp*maxocc
1359 pdiag(isgfa + 7) = (-yy)*0.5_dp*maxocc
1360 pdiag(isgfa + 8) = (-yy)*0.5_dp*maxocc
1361 ELSE IF (z < 99)
THEN
1362 my_sum = zeff - 9.0_dp*yy
1364 pdiag(isgfa) = (max(0.0_dp, min(my_sum, 2.0_dp)))*0.5_dp*maxocc
1365 my_sum = my_sum - 2.0_dp
1366 IF (my_sum > 0.0_dp)
THEN
1368 pdiag(isgfa + 4) = (max(0.0_dp, min(my_sum*0.2_dp, 2.0_dp)))*0.5_dp*maxocc
1369 pdiag(isgfa + 5) = (max(0.0_dp, min(my_sum*0.2_dp, 2.0_dp)))*0.5_dp*maxocc
1370 pdiag(isgfa + 6) = (max(0.0_dp, min(my_sum*0.2_dp, 2.0_dp)))*0.5_dp*maxocc
1371 pdiag(isgfa + 7) = (max(0.0_dp, min(my_sum*0.2_dp, 2.0_dp)))*0.5_dp*maxocc
1372 pdiag(isgfa + 8) = (max(0.0_dp, min(my_sum*0.2_dp, 2.0_dp)))*0.5_dp*maxocc
1373 my_sum = max(0.0_dp, my_sum - 10.0_dp)
1375 pdiag(isgfa + 1) = (my_sum/3.0_dp)*0.5_dp*maxocc
1376 pdiag(isgfa + 2) = (my_sum/3.0_dp)*0.5_dp*maxocc
1377 pdiag(isgfa + 3) = (my_sum/3.0_dp)*0.5_dp*maxocc
1389 first_sgf=first_sgfa, &
1393 DO ishell = 1, nshell(iset)
1394 la = l(ishell, iset)
1395 nelec = maxocc*real(2*la + 1,
dp)
1396 IF (econf(la) > 0.0_dp)
THEN
1397 IF (econf(la) >= nelec)
THEN
1399 econf(la) = econf(la) - nelec
1401 paa = maxocc*econf(la)/nelec
1403 ncount = ncount + nint(nelec/maxocc)
1405 DO isgfa = first_sgfa(ishell, iset), last_sgfa(ishell, iset)
1407 atom_a = atom_list(iatom)
1408 isgf = first_sgf(atom_a) + isgfa - 1
1410 IF (paa == maxocc)
THEN
1411 trps1 = trps1 + paa*sdiag(isgf)
1413 trps2 = trps2 + paa*sdiag(isgf)
1423 IF (trps2 == 0.0_dp)
THEN
1425 IF (sdiag(isgf) > 0.0_dp) pdiag(isgf) = pdiag(isgf)/sdiag(isgf)
1428 IF (nelectron_spin(ispin) /= 0)
THEN
1429 matrix_p => pmat(ispin)%matrix
1430 CALL dbcsr_set_diag(matrix_p, pdiag)
1435 IF (nelectron_spin(ispin) /= 0)
THEN
1436 rscale = (real(nelectron_spin(ispin),
dp) - trps1)/trps2
1438 IF (pdiag(isgf) < maxocc) pdiag(isgf) = rscale*pdiag(isgf)
1440 matrix_p => pmat(ispin)%matrix
1441 CALL dbcsr_set_diag(matrix_p, pdiag)
1443 IF (pdiag(isgf) < maxocc) pdiag(isgf) = pdiag(isgf)/rscale
1452 DEALLOCATE (first_sgf)
1458 CALL timestop(handle)
calculate the orbitals for a given atomic kind type
subroutine, public calculate_atomic_orbitals(atomic_kind, qs_kind, agrid, iunit, pmat, fmat, density, wavefunction, wfninfo, confine, xc_section, nocc)
...
Define the atomic kind types and their sub types.
subroutine, public get_atomic_kind_set(atomic_kind_set, atom_of_kind, kind_of, natom_of_kind, maxatom, natom, nshell, fist_potential_present, shell_present, shell_adiabatic, shell_check_distance, damping_present)
Get attributes of an atomic kind set.
subroutine, public get_atomic_kind(atomic_kind, fist_potential, element_symbol, name, mass, kind_number, natom, atom_list, rcov, rvdw, z, qeff, apol, cpol, mm_radius, shell, shell_active, damping)
Get attributes of an atomic kind.
subroutine, public get_gto_basis_set(gto_basis_set, name, aliases, norm_type, kind_radius, ncgf, nset, nsgf, cgf_symbol, sgf_symbol, norm_cgf, set_radius, lmax, lmin, lx, ly, lz, m, ncgf_set, npgf, nsgf_set, nshell, cphi, pgf_radius, sphi, scon, zet, first_cgf, first_sgf, l, last_cgf, last_sgf, n, gcc, maxco, maxl, maxpgf, maxsgf_set, maxshell, maxso, nco_sum, npgf_sum, nshell_sum, maxder, short_kind_radius)
...
Defines control structures, which contain the parameters and the settings for the DFT-based calculati...
DBCSR operations in CP2K.
subroutine, public cp_dbcsr_sm_fm_multiply(matrix, fm_in, fm_out, ncol, alpha, beta)
multiply a dbcsr with a fm matrix
subroutine, public copy_dbcsr_to_fm(matrix, fm)
Copy a DBCSR matrix to a BLACS matrix.
subroutine, public cp_fm_to_dbcsr_row_template(matrix, fm_in, template)
Utility function to copy a specially shaped fm to dbcsr_matrix The result matrix will be the matrix i...
subroutine, public copy_fm_to_dbcsr(fm, matrix, keep_sparsity)
Copy a BLACS matrix to a dbcsr matrix.
various cholesky decomposition related routines
subroutine, public cp_fm_cholesky_decompose(matrix, n, info_out)
used to replace a symmetric positive def. matrix M with its cholesky decomposition U: M = U^T * U,...
represent the structure of a full matrix
subroutine, public cp_fm_struct_create(fmstruct, para_env, context, nrow_global, ncol_global, nrow_block, ncol_block, descriptor, first_p_pos, local_leading_dimension, template_fmstruct, square_blocks, force_block)
allocates and initializes a full matrix structure
subroutine, public cp_fm_struct_get(fmstruct, para_env, context, descriptor, ncol_block, nrow_block, nrow_global, ncol_global, first_p_pos, row_indices, col_indices, nrow_local, ncol_local, nrow_locals, ncol_locals, local_leading_dimension)
returns the values of various attributes of the matrix structure
subroutine, public cp_fm_struct_release(fmstruct)
releases a full matrix structure
represent a full matrix distributed on many processors
subroutine, public cp_fm_get_info(matrix, name, nrow_global, ncol_global, nrow_block, ncol_block, nrow_local, ncol_local, row_indices, col_indices, local_data, context, nrow_locals, ncol_locals, matrix_struct, para_env)
returns all kind of information about the full matrix
subroutine, public cp_fm_set_submatrix(fm, new_values, start_row, start_col, n_rows, n_cols, alpha, beta, transpose)
sets a submatrix of a full matrix fm(start_row:start_row+n_rows,start_col:start_col+n_cols) = alpha*o...
subroutine, public cp_fm_set_all(matrix, alpha, beta)
set all elements of a matrix to the same value, and optionally the diagonal to a different one
subroutine, public cp_fm_get_submatrix(fm, target_m, start_row, start_col, n_rows, n_cols, transpose)
gets a submatrix of a full matrix op(target_m)(1:n_rows,1:n_cols) =fm(start_row:start_row+n_rows,...
subroutine, public cp_fm_init_random(matrix, ncol, start_col)
fills a matrix with random numbers
subroutine, public cp_fm_create(matrix, matrix_struct, name, use_sp)
creates a new full matrix with the given structure
various routines to log and control the output. The idea is that decisions about where to log should ...
integer function, public cp_logger_get_default_io_unit(logger)
returns the unit nr for the ionode (-1 on all other processors) skips as well checks if the procs cal...
type(cp_logger_type) function, pointer, public cp_get_default_logger()
returns the default logger
routines to handle the output, The idea is to remove the decision of wheter to output and what to out...
integer function, public cp_print_key_unit_nr(logger, basis_section, print_key_path, extension, middle_name, local, log_filename, ignore_should_output, file_form, file_position, file_action, file_status, do_backup, on_file, is_new_file, mpi_io, fout)
...
subroutine, public cp_print_key_finished_output(unit_nr, logger, basis_section, print_key_path, local, ignore_should_output, on_file, mpi_io)
should be called after you finish working with a unit obtained with cp_print_key_unit_nr,...
Definition of the atomic potential types.
Types and set/get functions for HFX.
Defines the basic variable types.
integer, parameter, public dp
integer, parameter, public default_path_length
Restart file for k point calculations.
subroutine, public read_kpoints_restart(denmat, kpoints, fmwork, natom, para_env, id_nr, dft_section, natom_mismatch)
...
Types and basic routines needed for a kpoint calculation.
Interface to the message passing library MPI.
Define methods related to particle_type.
subroutine, public get_particle_set(particle_set, qs_kind_set, first_sgf, last_sgf, nsgf, nmao, basis)
Get the components of a particle set.
Define the data structure for the particle information.
Routine to return block diagonal density matrix. Blocks correspond to the atomic densities.
subroutine, public calculate_atomic_block_dm(pmatrix, matrix_s, atomic_kind_set, qs_kind_set, nspin, nelectron_spin, ounit, para_env)
returns a block diagonal density matrix. Blocks correspond to the atomic densities.
collects routines that calculate density matrices
Working with the DFTB parameter types.
subroutine, public get_dftb_atom_param(dftb_parameter, name, typ, defined, z, zeff, natorb, lmax, skself, occupation, eta, energy, cutoff, xi, di, rcdisp, dudq)
...
subroutine, public get_qs_env(qs_env, atomic_kind_set, qs_kind_set, cell, super_cell, cell_ref, use_ref_cell, kpoints, dft_control, mos, sab_orb, sab_all, qmmm, qmmm_periodic, sac_ae, sac_ppl, sac_lri, sap_ppnl, sab_vdw, sab_scp, sap_oce, sab_lrc, sab_se, sab_xtbe, sab_tbe, sab_core, sab_xb, sab_xtb_nonbond, sab_almo, sab_kp, sab_kp_nosym, particle_set, energy, force, matrix_h, matrix_h_im, matrix_ks, matrix_ks_im, matrix_vxc, run_rtp, rtp, matrix_h_kp, matrix_h_im_kp, matrix_ks_kp, matrix_ks_im_kp, matrix_vxc_kp, kinetic_kp, matrix_s_kp, matrix_w_kp, matrix_s_RI_aux_kp, matrix_s, matrix_s_RI_aux, matrix_w, matrix_p_mp2, matrix_p_mp2_admm, rho, rho_xc, pw_env, ewald_env, ewald_pw, active_space, mpools, input, para_env, blacs_env, scf_control, rel_control, kinetic, qs_charges, vppl, rho_core, rho_nlcc, rho_nlcc_g, ks_env, ks_qmmm_env, wf_history, scf_env, local_particles, local_molecules, distribution_2d, dbcsr_dist, molecule_kind_set, molecule_set, subsys, cp_subsys, oce, local_rho_set, rho_atom_set, task_list, task_list_soft, rho0_atom_set, rho0_mpole, rhoz_set, ecoul_1c, rho0_s_rs, rho0_s_gs, do_kpoints, has_unit_metric, requires_mo_derivs, mo_derivs, mo_loc_history, nkind, natom, nelectron_total, nelectron_spin, efield, neighbor_list_id, linres_control, xas_env, virial, cp_ddapc_env, cp_ddapc_ewald, outer_scf_history, outer_scf_ihistory, x_data, et_coupling, dftb_potential, results, se_taper, se_store_int_env, se_nddo_mpole, se_nonbond_env, admm_env, lri_env, lri_density, exstate_env, ec_env, dispersion_env, gcp_env, vee, rho_external, external_vxc, mask, mp2_env, bs_env, kg_env, WannierCentres, atprop, ls_scf_env, do_transport, transport_env, v_hartree_rspace, s_mstruct_changed, rho_changed, potential_changed, forces_up_to_date, mscfg_env, almo_scf_env, gradient_history, variable_history, embed_pot, spin_embed_pot, polar_env, mos_last_converged, rhs)
Get the QUICKSTEP environment.
Routines to somehow generate an initial guess.
subroutine, public calculate_first_density_matrix(scf_env, qs_env)
can use a variety of methods to come up with an initial density matrix and optionally an initial wave...
subroutine, public calculate_mopac_dm(pmat, matrix_s, has_unit_metric, dft_control, particle_set, atomic_kind_set, qs_kind_set, nspin, nelectron_spin, para_env)
returns a block diagonal density matrix. Blocks correspond to the mopac initial guess.
subroutine, public calculate_atomic_fock_matrix(matrix_f, atomic_kind_set, qs_kind_set, ounit)
returns a block diagonal fock matrix.
Define the quickstep kind type and their sub types.
subroutine, public get_qs_kind(qs_kind, basis_set, basis_type, ncgf, nsgf, all_potential, tnadd_potential, gth_potential, sgp_potential, upf_potential, se_parameter, dftb_parameter, xtb_parameter, dftb3_param, zeff, elec_conf, mao, lmax_dftb, alpha_core_charge, ccore_charge, core_charge, core_charge_radius, paw_proj_set, paw_atom, hard_radius, hard0_radius, max_rad_local, covalent_radius, vdw_radius, gpw_r3d_rs_type_forced, harmonics, max_iso_not0, max_s_harm, grid_atom, ngrid_ang, ngrid_rad, lmax_rho0, dft_plus_u_atom, l_of_dft_plus_u, n_of_dft_plus_u, u_minus_j, U_of_dft_plus_u, J_of_dft_plus_u, alpha_of_dft_plus_u, beta_of_dft_plus_u, J0_of_dft_plus_u, occupation_of_dft_plus_u, dispersion, bs_occupation, magnetization, no_optimize, addel, laddel, naddel, orbitals, max_scf, eps_scf, smear, u_ramping, u_minus_j_target, eps_u_ramping, init_u_ramping_each_scf, reltmat, ghost, floating, name, element_symbol, pao_basis_size, pao_potentials, pao_descriptors, nelec)
Get attributes of an atomic kind.
subroutine, public get_qs_kind_set(qs_kind_set, all_potential_present, tnadd_potential_present, gth_potential_present, sgp_potential_present, paw_atom_present, dft_plus_u_atom_present, maxcgf, maxsgf, maxco, maxco_proj, maxgtops, maxlgto, maxlprj, maxnset, maxsgf_set, ncgf, npgf, nset, nsgf, nshell, maxpol, maxlppl, maxlppnl, maxppnl, nelectron, maxder, max_ngrid_rad, max_sph_harm, maxg_iso_not0, lmax_rho0, basis_rcut, basis_type, total_zeff_corr)
Get attributes of an atomic kind set.
Definition and initialisation of the mo data type.
subroutine, public wfn_restart_file_name(filename, exist, section, logger, kp, xas, rtp)
...
subroutine, public read_mo_set_from_restart(mo_array, atomic_kind_set, qs_kind_set, particle_set, para_env, id_nr, multiplicity, dft_section, natom_mismatch, cdft, out_unit)
...
collects routines that perform operations directly related to MOs
subroutine, public make_basis_simple(vmatrix, ncol)
given a set of vectors, return an orthogonal (C^T C == 1) set spanning the same space (notice,...
subroutine, public make_basis_lowdin(vmatrix, ncol, matrix_s)
return a set of S orthonormal vectors (C^T S C == 1) where a Loedwin transformation is applied to kee...
subroutine, public make_basis_sm(vmatrix, ncol, matrix_s)
returns an S-orthonormal basis v (v^T S v ==1)
Set occupation of molecular orbitals.
Definition and initialisation of the mo data type.
subroutine, public mo_set_restrict(mo_array, convert_dbcsr)
make the beta orbitals explicitly equal to the alpha orbitals effectively copying the orbital data
subroutine, public get_mo_set(mo_set, maxocc, homo, lfomo, nao, nelectron, n_el_f, nmo, eigenvalues, occupation_numbers, mo_coeff, mo_coeff_b, uniform_occupation, kTS, mu, flexible_electron_count)
Get the components of a MO set data structure.
subroutine, public reassign_allocated_mos(mo_set_new, mo_set_old)
reassign an already allocated mo_set
methods for deltaSCF calculations
subroutine, public do_mom_guess(nspins, mos, scf_control, p_rmpv)
initial guess for the maximum overlap method
methods of the rho structure (defined in qs_rho_types)
subroutine, public qs_rho_update_rho(rho_struct, qs_env, rho_xc_external, local_rho_set, task_list_external, task_list_external_soft, pw_env_external, para_env_external)
updates rho_r and rho_g to the rhorho_ao. if use_kinetic_energy_density also computes tau_r and tau_g...
superstucture that hold various representations of the density and keeps track of which ones are vali...
subroutine, public qs_rho_get(rho_struct, rho_ao, rho_ao_im, rho_ao_kp, rho_ao_im_kp, rho_r, drho_r, rho_g, drho_g, tau_r, tau_g, rho_r_valid, drho_r_valid, rho_g_valid, drho_g_valid, tau_r_valid, tau_g_valid, tot_rho_r, tot_rho_g, rho_r_sccs, soft_valid, complex_rho_ao)
returns info about the density described by this object. If some representation is not available an e...
groups fairly general SCF methods, so that modules other than qs_scf can use them too split off from ...
subroutine, public eigensolver_simple(matrix_ks, mo_set, work, do_level_shift, level_shift, use_jacobi, jacobi_threshold)
...
subroutine, public eigensolver(matrix_ks_fm, mo_set, ortho, work, cholesky_method, do_level_shift, level_shift, matrix_u_fm, use_jacobi)
Diagonalise the Kohn-Sham matrix to get a new set of MO eigen- vectors and MO eigenvalues....
module that contains the definitions of the scf types
integer, parameter, public ot_diag_method_nr
integer, parameter, public block_davidson_diag_method_nr
integer, parameter, public block_krylov_diag_method_nr
integer, parameter, public general_diag_method_nr
Storage of past states of the qs_env. Methods to interpolate (or actually normally extrapolate) the n...
subroutine, public wfi_update(wf_history, qs_env, dt)
updates the snapshot buffer, taking a new snapshot
parameters that control an scf iteration
All kind of helpful little routines.
Definition of the xTB parameter types.
subroutine, public get_xtb_atom_param(xtb_parameter, symbol, aname, typ, defined, z, zeff, natorb, lmax, nao, lao, rcut, rcov, kx, eta, xgamma, alpha, zneff, nshell, nval, lval, kpoly, kappa, hen, zeta, occupation, electronegativity, chmax)
...