3 * This source code is part of
7 * GROningen MAchine for Chemical Simulations
10 * Written by David van der Spoel, Erik Lindahl, Berk Hess, and others.
11 * Copyright (c) 1991-2000, University of Groningen, The Netherlands.
12 * Copyright (c) 2001-2004, The GROMACS development team,
13 * check out http://www.gromacs.org for more information.
15 * This program is free software; you can redistribute it and/or
16 * modify it under the terms of the GNU General Public License
17 * as published by the Free Software Foundation; either version 2
18 * of the License, or (at your option) any later version.
20 * If you want to redistribute modifications, please consider that
21 * scientific software is very special. Version control is crucial -
22 * bugs must be traceable. We will be happy to consider code for
23 * inclusion in the official distribution, but derived work must not
24 * be called official GROMACS. Details are found in the README & COPYING
25 * files - if they are missing, get the official version at www.gromacs.org.
27 * To help us fund GROMACS development, we humbly ask that you cite
28 * the papers on the package - you can find them in the top README file.
30 * For more info, check our website at http://www.gromacs.org
33 * Gallium Rubidium Oxygen Manganese Argon Carbon Silicon
44 #include "gpp_bond_atomtype.h"
47 int nr; /* The number of atomtypes */
48 char ***atomname; /* Names of the atomtypes */
51 int get_bond_atomtype_type(char *str,t_bond_atomtype at)
53 gpp_bond_atomtype *ga = (gpp_bond_atomtype *) at;
57 for (i=0; (i<ga->nr); i++)
58 if (gmx_strcasecmp(str,*(ga->atomname[i])) == 0)
64 char *get_bond_atomtype_name(int nt, t_bond_atomtype at)
66 gpp_bond_atomtype *ga = (gpp_bond_atomtype *) at;
68 if ((nt < 0) || (nt >= ga->nr))
71 return *(ga->atomname[nt]);
74 t_bond_atomtype init_bond_atomtype(void)
76 gpp_bond_atomtype *ga;
80 return (t_bond_atomtype ) ga;
83 void add_bond_atomtype(t_bond_atomtype at,t_symtab *tab,
86 gpp_bond_atomtype *ga = (gpp_bond_atomtype *) at;
89 srenew(ga->atomname,ga->nr);
90 ga->atomname[ga->nr-1] = put_symtab(tab,name);
93 void done_bond_atomtype(t_bond_atomtype *at)
95 gpp_bond_atomtype *ga = (gpp_bond_atomtype *) *at;