2 * This file is part of the GROMACS molecular simulation package.
4 * Copyright (c) 1991-2000, University of Groningen, The Netherlands.
5 * Copyright (c) 2001-2004, The GROMACS development team.
6 * Copyright (c) 2013,2014, by the GROMACS development team, led by
7 * Mark Abraham, David van der Spoel, Berk Hess, and Erik Lindahl,
8 * and including many others, as listed in the AUTHORS file in the
9 * top-level source directory and at http://www.gromacs.org.
11 * GROMACS is free software; you can redistribute it and/or
12 * modify it under the terms of the GNU Lesser General Public License
13 * as published by the Free Software Foundation; either version 2.1
14 * of the License, or (at your option) any later version.
16 * GROMACS is distributed in the hope that it will be useful,
17 * but WITHOUT ANY WARRANTY; without even the implied warranty of
18 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 * Lesser General Public License for more details.
21 * You should have received a copy of the GNU Lesser General Public
22 * License along with GROMACS; if not, see
23 * http://www.gnu.org/licenses, or write to the Free Software Foundation,
24 * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
26 * If you want to redistribute modifications to GROMACS, please
27 * consider that scientific software is very special. Version
28 * control is crucial - bugs must be traceable. We will be happy to
29 * consider code for inclusion in the official distribution, but
30 * derived work must not be called official GROMACS. Details are found
31 * in the README & COPYING files - if they are missing, get the
32 * official version at http://www.gromacs.org.
34 * To help us fund GROMACS development, we humbly ask that you cite
35 * the research papers on the package. Check out http://www.gromacs.org.
44 #include "gromacs/legacyheaders/macros.h"
45 #include "gromacs/utility/cstringutil.h"
46 #include "gromacs/utility/fatalerror.h"
47 #include "gromacs/utility/smalloc.h"
49 /* Must correspond to the directive enum in grompp-impl.h */
50 static const char *directive_names[d_maxdir+1] = {
59 "implicit_genborn_params",
60 "implicit_surface_params",
62 /* All the directives above can not appear after moleculetype */
82 "position_restraints",
85 "distance_restraints",
86 "orientation_restraints",
87 "dihedral_restraints",
92 int ifunc_index(directive d, int type)
121 gmx_fatal(FARGS, "Invalid bond type %d", type);
134 return F_CROSS_BOND_BONDS;
136 return F_CROSS_BOND_ANGLES;
138 return F_UREY_BRADLEY;
140 return F_QUARTIC_ANGLES;
144 return F_LINEAR_ANGLES;
146 return F_RESTRANGLES;
148 gmx_fatal(FARGS, "Invalid angle type %d", type);
154 if (type == 1 || (d == d_pairtypes && type == 2))
164 gmx_fatal(FARGS, "Invalid pairs type %d", type);
168 return F_LJC_PAIRS_NB;
170 case d_dihedraltypes:
186 return F_PDIHS; /* proper dihedrals where we allow multiple terms over single bond */
192 gmx_fatal(FARGS, "Invalid dihedral type %d", type);
199 case d_nonbond_params:
222 gmx_fatal(FARGS, "Invalid vsites3 type %d", type);
233 gmx_fatal(FARGS, "Invalid vsites4 type %d", type);
239 case d_constrainttypes:
247 gmx_fatal(FARGS, "Invalid constraints type %d", type);
252 case d_position_restraints:
261 gmx_fatal(FARGS, "Invalid position restraint type %d", type);
268 return F_POLARIZATION;
272 gmx_fatal(FARGS, "Invalid polarization type %d", type);
275 case d_thole_polarization:
277 case d_water_polarization:
279 case d_angle_restraints:
281 case d_angle_restraints_z:
283 case d_distance_restraints:
285 case d_orientation_restraints:
287 case d_dihedral_restraints:
290 gmx_fatal(FARGS, "invalid directive %s in ifunc_index (%s:%s)",
291 dir2str(d), __FILE__, __LINE__);
296 const char *dir2str (directive d)
300 return directive_names[d];
304 return directive_names[d_maxdir];
308 directive str2dir (char *dstr)
311 char buf[STRLEN], *ptr;
313 /* Hack to be able to read old topologies */
314 if (gmx_strncasecmp_min(dstr, "dummies", 7) == 0)
316 sprintf(buf, "virtual_sites%s", dstr+7);
324 for (d = 0; (d < d_maxdir); d++)
326 if (gmx_strcasecmp_min(ptr, dir2str((directive)d)) == 0)
335 static directive **necessary = NULL;
337 static void set_nec(directive **n, ...)
338 /* Must always have at least one extra argument */
347 d = (directive)va_arg(ap, int);
355 void DS_Init(DirStack **DS)
357 if (necessary == NULL)
361 snew(necessary, d_maxdir);
362 set_nec(&(necessary[d_defaults]), d_none);
363 set_nec(&(necessary[d_atomtypes]), d_defaults, d_none);
364 set_nec(&(necessary[d_bondtypes]), d_atomtypes, d_none);
365 set_nec(&(necessary[d_constrainttypes]), d_atomtypes, d_none);
366 set_nec(&(necessary[d_pairtypes]), d_atomtypes, d_none);
367 set_nec(&(necessary[d_angletypes]), d_atomtypes, d_none);
368 set_nec(&(necessary[d_dihedraltypes]), d_atomtypes, d_none);
369 set_nec(&(necessary[d_nonbond_params]), d_atomtypes, d_none);
370 set_nec(&(necessary[d_implicit_genborn_params]), d_atomtypes, d_none);
371 set_nec(&(necessary[d_implicit_surface_params]), d_atomtypes, d_none);
372 set_nec(&(necessary[d_cmaptypes]), d_atomtypes, d_none);
373 set_nec(&(necessary[d_moleculetype]), d_atomtypes, d_none);
374 set_nec(&(necessary[d_atoms]), d_moleculetype, d_none);
375 set_nec(&(necessary[d_vsites2]), d_atoms, d_none);
376 set_nec(&(necessary[d_vsites3]), d_atoms, d_none);
377 set_nec(&(necessary[d_vsites4]), d_atoms, d_none);
378 set_nec(&(necessary[d_vsitesn]), d_atoms, d_none);
379 set_nec(&(necessary[d_bonds]), d_atoms, d_none);
380 set_nec(&(necessary[d_exclusions]), d_bonds, d_constraints, d_settles, d_none);
381 set_nec(&(necessary[d_pairs]), d_atoms, d_none);
382 set_nec(&(necessary[d_pairs_nb]), d_atoms, d_none);
383 set_nec(&(necessary[d_angles]), d_atoms, d_none);
384 set_nec(&(necessary[d_polarization]), d_atoms, d_none);
385 set_nec(&(necessary[d_water_polarization]), d_atoms, d_none);
386 set_nec(&(necessary[d_thole_polarization]), d_atoms, d_none);
387 set_nec(&(necessary[d_dihedrals]), d_atoms, d_none);
388 set_nec(&(necessary[d_constraints]), d_atoms, d_none);
389 set_nec(&(necessary[d_settles]), d_atoms, d_none);
390 set_nec(&(necessary[d_system]), d_moleculetype, d_none);
391 set_nec(&(necessary[d_molecules]), d_system, d_none);
392 set_nec(&(necessary[d_position_restraints]), d_atoms, d_none);
393 set_nec(&(necessary[d_angle_restraints]), d_atoms, d_none);
394 set_nec(&(necessary[d_angle_restraints_z]), d_atoms, d_none);
395 set_nec(&(necessary[d_distance_restraints]), d_atoms, d_none);
396 set_nec(&(necessary[d_orientation_restraints]), d_atoms, d_none);
397 set_nec(&(necessary[d_dihedral_restraints]), d_atoms, d_none);
398 set_nec(&(necessary[d_cmap]), d_atoms, d_none);
400 for (i = 0; (i < d_maxdir); i++)
404 fprintf(debug, "%20s: ", dir2str((directive)i));
412 d = necessary[i][j++];
415 fprintf(debug, "%20s ", dir2str(d));
422 fprintf(debug, "\n");
430 void DS_Done (DirStack **DS)
442 void DS_Push (DirStack **DS, directive d)
452 int DS_Search(DirStack *DS, directive d)
457 while ((D != NULL) && (D->d != d))
465 int DS_Check_Order(DirStack *DS, directive d)
470 /* Check if parameter definitions appear after a moleculetype directive */
471 if (d < d_moleculetype && DS_Search(DS, d_moleculetype))
476 /* Check if all the necessary directives have appeared before directive d */
477 if (necessary[d][0] == d_none)
485 d0 = necessary[d][i++];
486 if (DS_Search(DS, d0))
491 while (d0 != d_none);