Line data Source code
1 : !--------------------------------------------------------------------------------------------------!
2 : ! CP2K: A general program to perform molecular dynamics simulations !
3 : ! Copyright 2000-2026 CP2K developers group <https://cp2k.org> !
4 : ! !
5 : ! SPDX-License-Identifier: GPL-2.0-or-later !
6 : !--------------------------------------------------------------------------------------------------!
7 :
8 : ! **************************************************************************************************
9 : !> \brief function that build the QS section of the input
10 : !> \par History
11 : !> 10.2005 moved out of input_cp2k [fawzi]
12 : !> 07.2024 moved out of input_cp2k_dft [JGH]
13 : !> \author fawzi
14 : ! **************************************************************************************************
15 : MODULE input_cp2k_qs
16 : USE bibliography, ONLY: &
17 : Andermatt2016, Brelaz1979, Dewar1977, Dewar1985, Golze2017a, Golze2017b, Iannuzzi2006, &
18 : Kolafa2004, Krack2000, Kuhne2007, Lippert1997, Lippert1999, Repasky2002, Rocha2006, &
19 : Schenter2008, Stewart1989, Stewart2007, Thiel1992, VanVoorhis2015, VandeVondele2005a, &
20 : VandeVondele2006
21 : USE cp_output_handling, ONLY: add_last_numeric,&
22 : cp_print_key_section_create,&
23 : low_print_level
24 : USE input_constants, ONLY: &
25 : do_ddapc_constraint, do_ddapc_restraint, do_full_density, do_gapw_gcs, do_gapw_gct, &
26 : do_gapw_log, do_lri_inv, do_lri_inv_auto, do_lri_pseudoinv_diag, do_lri_pseudoinv_svd, &
27 : do_method_am1, do_method_dftb, do_method_gapw, do_method_gapw_xc, do_method_gpw, &
28 : do_method_lrigpw, do_method_mndo, do_method_mndod, do_method_ofgpw, do_method_pdg, &
29 : do_method_pm3, do_method_pm6, do_method_pm6fm, do_method_pnnl, do_method_rigpw, &
30 : do_method_rm1, do_method_xtb, do_ppl_analytic, do_ppl_grid, do_pwgrid_ns_fullspace, &
31 : do_pwgrid_ns_halfspace, do_pwgrid_spherical, do_s2_constraint, do_s2_restraint, &
32 : do_spin_density, gapw_1c_large, gapw_1c_medium, gapw_1c_orb, gapw_1c_small, &
33 : gapw_1c_very_large, gaussian, numerical, slater, wfi_aspc_nr, wfi_frozen_method_nr, &
34 : wfi_gext_proj_nr, wfi_gext_proj_qtr_nr, wfi_linear_p_method_nr, wfi_linear_ps_method_nr, &
35 : wfi_linear_wf_method_nr, wfi_ps_method_nr, wfi_use_guess_method_nr, &
36 : wfi_use_prev_p_method_nr, wfi_use_prev_rho_r_method_nr, wfi_use_prev_wf_method_nr
37 : USE input_cp2k_distribution, ONLY: create_distribution_section
38 : USE input_cp2k_opt, ONLY: create_optimize_dmfet,&
39 : create_optimize_embed,&
40 : create_optimize_lri_basis_section
41 : USE input_cp2k_scf, ONLY: create_cdft_control_section
42 : USE input_cp2k_se, ONLY: create_se_control_section
43 : USE input_cp2k_tb, ONLY: create_dftb_control_section,&
44 : create_xtb_control_section
45 : USE input_keyword_types, ONLY: keyword_create,&
46 : keyword_release,&
47 : keyword_type
48 : USE input_section_types, ONLY: section_add_keyword,&
49 : section_add_subsection,&
50 : section_create,&
51 : section_release,&
52 : section_type
53 : USE input_val_types, ONLY: integer_t,&
54 : lchar_t,&
55 : real_t
56 : USE kinds, ONLY: dp
57 : USE pw_grids, ONLY: do_pw_grid_blocked_false,&
58 : do_pw_grid_blocked_free,&
59 : do_pw_grid_blocked_true
60 : USE string_utilities, ONLY: s2a
61 : #include "./base/base_uses.f90"
62 :
63 : IMPLICIT NONE
64 : PRIVATE
65 :
66 : CHARACTER(len=*), PARAMETER, PRIVATE :: moduleN = 'input_cp2k_qs'
67 :
68 : PUBLIC :: create_qs_section, create_lrigpw_section, create_ddapc_restraint_section
69 :
70 : CONTAINS
71 :
72 : ! **************************************************************************************************
73 : !> \brief creates the input section for the qs part
74 : !> \param section the section to create
75 : !> \author teo
76 : ! **************************************************************************************************
77 9598 : SUBROUTINE create_qs_section(section)
78 : TYPE(section_type), POINTER :: section
79 :
80 : TYPE(keyword_type), POINTER :: keyword
81 : TYPE(section_type), POINTER :: subsection
82 :
83 9598 : CPASSERT(.NOT. ASSOCIATED(section))
84 : CALL section_create(section, __LOCATION__, name="qs", &
85 : description="parameters needed to set up the Quickstep framework", &
86 9598 : n_keywords=1, n_subsections=0, repeats=.FALSE.)
87 :
88 9598 : NULLIFY (keyword, subsection)
89 :
90 : ! Reals
91 : CALL keyword_create(keyword, __LOCATION__, name="EPS_DEFAULT", &
92 : description="Try setting all EPS_xxx to values leading to an energy correct up to EPS_DEFAULT", &
93 9598 : usage="EPS_DEFAULT real", default_r_val=1.0E-10_dp)
94 9598 : CALL section_add_keyword(section, keyword)
95 9598 : CALL keyword_release(keyword)
96 :
97 : CALL keyword_create(keyword, __LOCATION__, name="EPS_CORE_CHARGE", &
98 : description="Precision for mapping the core charges.Overrides EPS_DEFAULT/100.0 value", &
99 9598 : usage="EPS_CORE_CHARGE real", type_of_var=real_t)
100 9598 : CALL section_add_keyword(section, keyword)
101 9598 : CALL keyword_release(keyword)
102 :
103 : CALL keyword_create( &
104 : keyword, __LOCATION__, name="EPS_GVG_RSPACE", &
105 : variants=["EPS_GVG"], &
106 : description="Sets precision of the realspace KS matrix element integration. Overrides SQRT(EPS_DEFAULT) value", &
107 19196 : usage="EPS_GVG_RSPACE real", type_of_var=real_t)
108 9598 : CALL section_add_keyword(section, keyword)
109 9598 : CALL keyword_release(keyword)
110 :
111 : CALL keyword_create(keyword, __LOCATION__, name="EPS_PGF_ORB", &
112 : description="Sets precision of the overlap matrix elements. Overrides SQRT(EPS_DEFAULT) value", &
113 9598 : usage="EPS_PGF_ORB real", type_of_var=real_t)
114 9598 : CALL section_add_keyword(section, keyword)
115 9598 : CALL keyword_release(keyword)
116 :
117 : CALL keyword_create( &
118 : keyword, __LOCATION__, name="EPS_KG_ORB", &
119 : description="Sets precision used in coloring the subsets for the Kim-Gordon method. Overrides SQRT(EPS_DEFAULT) value", &
120 : usage="EPS_KG_ORB 1.0E-8", &
121 9598 : type_of_var=real_t)
122 9598 : CALL section_add_keyword(section, keyword)
123 9598 : CALL keyword_release(keyword)
124 :
125 : CALL keyword_create(keyword, __LOCATION__, name="EPS_PPL", &
126 : description="Adjusts the precision for the local part of the pseudo potential. ", &
127 9598 : usage="EPS_PPL real", type_of_var=real_t, default_r_val=1.0E-2_dp)
128 9598 : CALL section_add_keyword(section, keyword)
129 9598 : CALL keyword_release(keyword)
130 :
131 : CALL keyword_create( &
132 : keyword, __LOCATION__, name="EPS_PPNL", &
133 : description="Sets precision of the non-local part of the pseudo potential. Overrides sqrt(EPS_DEFAULT) value", &
134 9598 : usage="EPS_PPNL real", type_of_var=real_t)
135 9598 : CALL section_add_keyword(section, keyword)
136 9598 : CALL keyword_release(keyword)
137 :
138 : CALL keyword_create(keyword, __LOCATION__, name="EPS_CPC", &
139 : description="Sets precision of the GAPW projection. Overrides EPS_DEFAULT value", &
140 9598 : usage="EPS_CPC real", type_of_var=real_t)
141 9598 : CALL section_add_keyword(section, keyword)
142 9598 : CALL keyword_release(keyword)
143 :
144 : CALL keyword_create(keyword, __LOCATION__, name="EPS_RHO", &
145 : description="Sets precision of the density mapping on the grids.Overrides EPS_DEFAULT value", &
146 9598 : usage="EPS_RHO real", type_of_var=real_t)
147 9598 : CALL section_add_keyword(section, keyword)
148 9598 : CALL keyword_release(keyword)
149 :
150 : CALL keyword_create(keyword, __LOCATION__, name="EPS_RHO_RSPACE", &
151 : description="Sets precision of the density mapping in rspace.Overrides EPS_DEFAULT value."// &
152 : " Overrides EPS_RHO value", &
153 9598 : usage="EPS_RHO_RSPACE real", type_of_var=real_t)
154 9598 : CALL section_add_keyword(section, keyword)
155 9598 : CALL keyword_release(keyword)
156 :
157 : CALL keyword_create(keyword, __LOCATION__, name="EPS_RHO_GSPACE", &
158 : description="Sets precision of the density mapping in gspace.Overrides EPS_DEFAULT value."// &
159 : " Overrides EPS_RHO value", &
160 9598 : usage="EPS_RHO_GSPACE real", type_of_var=real_t)
161 9598 : CALL section_add_keyword(section, keyword)
162 9598 : CALL keyword_release(keyword)
163 :
164 : CALL keyword_create(keyword, __LOCATION__, name="EPS_FILTER_MATRIX", &
165 : description="Sets the threshold for filtering matrix elements.", &
166 9598 : usage="EPS_FILTER_MATRIX 1.0E-6", type_of_var=real_t, default_r_val=0.0E0_dp)
167 9598 : CALL section_add_keyword(section, keyword)
168 9598 : CALL keyword_release(keyword)
169 :
170 : CALL keyword_create(keyword, __LOCATION__, name="EPSFIT", &
171 : variants=["EPS_FIT"], &
172 : description="GAPW: precision to give the extension of a hard gaussian ", &
173 19196 : usage="EPSFIT real", default_r_val=1.0E-4_dp)
174 9598 : CALL section_add_keyword(section, keyword)
175 9598 : CALL keyword_release(keyword)
176 :
177 : CALL keyword_create(keyword, __LOCATION__, name="EPSISO", &
178 : variants=["EPS_ISO"], &
179 : description="GAPW: precision to determine an isolated projector", &
180 19196 : usage="EPSISO real", default_r_val=1.0E-12_dp)
181 9598 : CALL section_add_keyword(section, keyword)
182 9598 : CALL keyword_release(keyword)
183 :
184 : CALL keyword_create(keyword, __LOCATION__, name="EPSSVD", &
185 : variants=["EPS_SVD"], &
186 : description="GAPW: tolerance used in the singular value decomposition of the projector matrix", &
187 19196 : usage="EPS_SVD real", default_r_val=1.0E-8_dp)
188 9598 : CALL section_add_keyword(section, keyword)
189 9598 : CALL keyword_release(keyword)
190 :
191 : CALL keyword_create(keyword, __LOCATION__, name="EPSRHO0", &
192 : variants=s2a("EPSVRHO0", "EPS_VRHO0"), &
193 : description="GAPW : precision to determine the range of V(rho0-rho0soft)", &
194 9598 : usage="EPSRHO0 real", default_r_val=1.0E-6_dp)
195 9598 : CALL section_add_keyword(section, keyword)
196 9598 : CALL keyword_release(keyword)
197 :
198 : CALL keyword_create(keyword, __LOCATION__, name="ALPHA0_HARD", &
199 : variants=s2a("ALPHA0_H", "ALPHA0"), &
200 : description="GAPW: Exponent for hard compensation charge", &
201 9598 : usage="ALPHA0_HARD real", default_r_val=0.0_dp)
202 9598 : CALL section_add_keyword(section, keyword)
203 9598 : CALL keyword_release(keyword)
204 :
205 : CALL keyword_create( &
206 : keyword, __LOCATION__, name="FORCE_PAW", &
207 : description="Use the GAPW scheme also for atoms with soft basis sets, i.e. "// &
208 : "the local densities are computed even if hard and soft should be equal. "// &
209 : "If this keyword is not set to true, those atoms with soft basis sets are treated by a GPW scheme, i.e. "// &
210 : "the corresponding density contribution goes on the global grid and is expanded in PW. "// &
211 : "This option nullifies the effect of the GPW_TYPE in the atomic KIND", &
212 : usage="FORCE_PAW", &
213 9598 : default_l_val=.FALSE., lone_keyword_l_val=.TRUE.)
214 9598 : CALL section_add_keyword(section, keyword)
215 9598 : CALL keyword_release(keyword)
216 :
217 : CALL keyword_create(keyword, __LOCATION__, name="MAX_RAD_LOCAL", &
218 : description="GAPW : maximum radius of gaussian functions"// &
219 : " included in the generation of projectors", &
220 9598 : usage="MAX_RAD_LOCAL real", default_r_val=25.0_dp)
221 9598 : CALL section_add_keyword(section, keyword)
222 9598 : CALL keyword_release(keyword)
223 :
224 : CALL keyword_create(keyword, __LOCATION__, name="GAPW_1C_BASIS", &
225 : description="Specifies how to construct the GAPW one center basis set. "// &
226 : "Default is to use the primitives from the orbital basis.", &
227 : usage="GAPW_1C_BASIS MEDIUM", &
228 : enum_c_vals=s2a("ORB", "EXT_SMALL", "EXT_MEDIUM", "EXT_LARGE", "EXT_VERY_LARGE"), &
229 : enum_desc=s2a("Use orbital basis set.", &
230 : "Extension using Small number of primitive Gaussians.", &
231 : "Extension using Medium number of primitive Gaussians.", &
232 : "Extension using Large number of primitive Gaussians.", &
233 : "Extension using Very Large number of primitive Gaussians."), &
234 : enum_i_vals=[gapw_1c_orb, gapw_1c_small, gapw_1c_medium, &
235 : gapw_1c_large, gapw_1c_very_large], &
236 9598 : default_i_val=gapw_1c_orb)
237 9598 : CALL section_add_keyword(section, keyword)
238 9598 : CALL keyword_release(keyword)
239 :
240 : CALL keyword_create( &
241 : keyword, __LOCATION__, name="GAPW_ACCURATE_XCINT", &
242 : description="Use a more accurate integration scheme for the soft XC energy in GAPW.", &
243 : usage="GAPW_ACCURATE_XCINT", &
244 9598 : default_l_val=.FALSE., lone_keyword_l_val=.TRUE.)
245 9598 : CALL section_add_keyword(section, keyword)
246 9598 : CALL keyword_release(keyword)
247 :
248 : CALL keyword_create( &
249 : keyword, __LOCATION__, name="ALPHA_WEIGHTS", &
250 : description="Gaussian exponent reference (rc=1.2 Bohr) for accurate integration in GAPW.", &
251 9598 : usage="ALPHA_WEIGHTS 10.0", default_r_val=6.0_dp)
252 9598 : CALL section_add_keyword(section, keyword)
253 9598 : CALL keyword_release(keyword)
254 :
255 : CALL keyword_create(keyword, __LOCATION__, name="MIN_PAIR_LIST_RADIUS", &
256 : description="Set the minimum value [Bohr] for the overlap pair list radius."// &
257 : " Default is 0.0 Bohr, negative values are changed to the cell size."// &
258 : " This allows to control the sparsity of the KS matrix for HFX calculations.", &
259 9598 : usage="MIN_PAIR_LIST_RADIUS real", default_r_val=0.0_dp)
260 9598 : CALL section_add_keyword(section, keyword)
261 9598 : CALL keyword_release(keyword)
262 :
263 : ! Logicals
264 : CALL keyword_create(keyword, __LOCATION__, name="LS_SCF", &
265 : description="Perform a linear scaling SCF", &
266 : usage="LS_SCF", lone_keyword_l_val=.TRUE., &
267 9598 : default_l_val=.FALSE.)
268 9598 : CALL section_add_keyword(section, keyword)
269 9598 : CALL keyword_release(keyword)
270 :
271 : CALL keyword_create(keyword, __LOCATION__, name="ALMO_SCF", &
272 : description="Perform ALMO SCF", &
273 : usage="ALMO_SCF", lone_keyword_l_val=.TRUE., &
274 9598 : default_l_val=.FALSE.)
275 9598 : CALL section_add_keyword(section, keyword)
276 9598 : CALL keyword_release(keyword)
277 :
278 : CALL keyword_create(keyword, __LOCATION__, name="TRANSPORT", &
279 : description="Perform transport calculations (coupling CP2K and OMEN)", &
280 : usage="TRANSPORT", lone_keyword_l_val=.TRUE., &
281 9598 : default_l_val=.FALSE.)
282 9598 : CALL section_add_keyword(section, keyword)
283 9598 : CALL keyword_release(keyword)
284 :
285 : CALL keyword_create(keyword, __LOCATION__, name="KG_METHOD", &
286 : description="Use a Kim-Gordon-like scheme.", &
287 : usage="KG_METHOD", lone_keyword_l_val=.TRUE., &
288 38392 : default_l_val=.FALSE., citations=[Iannuzzi2006, Brelaz1979, Andermatt2016])
289 9598 : CALL section_add_keyword(section, keyword)
290 9598 : CALL keyword_release(keyword)
291 :
292 : CALL keyword_create(keyword, __LOCATION__, name="REF_EMBED_SUBSYS", &
293 : description="A total, reference, system in DFT embedding. ", &
294 : usage="REF_EMBED_SUBSYS FALSE", &
295 9598 : default_l_val=.FALSE., lone_keyword_l_val=.TRUE.)
296 9598 : CALL section_add_keyword(section, keyword)
297 9598 : CALL keyword_release(keyword)
298 :
299 : CALL keyword_create(keyword, __LOCATION__, name="CLUSTER_EMBED_SUBSYS", &
300 : description="A cluster treated with DFT in DFT embedding. ", &
301 : usage="CLUSTER_EMBED_SUBSYS FALSE", &
302 9598 : default_l_val=.FALSE., lone_keyword_l_val=.TRUE.)
303 9598 : CALL section_add_keyword(section, keyword)
304 9598 : CALL keyword_release(keyword)
305 :
306 : CALL keyword_create(keyword, __LOCATION__, name="HIGH_LEVEL_EMBED_SUBSYS", &
307 : description="A cluster treated with a high-level method in DFT embedding. ", &
308 : usage="HIGH_LEVEL_EMBED_SUBSYS FALSE", &
309 9598 : default_l_val=.FALSE., lone_keyword_l_val=.TRUE.)
310 9598 : CALL section_add_keyword(section, keyword)
311 9598 : CALL keyword_release(keyword)
312 :
313 : CALL keyword_create(keyword, __LOCATION__, name="DFET_EMBEDDED", &
314 : description="Calculation with DFT-embedding potential. ", &
315 : usage="DFET_EMBEDDED FALSE", &
316 9598 : default_l_val=.FALSE., lone_keyword_l_val=.TRUE.)
317 9598 : CALL section_add_keyword(section, keyword)
318 9598 : CALL keyword_release(keyword)
319 :
320 : CALL keyword_create(keyword, __LOCATION__, name="DMFET_EMBEDDED", &
321 : description="Calculation with DM embedding potential. ", &
322 : usage="DMFET_EMBEDDED FALSE", &
323 9598 : default_l_val=.FALSE., lone_keyword_l_val=.TRUE.)
324 9598 : CALL section_add_keyword(section, keyword)
325 9598 : CALL keyword_release(keyword)
326 :
327 : ! Integers
328 : CALL keyword_create(keyword, __LOCATION__, name="STO_NG", &
329 : description="Order of Gaussian type expansion of Slater orbital basis sets.", &
330 9598 : usage="STO_NG", default_i_val=6)
331 9598 : CALL section_add_keyword(section, keyword)
332 9598 : CALL keyword_release(keyword)
333 :
334 : CALL keyword_create(keyword, __LOCATION__, name="LMAXN1", &
335 : variants=["LMAXRHO1"], &
336 : description="GAPW : max L number for expansion of the atomic densities in spherical gaussians", &
337 : usage="LMAXN1 integer", &
338 19196 : default_i_val=-1)
339 9598 : CALL section_add_keyword(section, keyword)
340 9598 : CALL keyword_release(keyword)
341 :
342 : CALL keyword_create(keyword, __LOCATION__, name="LMAXN0", &
343 : variants=["LMAXRHO0"], &
344 : description="GAPW : max L number for the expansion compensation densities in spherical gaussians", &
345 : usage="LMAXN0 integer", &
346 19196 : default_i_val=2)
347 9598 : CALL section_add_keyword(section, keyword)
348 9598 : CALL keyword_release(keyword)
349 :
350 : CALL keyword_create(keyword, __LOCATION__, name="LADDN0", &
351 : description="GAPW : integer added to the max L of the basis set, used to determine the "// &
352 : "maximum value of L for the compensation charge density.", &
353 : usage="LADDN0 integer", &
354 9598 : default_i_val=99)
355 9598 : CALL section_add_keyword(section, keyword)
356 9598 : CALL keyword_release(keyword)
357 :
358 : ! Characters
359 : CALL keyword_create(keyword, __LOCATION__, name="QUADRATURE", &
360 : description="GAPW: algorithm to construct the atomic radial grids", &
361 : usage="QUADRATURE GC_SIMPLE", &
362 : enum_c_vals=s2a("GC_SIMPLE", "GC_TRANSFORMED", "GC_LOG"), &
363 : enum_i_vals=[do_gapw_gcs, do_gapw_gct, do_gapw_log], &
364 : enum_desc=s2a("Gauss-Chebyshev quadrature", &
365 : "Transformed Gauss-Chebyshev quadrature", &
366 : "Logarithmic transformed Gauss-Chebyshev quadrature"), &
367 9598 : default_i_val=do_gapw_log)
368 9598 : CALL section_add_keyword(section, keyword)
369 9598 : CALL keyword_release(keyword)
370 :
371 : CALL keyword_create(keyword, __LOCATION__, name="PW_GRID", &
372 : description="What kind of PW_GRID should be employed", &
373 : usage="PW_GRID NS-FULLSPACE", &
374 : enum_c_vals=s2a("SPHERICAL", "NS-FULLSPACE", "NS-HALFSPACE"), &
375 : enum_desc=s2a("- not tested", " tested", " - not tested"), &
376 : enum_i_vals=[do_pwgrid_spherical, do_pwgrid_ns_fullspace, do_pwgrid_ns_halfspace], &
377 9598 : default_i_val=do_pwgrid_ns_fullspace)
378 9598 : CALL section_add_keyword(section, keyword)
379 9598 : CALL keyword_release(keyword)
380 :
381 : CALL keyword_create(keyword, __LOCATION__, name="PW_GRID_LAYOUT", &
382 : description="Force a particular real-space layout for the plane waves grids. "// &
383 : "Numbers ≤ 0 mean that this dimension is free, incorrect layouts will be ignored. "// &
384 : "The default (/-1,-1/) causes CP2K to select a good value, "// &
385 : "i.e. plane distributed for large grids, more general distribution for small grids.", &
386 : usage="PW_GRID_LAYOUT 4 16", &
387 : repeats=.FALSE., n_var=2, &
388 9598 : default_i_vals=[-1, -1])
389 9598 : CALL section_add_keyword(section, keyword)
390 9598 : CALL keyword_release(keyword)
391 :
392 : CALL keyword_create(keyword, __LOCATION__, name="PW_GRID_BLOCKED", &
393 : description="Can be used to set the distribution in g-space for the pw grids and their FFT.", &
394 : usage="PW_GRID_BLOCKED FREE", &
395 : enum_c_vals=s2a("FREE", "TRUE", "FALSE"), &
396 : enum_desc=s2a("CP2K will select an appropriate value", "blocked", "not blocked"), &
397 : enum_i_vals=[do_pw_grid_blocked_free, do_pw_grid_blocked_true, do_pw_grid_blocked_false], &
398 9598 : default_i_val=do_pw_grid_blocked_free)
399 9598 : CALL section_add_keyword(section, keyword)
400 9598 : CALL keyword_release(keyword)
401 :
402 : CALL keyword_create( &
403 : keyword, __LOCATION__, name="EXTRAPOLATION", &
404 : variants=s2a("INTERPOLATION", "WF_INTERPOLATION"), &
405 : description="Extrapolation strategy for the wavefunction during e.g. MD. "// &
406 : "Not all options are available for all simulation methods. "// &
407 : "PS and ASPC are recommended, see also EXTRAPOLATION_ORDER.", &
408 : citations=[Kolafa2004, VandeVondele2005a, Kuhne2007], &
409 : usage="EXTRAPOLATION PS", &
410 : enum_c_vals=s2a("USE_GUESS", "USE_PREV_P", "USE_PREV_RHO_R", "LINEAR_WF", &
411 : "LINEAR_P", "LINEAR_PS", "USE_PREV_WF", "PS", "FROZEN", "ASPC", &
412 : "GEXT_PROJ", "GEXT_PROJ_QTR"), &
413 : enum_desc=s2a( &
414 : "Use the method specified with SCF_GUESS, i.e. no extrapolation", &
415 : "Use the previous density matrix", &
416 : "Use the previous density in real space", &
417 : "Linear extrapolation of the wavefunction (not available for k-points)", &
418 : "Linear extrapolation of the density matrix", &
419 : "Linear extrapolation of the density matrix times the overlap matrix (not available for k-points)", &
420 : "Use the previous wavefunction", &
421 : "Higher order extrapolation of the density matrix times the overlap matrix", &
422 : "Frozen ... (not available for k-points)", &
423 : "Always stable predictor corrector, similar to PS, but going for MD stability instead of initial guess accuracy.", &
424 : "GExt extrapolation for the density matrix times the overlap matrix.", &
425 : "Quasi time reversible GExt extrapolation for the density matrix times the overlap matrix."), &
426 : enum_i_vals=[ &
427 : wfi_use_guess_method_nr, &
428 : wfi_use_prev_p_method_nr, &
429 : wfi_use_prev_rho_r_method_nr, &
430 : wfi_linear_wf_method_nr, &
431 : wfi_linear_p_method_nr, &
432 : wfi_linear_ps_method_nr, &
433 : wfi_use_prev_wf_method_nr, &
434 : wfi_ps_method_nr, &
435 : wfi_frozen_method_nr, &
436 : wfi_aspc_nr, &
437 : wfi_gext_proj_nr, &
438 : wfi_gext_proj_qtr_nr], &
439 38392 : default_i_val=wfi_aspc_nr)
440 9598 : CALL section_add_keyword(section, keyword)
441 9598 : CALL keyword_release(keyword)
442 :
443 : CALL keyword_create(keyword, __LOCATION__, name="EXTRAPOLATION_ORDER", &
444 : description="Order for the PS, ASPC extrapolation (typically 2-4) or "// &
445 : "order for the GEXT_PROJ, GEXT_PROJ_QTR extrapolation (typically 4-10). "// &
446 : "Higher order might bring more accuracy, but comes, "// &
447 : "for large systems, also at some cost. "// &
448 : "In some cases, a high order extrapolation is not stable,"// &
449 : " and the order needs to be reduced.", &
450 9598 : usage="EXTRAPOLATION_ORDER {integer}", default_i_val=3)
451 9598 : CALL section_add_keyword(section, keyword)
452 9598 : CALL keyword_release(keyword)
453 :
454 : CALL keyword_create(keyword, __LOCATION__, name="METHOD", &
455 : description="Specifies the electronic structure method that should be employed", &
456 : usage="METHOD GAPW", &
457 : enum_c_vals=s2a("GAPW", "GAPW_XC", "GPW", "LRIGPW", "RIGPW", &
458 : "MNDO", "MNDOD", "AM1", "PM3", "PM6", "PM6-FM", "PDG", "RM1", "PNNL", "DFTB", "xTB", "OFGPW"), &
459 : enum_desc=s2a("Gaussian and augmented plane waves method", &
460 : "Gaussian and augmented plane waves method only for XC", &
461 : "Gaussian and plane waves method", &
462 : "Local resolution of identity method", &
463 : "Resolution of identity method for HXC terms", &
464 : "MNDO semiempirical", "MNDO-d semiempirical", "AM1 semiempirical", &
465 : "PM3 semiempirical", "PM6 semiempirical", "PM6-FM semiempirical", "PDG semiempirical", &
466 : "RM1 semiempirical", &
467 : "PNNL semiempirical", &
468 : "DFTB Density Functional based Tight-Binding", &
469 : "GFN-xTB Extended Tight-Binding", &
470 : "OFGPW Orbital-free GPW method"), &
471 : enum_i_vals=[do_method_gapw, do_method_gapw_xc, do_method_gpw, do_method_lrigpw, do_method_rigpw, &
472 : do_method_mndo, do_method_mndod, do_method_am1, do_method_pm3, &
473 : do_method_pm6, do_method_pm6fm, do_method_pdg, do_method_rm1, &
474 : do_method_pnnl, do_method_dftb, do_method_xtb, do_method_ofgpw], &
475 : citations=[Lippert1997, Lippert1999, Krack2000, VandeVondele2005a, &
476 : VandeVondele2006, Dewar1977, Dewar1985, Rocha2006, Stewart1989, Thiel1992, &
477 : Repasky2002, Stewart2007, VanVoorhis2015, Schenter2008], &
478 143970 : default_i_val=do_method_gpw)
479 9598 : CALL section_add_keyword(section, keyword)
480 9598 : CALL keyword_release(keyword)
481 :
482 : CALL keyword_create(keyword, __LOCATION__, name="CORE_PPL", &
483 : description="Specifies the method used to calculate the local pseudopotential contribution.", &
484 : usage="CORE_PPL ANALYTIC", &
485 : enum_c_vals=s2a("ANALYTIC", "GRID"), &
486 : enum_desc=s2a("Analytic integration of integrals", &
487 : "Numerical integration on real space grid. Lumped together with core charge"), &
488 : enum_i_vals=[do_ppl_analytic, do_ppl_grid], &
489 9598 : default_i_val=do_ppl_analytic)
490 9598 : CALL section_add_keyword(section, keyword)
491 9598 : CALL keyword_release(keyword)
492 :
493 : CALL keyword_create(keyword, __LOCATION__, name="EMBED_RESTART_FILE_NAME", &
494 : description="Root of the file name where to read the embedding "// &
495 : "potential guess.", &
496 : usage="EMBED_RESTART_FILE_NAME <FILENAME>", &
497 9598 : type_of_var=lchar_t)
498 9598 : CALL section_add_keyword(section, keyword)
499 9598 : CALL keyword_release(keyword)
500 :
501 : CALL keyword_create(keyword, __LOCATION__, name="EMBED_CUBE_FILE_NAME", &
502 : description="Root of the file name where to read the embedding "// &
503 : "potential (guess) as a cube.", &
504 : usage="EMBED_CUBE_FILE_NAME <FILENAME>", &
505 9598 : type_of_var=lchar_t)
506 9598 : CALL section_add_keyword(section, keyword)
507 9598 : CALL keyword_release(keyword)
508 :
509 : CALL keyword_create(keyword, __LOCATION__, name="EMBED_SPIN_CUBE_FILE_NAME", &
510 : description="Root of the file name where to read the spin part "// &
511 : "of the embedding potential (guess) as a cube.", &
512 : usage="EMBED_SPIN_CUBE_FILE_NAME <FILENAME>", &
513 9598 : type_of_var=lchar_t)
514 9598 : CALL section_add_keyword(section, keyword)
515 9598 : CALL keyword_release(keyword)
516 :
517 9598 : CALL create_distribution_section(subsection)
518 9598 : CALL section_add_subsection(section, subsection)
519 9598 : CALL section_release(subsection)
520 :
521 9598 : CALL create_dftb_control_section(subsection)
522 9598 : CALL section_add_subsection(section, subsection)
523 9598 : CALL section_release(subsection)
524 :
525 9598 : CALL create_xtb_control_section(subsection)
526 9598 : CALL section_add_subsection(section, subsection)
527 9598 : CALL section_release(subsection)
528 :
529 9598 : CALL create_se_control_section(subsection)
530 9598 : CALL section_add_subsection(section, subsection)
531 9598 : CALL section_release(subsection)
532 :
533 9598 : CALL create_mulliken_section(subsection)
534 9598 : CALL section_add_subsection(section, subsection)
535 9598 : CALL section_release(subsection)
536 :
537 9598 : CALL create_ddapc_restraint_section(subsection, "DDAPC_RESTRAINT")
538 9598 : CALL section_add_subsection(section, subsection)
539 9598 : CALL section_release(subsection)
540 :
541 9598 : CALL create_cdft_control_section(subsection)
542 9598 : CALL section_add_subsection(section, subsection)
543 9598 : CALL section_release(subsection)
544 :
545 9598 : CALL create_s2_restraint_section(subsection)
546 9598 : CALL section_add_subsection(section, subsection)
547 9598 : CALL section_release(subsection)
548 :
549 9598 : CALL create_lrigpw_section(subsection)
550 9598 : CALL section_add_subsection(section, subsection)
551 9598 : CALL section_release(subsection)
552 :
553 9598 : CALL create_optimize_lri_basis_section(subsection)
554 9598 : CALL section_add_subsection(section, subsection)
555 9598 : CALL section_release(subsection)
556 :
557 : ! Embedding subsections: DFET and DMFET
558 9598 : CALL create_optimize_embed(subsection)
559 9598 : CALL section_add_subsection(section, subsection)
560 9598 : CALL section_release(subsection)
561 :
562 9598 : CALL create_optimize_dmfet(subsection)
563 9598 : CALL section_add_subsection(section, subsection)
564 9598 : CALL section_release(subsection)
565 :
566 9598 : END SUBROUTINE create_qs_section
567 :
568 : ! **************************************************************************************************
569 : !> \brief ...
570 : !> \param section ...
571 : ! **************************************************************************************************
572 9598 : SUBROUTINE create_mulliken_section(section)
573 : TYPE(section_type), POINTER :: section
574 :
575 : TYPE(keyword_type), POINTER :: keyword
576 :
577 9598 : NULLIFY (keyword)
578 9598 : CPASSERT(.NOT. ASSOCIATED(section))
579 : CALL section_create(section, __LOCATION__, name="MULLIKEN_RESTRAINT", &
580 : description="Use mulliken charges in a restraint (check code for details)", &
581 9598 : n_keywords=7, n_subsections=0, repeats=.FALSE.)
582 :
583 : CALL keyword_create(keyword, __LOCATION__, name="STRENGTH", &
584 : description="force constant of the restraint", &
585 9598 : usage="STRENGTH {real} ", default_r_val=0.1_dp)
586 9598 : CALL section_add_keyword(section, keyword)
587 9598 : CALL keyword_release(keyword)
588 :
589 : CALL keyword_create(keyword, __LOCATION__, name="TARGET", &
590 : description="target value of the restraint", &
591 9598 : usage="TARGET {real} ", default_r_val=1._dp)
592 9598 : CALL section_add_keyword(section, keyword)
593 9598 : CALL keyword_release(keyword)
594 :
595 : CALL keyword_create(keyword, __LOCATION__, name="ATOMS", &
596 : description="Specifies the list of atoms that is summed in the restraint", &
597 : usage="ATOMS {integer} {integer} .. {integer}", &
598 9598 : n_var=-1, type_of_var=integer_t)
599 9598 : CALL section_add_keyword(section, keyword)
600 9598 : CALL keyword_release(keyword)
601 :
602 9598 : END SUBROUTINE create_mulliken_section
603 :
604 : ! **************************************************************************************************
605 : !> \brief ...
606 : !> \param section ...
607 : !> \param section_name ...
608 : ! **************************************************************************************************
609 28762 : SUBROUTINE create_ddapc_restraint_section(section, section_name)
610 : TYPE(section_type), POINTER :: section
611 : CHARACTER(len=*), INTENT(in) :: section_name
612 :
613 : TYPE(keyword_type), POINTER :: keyword
614 : TYPE(section_type), POINTER :: print_key
615 :
616 28762 : NULLIFY (keyword, print_key)
617 0 : CPASSERT(.NOT. ASSOCIATED(section))
618 : CALL section_create(section, __LOCATION__, name=TRIM(ADJUSTL(section_name)), &
619 : description="Use DDAPC charges in a restraint (check code for details)", &
620 28762 : n_keywords=7, n_subsections=0, repeats=.TRUE.)
621 :
622 : CALL keyword_create(keyword, __LOCATION__, name="TYPE_OF_DENSITY", &
623 : description="Specifies the type of density used for the fitting", &
624 : usage="TYPE_OF_DENSITY (FULL|SPIN)", &
625 : enum_c_vals=s2a("FULL", "SPIN"), &
626 : enum_i_vals=[do_full_density, do_spin_density], &
627 : enum_desc=s2a("Full density", "Spin density"), &
628 28762 : default_i_val=do_full_density)
629 28762 : CALL section_add_keyword(section, keyword)
630 28762 : CALL keyword_release(keyword)
631 :
632 : CALL keyword_create(keyword, __LOCATION__, name="STRENGTH", &
633 : description="force constant of the restraint", &
634 28762 : usage="STRENGTH {real} ", default_r_val=0.1_dp)
635 28762 : CALL section_add_keyword(section, keyword)
636 28762 : CALL keyword_release(keyword)
637 :
638 : CALL keyword_create(keyword, __LOCATION__, name="TARGET", &
639 : description="target value of the restraint", &
640 28762 : usage="TARGET {real} ", default_r_val=1._dp)
641 28762 : CALL section_add_keyword(section, keyword)
642 28762 : CALL keyword_release(keyword)
643 :
644 : CALL keyword_create(keyword, __LOCATION__, name="ATOMS", &
645 : description="Specifies the list of atoms that is summed in the restraint", &
646 : usage="ATOMS {integer} {integer} .. {integer}", &
647 28762 : n_var=-1, type_of_var=integer_t)
648 28762 : CALL section_add_keyword(section, keyword)
649 28762 : CALL keyword_release(keyword)
650 :
651 : CALL keyword_create(keyword, __LOCATION__, name="COEFF", &
652 : description="Defines the the coefficient of the atom in the atom list (default is one) ", &
653 : usage="COEFF 1.0 -1.0", &
654 28762 : type_of_var=real_t, n_var=-1)
655 28762 : CALL section_add_keyword(section, keyword)
656 28762 : CALL keyword_release(keyword)
657 :
658 : CALL keyword_create(keyword, __LOCATION__, name="FUNCTIONAL_FORM", &
659 : description="Specifies the functional form of the term added", &
660 : usage="FUNCTIONAL_FORM RESTRAINT", &
661 : enum_c_vals=s2a("RESTRAINT", "CONSTRAINT"), &
662 : enum_i_vals=[do_ddapc_restraint, do_ddapc_constraint], &
663 : enum_desc=s2a("Harmonic potential: s*(q-t)**2", "Constraint form: s*(q-t)"), &
664 28762 : default_i_val=do_ddapc_restraint)
665 28762 : CALL section_add_keyword(section, keyword)
666 28762 : CALL keyword_release(keyword)
667 :
668 : CALL cp_print_key_section_create(print_key, __LOCATION__, "program_run_info", &
669 : description="Controls the printing basic info about the method", &
670 28762 : print_level=low_print_level, add_last=add_last_numeric, filename="__STD_OUT__")
671 28762 : CALL section_add_subsection(section, print_key)
672 28762 : CALL section_release(print_key)
673 :
674 28762 : END SUBROUTINE create_ddapc_restraint_section
675 :
676 : ! **************************************************************************************************
677 : !> \brief ...
678 : !> \param section ...
679 : ! **************************************************************************************************
680 9598 : SUBROUTINE create_s2_restraint_section(section)
681 : TYPE(section_type), POINTER :: section
682 :
683 : TYPE(keyword_type), POINTER :: keyword
684 :
685 9598 : NULLIFY (keyword)
686 9598 : CPASSERT(.NOT. ASSOCIATED(section))
687 :
688 : CALL section_create(section, __LOCATION__, name="S2_RESTRAINT", &
689 : description="Use S2 in a re/constraint (OT only)", &
690 9598 : n_keywords=7, n_subsections=0, repeats=.FALSE.)
691 :
692 : CALL keyword_create(keyword, __LOCATION__, name="STRENGTH", &
693 : description="force constant of the restraint", &
694 9598 : usage="STRENGTH {real} ", default_r_val=0.1_dp)
695 9598 : CALL section_add_keyword(section, keyword)
696 9598 : CALL keyword_release(keyword)
697 :
698 : CALL keyword_create(keyword, __LOCATION__, name="TARGET", &
699 : description="target value of the restraint", &
700 9598 : usage="TARGET {real} ", default_r_val=1._dp)
701 9598 : CALL section_add_keyword(section, keyword)
702 9598 : CALL keyword_release(keyword)
703 :
704 : CALL keyword_create(keyword, __LOCATION__, name="FUNCTIONAL_FORM", &
705 : description="Specifies the functional form of the term added", &
706 : usage="FUNCTIONAL_FORM RESTRAINT", &
707 : enum_c_vals=s2a("RESTRAINT", "CONSTRAINT"), &
708 : enum_i_vals=[do_s2_restraint, do_s2_constraint], &
709 : enum_desc=s2a("Harmonic potential: s*(q-t)**2", "Constraint form: s*(q-t)"), &
710 9598 : default_i_val=do_s2_restraint)
711 9598 : CALL section_add_keyword(section, keyword)
712 9598 : CALL keyword_release(keyword)
713 :
714 9598 : END SUBROUTINE create_s2_restraint_section
715 :
716 : ! **************************************************************************************************
717 : !> \brief input section for optional parameters for LRIGPW
718 : !> LRI: local resolution of identity
719 : !> \param section the section to create
720 : !> \author Dorothea Golze [02.2015]
721 : ! **************************************************************************************************
722 38360 : SUBROUTINE create_lrigpw_section(section)
723 : TYPE(section_type), POINTER :: section
724 :
725 : TYPE(keyword_type), POINTER :: keyword
726 :
727 38360 : CPASSERT(.NOT. ASSOCIATED(section))
728 : CALL section_create(section, __LOCATION__, name="LRIGPW", &
729 : description="This section specifies optional parameters for LRIGPW.", &
730 76720 : n_keywords=3, n_subsections=0, repeats=.FALSE., citations=[Golze2017b])
731 :
732 38360 : NULLIFY (keyword)
733 :
734 : CALL keyword_create(keyword, __LOCATION__, name="LRI_OVERLAP_MATRIX", &
735 : description="Specifies whether to calculate the inverse or the "// &
736 : "pseudoinverse of the overlap matrix of the auxiliary "// &
737 : "basis set. Calculating the pseudoinverse is necessary "// &
738 : "for very large auxiliary basis sets, but more expensive. "// &
739 : "Using the pseudoinverse, consistent forces are not "// &
740 : "guaranteed yet.", &
741 : usage="LRI_OVERLAP_MATRIX INVERSE", &
742 : enum_c_vals=s2a("INVERSE", "PSEUDO_INVERSE_SVD", "PSEUDO_INVERSE_DIAG", &
743 : "AUTOSELECT"), &
744 : enum_desc=s2a("Calculate inverse of the overlap matrix.", &
745 : "Calculate the pseuodinverse of the overlap matrix "// &
746 : "using singular value decomposition.", &
747 : "Calculate the pseudoinverse of the overlap matrix "// &
748 : "by prior diagonalization.", &
749 : "Choose automatically for each pair whether to "// &
750 : "calculate the inverse or pseudoinverse based on the "// &
751 : "condition number of the overlap matrix for each pair. "// &
752 : "Calculating the pseudoinverse is much more expensive."), &
753 : enum_i_vals=[do_lri_inv, do_lri_pseudoinv_svd, &
754 : do_lri_pseudoinv_diag, do_lri_inv_auto], &
755 38360 : default_i_val=do_lri_inv)
756 38360 : CALL section_add_keyword(section, keyword)
757 38360 : CALL keyword_release(keyword)
758 :
759 : CALL keyword_create(keyword, __LOCATION__, name="MAX_CONDITION_NUM", &
760 : description="If AUTOSELECT is chosen for LRI_OVERLAP_MATRIX, this "// &
761 : "keyword specifies that the pseudoinverse is calculated "// &
762 : "only if the LOG of the condition number of the lri "// &
763 : "overlap matrix is larger than the given value.", &
764 38360 : usage="MAX_CONDITION_NUM 20.0", default_r_val=20.0_dp)
765 38360 : CALL section_add_keyword(section, keyword)
766 38360 : CALL keyword_release(keyword)
767 :
768 : CALL keyword_create(keyword, __LOCATION__, name="EPS_O3_INT", &
769 : description="Threshold for ABA and ABB integrals in LRI. "// &
770 : "This is used for screening in the KS and "// &
771 : "force calculations (tensor contractions).", &
772 38360 : usage="EPS_O3_INT 1.e-10", default_r_val=1.0e-14_dp)
773 38360 : CALL section_add_keyword(section, keyword)
774 38360 : CALL keyword_release(keyword)
775 :
776 : CALL keyword_create(keyword, __LOCATION__, name="DEBUG_LRI_INTEGRALS", &
777 : description="Debug the integrals needed for LRIGPW.", &
778 : usage="DEBUG_LRI_INTEGRALS TRUE", &
779 38360 : default_l_val=.FALSE., lone_keyword_l_val=.TRUE.)
780 38360 : CALL section_add_keyword(section, keyword)
781 38360 : CALL keyword_release(keyword)
782 :
783 : CALL keyword_create(keyword, __LOCATION__, name="EXACT_1C_TERMS", &
784 : description="Don't use LRI for one center densities.", &
785 : usage="EXACT_1C_TERMS TRUE", &
786 38360 : default_l_val=.FALSE., lone_keyword_l_val=.TRUE.)
787 38360 : CALL section_add_keyword(section, keyword)
788 38360 : CALL keyword_release(keyword)
789 :
790 : CALL keyword_create(keyword, __LOCATION__, name="PPL_RI", &
791 : description="Use LRI/RI for local pseudopotential.", &
792 : usage="PPL_RI TRUE", &
793 38360 : default_l_val=.FALSE., lone_keyword_l_val=.TRUE.)
794 38360 : CALL section_add_keyword(section, keyword)
795 38360 : CALL keyword_release(keyword)
796 :
797 : CALL keyword_create(keyword, __LOCATION__, name="RI_STATISTIC", &
798 : description="Print statistical information on the RI calculation.", &
799 : usage="RI_STATISTIC TRUE", &
800 38360 : default_l_val=.FALSE., lone_keyword_l_val=.TRUE.)
801 38360 : CALL section_add_keyword(section, keyword)
802 38360 : CALL keyword_release(keyword)
803 :
804 : CALL keyword_create(keyword, __LOCATION__, name="DISTANT_PAIR_APPROXIMATION", &
805 : description="Calculate distant pairs using an independent atom approximation.", &
806 : usage="DISTANT_PAIR_APPROXIMATION TRUE", &
807 38360 : default_l_val=.FALSE., lone_keyword_l_val=.TRUE.)
808 38360 : CALL section_add_keyword(section, keyword)
809 38360 : CALL keyword_release(keyword)
810 :
811 : CALL keyword_create(keyword, __LOCATION__, name="DISTANT_PAIR_METHOD", &
812 : description="Method used to separate pair density for distant pairs. "// &
813 : "Options: EW (equal weights); AW (atomic weights); SW (set weights); "// &
814 : "LW (shell function weights)", &
815 : usage="DISTANT_PAIR_METHOD {method}", &
816 38360 : default_c_val="LW")
817 38360 : CALL section_add_keyword(section, keyword)
818 38360 : CALL keyword_release(keyword)
819 :
820 : CALL keyword_create(keyword, __LOCATION__, name="DISTANT_PAIR_RADII", &
821 : description="Inner and outer radii used in distant "// &
822 : "pair separation. Smooth interpolation between inner and outer "// &
823 : "radius is used.", &
824 : usage="DISTANT_PAIR_RADII r_inner {real} r_outer {real} ", &
825 : n_var=2, default_r_vals=[8._dp, 12._dp], unit_str='bohr', &
826 38360 : type_of_var=real_t)
827 38360 : CALL section_add_keyword(section, keyword)
828 38360 : CALL keyword_release(keyword)
829 :
830 : CALL keyword_create(keyword, __LOCATION__, name="SHG_LRI_INTEGRALS", &
831 : description="Uses the SHG (solid harmonic Gaussian) integral "// &
832 : "scheme instead of Obara-Saika", &
833 : usage="SHG_LRI_INTEGRALS TRUE", &
834 : default_l_val=.TRUE., lone_keyword_l_val=.TRUE., &
835 76720 : citations=[Golze2017a])
836 38360 : CALL section_add_keyword(section, keyword)
837 38360 : CALL keyword_release(keyword)
838 :
839 : CALL keyword_create(keyword, __LOCATION__, name="RI_SINV", &
840 : description="Approximation to be used for the inverse of the "// &
841 : "RI overlap matrix. INVF, INVS: exact inverse, apply directly "// &
842 : "for solver (F:full matrix, S:sparsematrix). AINV approximate inverse, use with PCG. "// &
843 : "NONE: no approximation used with CG solver.", &
844 38360 : usage="RI_SINV NONE", default_c_val="INVF")
845 38360 : CALL section_add_keyword(section, keyword)
846 38360 : CALL keyword_release(keyword)
847 :
848 38360 : END SUBROUTINE create_lrigpw_section
849 :
850 : END MODULE input_cp2k_qs
|
