-
-static void done_gmx_groups_t(gmx_groups_t *g)
-{
- int i;
-
- for (i = 0; (i < egcNR); i++)
- {
- if (NULL != g->grps[i].nm_ind)
- {
- sfree(g->grps[i].nm_ind);
- g->grps[i].nm_ind = NULL;
- }
- if (NULL != g->grpnr[i])
- {
- sfree(g->grpnr[i]);
- g->grpnr[i] = NULL;
- }
- }
- /* The contents of this array is in symtab, don't free it here */
- sfree(g->grpname);
-}
-
-gmx_bool read_tps_conf(const char *infile, char *title, t_topology *top, int *ePBC,
- rvec **x, rvec **v, matrix box, gmx_bool bMass)
-{
- t_tpxheader header;
- int natoms, i, version, generation;
- gmx_bool bTop, bXNULL = FALSE;
- gmx_mtop_t *mtop;
- gmx_atomprop_t aps;
-
- bTop = fn2bTPX(infile);
- *ePBC = -1;
- if (bTop)
- {
- read_tpxheader(infile, &header, TRUE, &version, &generation);
- if (x)
- {
- snew(*x, header.natoms);
- }
- if (v)
- {
- snew(*v, header.natoms);
- }
- snew(mtop, 1);
- *ePBC = read_tpx(infile, NULL, box, &natoms,
- (x == NULL) ? NULL : *x, (v == NULL) ? NULL : *v, NULL, mtop);
- *top = gmx_mtop_t_to_t_topology(mtop);
- /* In this case we need to throw away the group data too */
- done_gmx_groups_t(&mtop->groups);
- sfree(mtop);
- std::strcpy(title, *top->name);
- tpx_make_chain_identifiers(&top->atoms, &top->mols);
- }
- else
- {
- get_stx_coordnum(infile, &natoms);
- init_t_atoms(&top->atoms, natoms, (fn2ftp(infile) == efPDB));
- if (x == NULL)
- {
- snew(x, 1);
- bXNULL = TRUE;
- }
- snew(*x, natoms);
- if (v)
- {
- snew(*v, natoms);
- }
- read_stx_conf(infile, title, &top->atoms, *x, (v == NULL) ? NULL : *v, ePBC, box);
- if (bXNULL)
- {
- sfree(*x);
- sfree(x);
- }
- if (bMass)
- {
- aps = gmx_atomprop_init();
- for (i = 0; (i < natoms); i++)
- {
- if (!gmx_atomprop_query(aps, epropMass,
- *top->atoms.resinfo[top->atoms.atom[i].resind].name,
- *top->atoms.atomname[i],
- &(top->atoms.atom[i].m)))
- {
- if (debug)
- {
- fprintf(debug, "Can not find mass for atom %s %d %s, setting to 1\n",
- *top->atoms.resinfo[top->atoms.atom[i].resind].name,
- top->atoms.resinfo[top->atoms.atom[i].resind].nr,
- *top->atoms.atomname[i]);
- }
- }
- }
- gmx_atomprop_destroy(aps);
- }
- top->idef.ntypes = -1;
- }
-
- return bTop;
-}