61#include "./base/base_uses.f90"
66 CHARACTER(len=*),
PARAMETER,
PRIVATE :: moduleN =
'input_cp2k_qs'
83 cpassert(.NOT.
ASSOCIATED(section))
85 description=
"parameters needed to set up the Quickstep framework", &
86 n_keywords=1, n_subsections=0, repeats=.false.)
88 NULLIFY (keyword, subsection)
92 description=
"Try setting all EPS_xxx to values leading to an energy correct up to EPS_DEFAULT", &
93 usage=
"EPS_DEFAULT real", default_r_val=1.0e-10_dp)
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 usage=
"EPS_CORE_CHARGE real", type_of_var=
real_t)
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 usage=
"EPS_GVG_RSPACE real", type_of_var=
real_t)
112 description=
"Sets precision of the overlap matrix elements. Overrides SQRT(EPS_DEFAULT) value", &
113 usage=
"EPS_PGF_ORB real", type_of_var=
real_t)
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", &
126 description=
"Adjusts the precision for the local part of the pseudo potential. ", &
127 usage=
"EPS_PPL real", type_of_var=
real_t, default_r_val=1.0e-2_dp)
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 usage=
"EPS_PPNL real", type_of_var=
real_t)
139 description=
"Sets precision of the GAPW projection. Overrides EPS_DEFAULT value", &
140 usage=
"EPS_CPC real", type_of_var=
real_t)
145 description=
"Sets precision of the density mapping on the grids.Overrides EPS_DEFAULT value", &
146 usage=
"EPS_RHO real", type_of_var=
real_t)
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 usage=
"EPS_RHO_RSPACE real", type_of_var=
real_t)
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 usage=
"EPS_RHO_GSPACE real", type_of_var=
real_t)
164 CALL keyword_create(keyword, __location__, name=
"EPS_FILTER_MATRIX", &
165 description=
"Sets the threshold for filtering matrix elements.", &
166 usage=
"EPS_FILTER_MATRIX 1.0E-6", type_of_var=
real_t, default_r_val=0.0e0_dp)
171 variants=(/
"EPS_FIT"/), &
172 description=
"GAPW: precision to give the extension of a hard gaussian ", &
173 usage=
"EPSFIT real", default_r_val=1.0e-4_dp)
178 variants=(/
"EPS_ISO"/), &
179 description=
"GAPW: precision to determine an isolated projector", &
180 usage=
"EPSISO real", default_r_val=1.0e-12_dp)
185 variants=(/
"EPS_SVD"/), &
186 description=
"GAPW: tolerance used in the singular value decomposition of the projector matrix", &
187 usage=
"EPS_SVD real", default_r_val=1.0e-8_dp)
192 variants=
s2a(
"EPSVRHO0",
"EPS_VRHO0"), &
193 description=
"GAPW : precision to determine the range of V(rho0-rho0soft)", &
194 usage=
"EPSRHO0 real", default_r_val=1.0e-6_dp)
199 variants=
s2a(
"ALPHA0_H",
"ALPHA0"), &
200 description=
"GAPW: Exponent for hard compensation charge", &
201 usage=
"ALPHA0_HARD real", default_r_val=0.0_dp)
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", &
213 default_l_val=.false., lone_keyword_l_val=.true.)
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 usage=
"MAX_RAD_LOCAL real", default_r_val=25.0_dp)
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."), &
240 CALL keyword_create(keyword, __location__, name=
"MIN_PAIR_LIST_RADIUS", &
241 description=
"Set the minimum value [Bohr] for the overlap pair list radius."// &
242 " Default is 0.0 Bohr, negative values are changed to the cell size."// &
243 " This allows to control the sparsity of the KS matrix for HFX calculations.", &
244 usage=
"MIN_PAIR_LIST_RADIUS real", default_r_val=0.0_dp)
250 description=
"Perform a linear scaling SCF", &
251 usage=
"LS_SCF", lone_keyword_l_val=.true., &
252 default_l_val=.false.)
257 description=
"Perform ALMO SCF", &
258 usage=
"ALMO_SCF", lone_keyword_l_val=.true., &
259 default_l_val=.false.)
264 description=
"Perform transport calculations (coupling CP2K and OMEN)", &
265 usage=
"TRANSPORT", lone_keyword_l_val=.true., &
266 default_l_val=.false.)
271 description=
"Use a Kim-Gordon-like scheme.", &
272 usage=
"KG_METHOD", lone_keyword_l_val=.true., &
277 CALL keyword_create(keyword, __location__, name=
"REF_EMBED_SUBSYS", &
278 description=
"A total, reference, system in DFT embedding. ", &
279 usage=
"REF_EMBED_SUBSYS FALSE", &
280 default_l_val=.false., lone_keyword_l_val=.true.)
284 CALL keyword_create(keyword, __location__, name=
"CLUSTER_EMBED_SUBSYS", &
285 description=
"A cluster treated with DFT in DFT embedding. ", &
286 usage=
"CLUSTER_EMBED_SUBSYS FALSE", &
287 default_l_val=.false., lone_keyword_l_val=.true.)
291 CALL keyword_create(keyword, __location__, name=
"HIGH_LEVEL_EMBED_SUBSYS", &
292 description=
"A cluster treated with a high-level method in DFT embedding. ", &
293 usage=
"HIGH_LEVEL_EMBED_SUBSYS FALSE", &
294 default_l_val=.false., lone_keyword_l_val=.true.)
298 CALL keyword_create(keyword, __location__, name=
"DFET_EMBEDDED", &
299 description=
"Calculation with DFT-embedding potential. ", &
300 usage=
"DFET_EMBEDDED FALSE", &
301 default_l_val=.false., lone_keyword_l_val=.true.)
305 CALL keyword_create(keyword, __location__, name=
"DMFET_EMBEDDED", &
306 description=
"Calculation with DM embedding potential. ", &
307 usage=
"DMFET_EMBEDDED FALSE", &
308 default_l_val=.false., lone_keyword_l_val=.true.)
314 description=
"Order of Gaussian type expansion of Slater orbital basis sets.", &
315 usage=
"STO_NG", default_i_val=6)
320 variants=(/
"LMAXRHO1"/), &
321 description=
"GAPW : max L number for expansion of the atomic densities in spherical gaussians", &
322 usage=
"LMAXN1 integer", &
328 variants=(/
"LMAXRHO0"/), &
329 description=
"GAPW : max L number for the expansion compensation densities in spherical gaussians", &
330 usage=
"LMAXN0 integer", &
336 description=
"GAPW : integer added to the max L of the basis set, used to determine the "// &
337 "maximum value of L for the compensation charge density.", &
338 usage=
"LADDN0 integer", &
345 description=
"GAPW: algorithm to construct the atomic radial grids", &
346 usage=
"QUADRATURE GC_SIMPLE", &
347 enum_c_vals=
s2a(
"GC_SIMPLE",
"GC_TRANSFORMED",
"GC_LOG"), &
349 enum_desc=
s2a(
"Gauss-Chebyshev quadrature", &
350 "Transformed Gauss-Chebyshev quadrature", &
351 "Logarithmic transformed Gauss-Chebyshev quadrature"), &
357 description=
"What kind of PW_GRID should be employed", &
358 usage=
"PW_GRID NS-FULLSPACE", &
359 enum_c_vals=
s2a(
"SPHERICAL",
"NS-FULLSPACE",
"NS-HALFSPACE"), &
360 enum_desc=
s2a(
"- not tested",
" tested",
" - not tested"), &
366 CALL keyword_create(keyword, __location__, name=
"PW_GRID_LAYOUT", &
367 description=
"Force a particular real-space layout for the plane waves grids. "// &
368 "Numbers ≤ 0 mean that this dimension is free, incorrect layouts will be ignored. "// &
369 "The default (/-1,-1/) causes CP2K to select a good value, "// &
370 "i.e. plane distributed for large grids, more general distribution for small grids.", &
371 usage=
"PW_GRID_LAYOUT 4 16", &
372 repeats=.false., n_var=2, &
373 default_i_vals=(/-1, -1/))
377 CALL keyword_create(keyword, __location__, name=
"PW_GRID_BLOCKED", &
378 description=
"Can be used to set the distribution in g-space for the pw grids and their FFT.", &
379 usage=
"PW_GRID_BLOCKED FREE", &
380 enum_c_vals=
s2a(
"FREE",
"TRUE",
"FALSE"), &
381 enum_desc=
s2a(
"CP2K will select an appropriate value",
"blocked",
"not blocked"), &
388 keyword, __location__, name=
"EXTRAPOLATION", &
389 variants=
s2a(
"INTERPOLATION",
"WF_INTERPOLATION"), &
390 description=
"Extrapolation strategy for the wavefunction during e.g. MD. "// &
391 "Not all options are available for all simulation methods. "// &
392 "PS and ASPC are recommended, see also EXTRAPOLATION_ORDER.", &
394 usage=
"EXTRAPOLATION PS", &
395 enum_c_vals=
s2a(
"USE_GUESS",
"USE_PREV_P",
"USE_PREV_RHO_R",
"LINEAR_WF", &
396 "LINEAR_P",
"LINEAR_PS",
"USE_PREV_WF",
"PS",
"FROZEN",
"ASPC"), &
398 "Use the method specified with SCF_GUESS, i.e. no extrapolation", &
399 "Use the previous density matrix", &
400 "Use the previous density in real space", &
401 "Linear extrapolation of the wavefunction (not available for K-points)", &
402 "Linear extrapolation of the density matrix", &
403 "Linear extrapolation of the density matrix times the overlap matrix (not available for K-points)", &
404 "Use the previous wavefunction (not available for K-points)", &
405 "Higher order extrapolation of the density matrix times the overlap matrix (not available for K-points)", &
407 "Always stable predictor corrector, similar to PS, but going for MD stability instead of initial guess accuracy. "// &
408 "(not available for K-points)"), &
424 CALL keyword_create(keyword, __location__, name=
"EXTRAPOLATION_ORDER", &
425 description=
"Order for the PS or ASPC extrapolation (typically 2-4). "// &
426 "Higher order might bring more accuracy, but comes, "// &
427 "for large systems, also at some cost. "// &
428 "In some cases, a high order extrapolation is not stable,"// &
429 " and the order needs to be reduced.", &
430 usage=
"EXTRAPOLATION_ORDER {integer}", default_i_val=3)
435 description=
"Specifies the electronic structure method that should be employed", &
436 usage=
"METHOD GAPW", &
437 enum_c_vals=
s2a(
"GAPW",
"GAPW_XC",
"GPW",
"LRIGPW",
"RIGPW", &
438 "MNDO",
"MNDOD",
"AM1",
"PM3",
"PM6",
"PM6-FM",
"PDG",
"RM1",
"PNNL",
"DFTB",
"xTB",
"OFGPW"), &
439 enum_desc=
s2a(
"Gaussian and augmented plane waves method", &
440 "Gaussian and augmented plane waves method only for XC", &
441 "Gaussian and plane waves method", &
442 "Local resolution of identity method", &
443 "Resolution of identity method for HXC terms", &
444 "MNDO semiempirical",
"MNDO-d semiempirical",
"AM1 semiempirical", &
445 "PM3 semiempirical",
"PM6 semiempirical",
"PM6-FM semiempirical",
"PDG semiempirical", &
446 "RM1 semiempirical", &
447 "PNNL semiempirical", &
448 "DFTB Density Functional based Tight-Binding", &
449 "GFN-xTB Extended Tight-Binding", &
450 "OFGPW Orbital-free GPW method"), &
463 description=
"Specifies the method used to calculate the local pseudopotential contribution.", &
464 usage=
"CORE_PPL ANALYTIC", &
465 enum_c_vals=
s2a(
"ANALYTIC",
"GRID"), &
466 enum_desc=
s2a(
"Analytic integration of integrals", &
467 "Numerical integration on real space grid. Lumped together with core charge"), &
473 CALL keyword_create(keyword, __location__, name=
"EMBED_RESTART_FILE_NAME", &
474 description=
"Root of the file name where to read the embedding "// &
475 "potential guess.", &
476 usage=
"EMBED_RESTART_FILE_NAME <FILENAME>", &
481 CALL keyword_create(keyword, __location__, name=
"EMBED_CUBE_FILE_NAME", &
482 description=
"Root of the file name where to read the embedding "// &
483 "potential (guess) as a cube.", &
484 usage=
"EMBED_CUBE_FILE_NAME <FILENAME>", &
489 CALL keyword_create(keyword, __location__, name=
"EMBED_SPIN_CUBE_FILE_NAME", &
490 description=
"Root of the file name where to read the spin part "// &
491 "of the embedding potential (guess) as a cube.", &
492 usage=
"EMBED_SPIN_CUBE_FILE_NAME <FILENAME>", &
513 CALL create_mulliken_section(subsection)
525 CALL create_s2_restraint_section(subsection)
552 SUBROUTINE create_mulliken_section(section)
558 cpassert(.NOT.
ASSOCIATED(section))
559 CALL section_create(section, __location__, name=
"MULLIKEN_RESTRAINT", &
560 description=
"Use mulliken charges in a restraint (check code for details)", &
561 n_keywords=7, n_subsections=0, repeats=.false.)
564 description=
"force constant of the restraint", &
565 usage=
"STRENGTH {real} ", default_r_val=0.1_dp)
570 description=
"target value of the restraint", &
571 usage=
"TARGET {real} ", default_r_val=1._dp)
576 description=
"Specifies the list of atoms that is summed in the restraint", &
577 usage=
"ATOMS {integer} {integer} .. {integer}", &
582 END SUBROUTINE create_mulliken_section
591 CHARACTER(len=*),
INTENT(in) :: section_name
596 NULLIFY (keyword, print_key)
597 cpassert(.NOT.
ASSOCIATED(section))
598 CALL section_create(section, __location__, name=trim(adjustl(section_name)), &
599 description=
"Use DDAPC charges in a restraint (check code for details)", &
600 n_keywords=7, n_subsections=0, repeats=.true.)
602 CALL keyword_create(keyword, __location__, name=
"TYPE_OF_DENSITY", &
603 description=
"Specifies the type of density used for the fitting", &
604 usage=
"TYPE_OF_DENSITY (FULL|SPIN)", &
605 enum_c_vals=
s2a(
"FULL",
"SPIN"), &
607 enum_desc=
s2a(
"Full density",
"Spin density"), &
613 description=
"force constant of the restraint", &
614 usage=
"STRENGTH {real} ", default_r_val=0.1_dp)
619 description=
"target value of the restraint", &
620 usage=
"TARGET {real} ", default_r_val=1._dp)
625 description=
"Specifies the list of atoms that is summed in the restraint", &
626 usage=
"ATOMS {integer} {integer} .. {integer}", &
632 description=
"Defines the the coefficient of the atom in the atom list (default is one) ", &
633 usage=
"COEFF 1.0 -1.0", &
634 type_of_var=
real_t, n_var=-1)
638 CALL keyword_create(keyword, __location__, name=
"FUNCTIONAL_FORM", &
639 description=
"Specifies the functional form of the term added", &
640 usage=
"FUNCTIONAL_FORM RESTRAINT", &
641 enum_c_vals=
s2a(
"RESTRAINT",
"CONSTRAINT"), &
643 enum_desc=
s2a(
"Harmonic potential: s*(q-t)**2",
"Constraint form: s*(q-t)"), &
649 description=
"Controls the printing basic info about the method", &
660 SUBROUTINE create_s2_restraint_section(section)
666 cpassert(.NOT.
ASSOCIATED(section))
669 description=
"Use S2 in a re/constraint (OT only)", &
670 n_keywords=7, n_subsections=0, repeats=.false.)
673 description=
"force constant of the restraint", &
674 usage=
"STRENGTH {real} ", default_r_val=0.1_dp)
679 description=
"target value of the restraint", &
680 usage=
"TARGET {real} ", default_r_val=1._dp)
684 CALL keyword_create(keyword, __location__, name=
"FUNCTIONAL_FORM", &
685 description=
"Specifies the functional form of the term added", &
686 usage=
"FUNCTIONAL_FORM RESTRAINT", &
687 enum_c_vals=
s2a(
"RESTRAINT",
"CONSTRAINT"), &
689 enum_desc=
s2a(
"Harmonic potential: s*(q-t)**2",
"Constraint form: s*(q-t)"), &
694 END SUBROUTINE create_s2_restraint_section
707 cpassert(.NOT.
ASSOCIATED(section))
709 description=
"This section specifies optional parameters for LRIGPW.", &
710 n_keywords=3, n_subsections=0, repeats=.false., citations=(/
golze2017b/))
714 CALL keyword_create(keyword, __location__, name=
"LRI_OVERLAP_MATRIX", &
715 description=
"Specifies whether to calculate the inverse or the "// &
716 "pseudoinverse of the overlap matrix of the auxiliary "// &
717 "basis set. Calculating the pseudoinverse is necessary "// &
718 "for very large auxiliary basis sets, but more expensive. "// &
719 "Using the pseudoinverse, consistent forces are not "// &
721 usage=
"LRI_OVERLAP_MATRIX INVERSE", &
722 enum_c_vals=
s2a(
"INVERSE",
"PSEUDO_INVERSE_SVD",
"PSEUDO_INVERSE_DIAG", &
724 enum_desc=
s2a(
"Calculate inverse of the overlap matrix.", &
725 "Calculate the pseuodinverse of the overlap matrix "// &
726 "using singular value decomposition.", &
727 "Calculate the pseudoinverse of the overlap matrix "// &
728 "by prior diagonalization.", &
729 "Choose automatically for each pair whether to "// &
730 "calculate the inverse or pseudoinverse based on the "// &
731 "condition number of the overlap matrix for each pair. "// &
732 "Calculating the pseudoinverse is much more expensive."), &
739 CALL keyword_create(keyword, __location__, name=
"MAX_CONDITION_NUM", &
740 description=
"If AUTOSELECT is chosen for LRI_OVERLAP_MATRIX, this "// &
741 "keyword specifies that the pseudoinverse is calculated "// &
742 "only if the LOG of the condition number of the lri "// &
743 "overlap matrix is larger than the given value.", &
744 usage=
"MAX_CONDITION_NUM 20.0", default_r_val=20.0_dp)
749 description=
"Threshold for ABA and ABB integrals in LRI. "// &
750 "This is used for screening in the KS and "// &
751 "force calculations (tensor contractions).", &
752 usage=
"EPS_O3_INT 1.e-10", default_r_val=1.0e-14_dp)
756 CALL keyword_create(keyword, __location__, name=
"DEBUG_LRI_INTEGRALS", &
757 description=
"Debug the integrals needed for LRIGPW.", &
758 usage=
"DEBUG_LRI_INTEGRALS TRUE", &
759 default_l_val=.false., lone_keyword_l_val=.true.)
763 CALL keyword_create(keyword, __location__, name=
"EXACT_1C_TERMS", &
764 description=
"Don't use LRI for one center densities.", &
765 usage=
"EXACT_1C_TERMS TRUE", &
766 default_l_val=.false., lone_keyword_l_val=.true.)
771 description=
"Use LRI/RI for local pseudopotential.", &
772 usage=
"PPL_RI TRUE", &
773 default_l_val=.false., lone_keyword_l_val=.true.)
778 description=
"Print statistical information on the RI calculation.", &
779 usage=
"RI_STATISTIC TRUE", &
780 default_l_val=.false., lone_keyword_l_val=.true.)
784 CALL keyword_create(keyword, __location__, name=
"DISTANT_PAIR_APPROXIMATION", &
785 description=
"Calculate distant pairs using an independent atom approximation.", &
786 usage=
"DISTANT_PAIR_APPROXIMATION TRUE", &
787 default_l_val=.false., lone_keyword_l_val=.true.)
791 CALL keyword_create(keyword, __location__, name=
"DISTANT_PAIR_METHOD", &
792 description=
"Method used to separate pair density for distant pairs. "// &
793 "Options: EW (equal weights); AW (atomic weights); SW (set weights); "// &
794 "LW (shell function weights)", &
795 usage=
"DISTANT_PAIR_METHOD {method}", &
800 CALL keyword_create(keyword, __location__, name=
"DISTANT_PAIR_RADII", &
801 description=
"Inner and outer radii used in distant "// &
802 "pair separation. Smooth interpolation between inner and outer "// &
804 usage=
"DISTANT_PAIR_RADII r_inner {real} r_outer {real} ", &
805 n_var=2, default_r_vals=(/8._dp, 12._dp/), unit_str=
'bohr', &
810 CALL keyword_create(keyword, __location__, name=
"SHG_LRI_INTEGRALS", &
811 description=
"Uses the SHG (solid harmonic Gaussian) integral "// &
812 "scheme instead of Obara-Saika", &
813 usage=
"SHG_LRI_INTEGRALS TRUE", &
814 default_l_val=.true., lone_keyword_l_val=.true., &
820 description=
"Approximation to be used for the inverse of the "// &
821 "RI overlap matrix. INVF, INVS: exact inverse, apply directly "// &
822 "for solver (F:full matrix, S:sparsematrix). AINV approximate inverse, use with PCG. "// &
823 "NONE: no approximation used with CG solver.", &
824 usage=
"RI_SINV NONE", default_c_val=
"INVF")
collects all references to literature in CP2K as new algorithms / method are included from literature...
integer, save, public stewart2007
integer, save, public vandevondele2006
integer, save, public golze2017b
integer, save, public vandevondele2005a
integer, save, public kuhne2007
integer, save, public golze2017a
integer, save, public lippert1999
integer, save, public dewar1977
integer, save, public vanvoorhis2015
integer, save, public repasky2002
integer, save, public iannuzzi2006
integer, save, public rocha2006
integer, save, public lippert1997
integer, save, public andermatt2016
integer, save, public thiel1992
integer, save, public schenter2008
integer, save, public brelaz1979
integer, save, public krack2000
integer, save, public dewar1985
integer, save, public stewart1989
integer, save, public kolafa2004
routines to handle the output, The idea is to remove the decision of wheter to output and what to out...
integer, parameter, public low_print_level
integer, parameter, public add_last_numeric
subroutine, public cp_print_key_section_create(print_key_section, location, name, description, print_level, each_iter_names, each_iter_values, add_last, filename, common_iter_levels, citations, unit_str)
creates a print_key section
Defines the basic variable types.
integer, parameter, public dp
This module defines the grid data type and some basic operations on it.
integer, parameter, public do_pw_grid_blocked_false
integer, parameter, public do_pw_grid_blocked_true
integer, parameter, public do_pw_grid_blocked_free
Utilities for string manipulations.