Fixed some memory leaks.
[gromacs/qmmm-gamess-us.git] / include / index.h
blobffa62f67ef427bf1c4a640f482e9b70bf05505b6
1 /*
2 *
3 * This source code is part of
4 *
5 * G R O M A C S
6 *
7 * GROningen MAchine for Chemical Simulations
8 *
9 * VERSION 3.2.0
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
32 * And Hey:
33 * Gromacs Runs On Most of All Computer Systems
36 #ifndef _index_h
37 #define _index_h
39 #ifdef HAVE_CONFIG_H
40 #include <config.h>
41 #endif
43 #include <typedefs.h>
45 #ifdef __cplusplus
46 extern "C" {
47 #endif
49 extern void check_index(char *gname,int n,atom_id index[],
50 char *traj,int natoms);
51 /* Checks if any index is smaller than zero or larger than natoms,
52 * if so a fatal_error is given with the gname (if gname=NULL, "Index" is used)
53 * and traj (if traj=NULL, "the trajectory" is used).
56 t_blocka *init_index(const char *gfile, char ***grpname);
57 /* Lower level routine than the next */
59 void rd_index(const char *statfile,int ngrps,int isize[],
60 atom_id *index[],char *grpnames[]);
61 /* Assume the group file is generated, so the
62 * format need not be user-friendly. The format is:
63 * nr of groups, total nr of atoms
64 * for each group: name nr of element, elements.
66 * The function opens a file, reads ngrps groups, asks the
67 * user for group numbers, and puts the resulting sizes in
68 * isize, the atom_id s in index and the names of
69 * the groups in grpnames.
71 * It is also assumed, that when ngrps groups are requested
72 * memory has been allocated for ngrps index arrays, and that
73 * the dimension of the isize and grpnames arrays are ngrps.
76 void rd_index_nrs(char *statfile,int ngrps,int isize[],
77 atom_id *index[],char *grpnames[],int grpnr[]);
78 /* the same but also reads the number of the selected group*/
80 void get_index(t_atoms *atoms, const char *fnm, int ngrps,
81 int isize[], atom_id *index[],char *grpnames[]);
82 /* Does the same as rd_index, but if the fnm pointer is NULL it
83 * will not read from fnm, but it will make default index groups
84 * for the atoms in *atoms.
85 */
87 typedef struct {
88 int maxframe;
89 char **grpname;
90 t_blocka *clust;
91 atom_id *inv_clust;
92 } t_cluster_ndx;
94 extern t_cluster_ndx *cluster_index(FILE *fplog,const char *ndx);
96 typedef struct {
97 int n;
98 char **aa;
99 } t_aa_names;
101 extern t_aa_names *get_aa_names(void);
102 /* Read the database in aminoacids.dat */
104 extern bool is_protein(t_aa_names *aan,char *resnm);
105 /* gives true if resnm occurs in aminoacids.dat */
107 extern void done_aa_names(t_aa_names **aan);
108 /* Free memory. Pass address of the pointer youget from get_aa_names */
110 extern t_blocka *new_blocka(void);
111 /* allocate new block */
113 extern void write_index(const char *outf, t_blocka *b,char **gnames);
114 /* Writes index blocks to outf (writes an indexfile) */
116 void add_grp(t_blocka *b,char ***gnames,int nra,atom_id a[],const char *name);
117 /* Ads group a with name name to block b and namelist gnames */
119 extern void analyse(t_atoms *atoms,t_blocka *gb,char ***gn,
120 bool bASK,bool bVerb);
121 /* Makes index groups gb with names gn for atoms in atoms.
122 * bASK=FALSE gives default groups.
125 extern int find_group(char s[], int ngrps, char **grpname);
128 #ifdef __cplusplus
130 #endif
132 #endif /* _index_h */