static void par_fn(char *base, int ftp, const t_commrec *cr,
gmx_bool bAppendSimId, gmx_bool bAppendNodeId,
char buf[], int bufsize)
{
if ((size_t)bufsize < (strlen(base)+10))
{
gmx_mem("Character buffer too small!");
}
/* Copy to buf, and strip extension */
strcpy(buf, base);
buf[strlen(base) - strlen(ftp2ext(fn2ftp(base))) - 1] = '\0';
if (bAppendSimId)
{
sprintf(buf+strlen(buf), "%d", cr->ms->sim);
}
if (bAppendNodeId)
{
strcat(buf, "_rank");
sprintf(buf+strlen(buf), "%d", cr->nodeid);
}
strcat(buf, ".");
/* Add extension again */
strcat(buf, (ftp == efTPX) ? "tpr" : (ftp == efEDR) ? "edr" : ftp2ext(ftp));
if (debug)
{
fprintf(debug, "rank %d par_fn '%s'\n", cr->nodeid, buf);
if (fn2ftp(buf) == efLOG)
{
fprintf(debug, "log\n");
}
}
}
static void par_fn(char *base,int ftp,const t_commrec *cr,
bool bUnderScore,
char buf[],int bufsize)
{
int n;
if(bufsize<(strlen(base)+4))
gmx_mem("Character buffer too small!");
/* Copy to buf, and strip extension */
strcpy(buf,base);
buf[strlen(base) - strlen(ftp2ext(fn2ftp(base))) - 1] = '\0';
/* Add node info */
if (bUnderScore)
strcat(buf,"_");
if (MULTISIM(cr) && !bUnderScore) {
sprintf(buf+strlen(buf),"%d",cr->ms->sim);
} else if (PAR(cr)) {
sprintf(buf+strlen(buf),"%d",cr->nodeid);
}
strcat(buf,".");
/* Add extension again */
strcat(buf,(ftp == efTPX) ? "tpr" : (ftp == efEDR) ? "edr" : ftp2ext(ftp));
}
int write_trxframe(t_trxstatus *status,t_trxframe *fr,gmx_conect gc)
{
char title[STRLEN];
real prec;
if (fr->bPrec)
prec = fr->prec;
else
prec = 1000.0;
switch (gmx_fio_getftp(status->fio)) {
case efTRJ:
case efTRR:
break;
default:
if (!fr->bX)
gmx_fatal(FARGS,"Need coordinates to write a %s trajectory",
ftp2ext(gmx_fio_getftp(status->fio)));
break;
}
switch (gmx_fio_getftp(status->fio)) {
case efXTC:
write_xtc(status->fio,fr->natoms,fr->step,fr->time,fr->box,fr->x,prec);
break;
case efTRJ:
case efTRR:
fwrite_trn(status->fio,fr->step,fr->time,fr->lambda,fr->box,fr->natoms,
fr->bX ? fr->x:NULL,fr->bV ? fr->v:NULL ,fr->bF ? fr->f:NULL);
break;
case efGRO:
case efPDB:
case efBRK:
case efENT:
if (!fr->bAtoms)
gmx_fatal(FARGS,"Can not write a %s file without atom names",
ftp2ext(gmx_fio_getftp(status->fio)));
sprintf(title,"frame t= %.3f",fr->time);
if (gmx_fio_getftp(status->fio) == efGRO)
write_hconf_p(gmx_fio_getfp(status->fio),title,fr->atoms,
prec2ndec(prec),fr->x,fr->bV ? fr->v : NULL,fr->box);
else
write_pdbfile(gmx_fio_getfp(status->fio),title,
fr->atoms,fr->x,fr->bPBC ? fr->ePBC : -1,fr->box,
' ',fr->step,gc,TRUE);
break;
case efG87:
write_gms(gmx_fio_getfp(status->fio),fr->natoms,fr->x,fr->box);
break;
case efG96:
write_g96_conf(gmx_fio_getfp(status->fio),fr,-1,NULL);
break;
default:
gmx_fatal(FARGS,"Sorry, write_trxframe can not write %s",
ftp2ext(gmx_fio_getftp(status->fio)));
break;
}
return 0;
}
static char *mk_gct_nm(char *fn,int ftp,int ati,int atj)
{
static char buf[256];
strcpy(buf,fn);
if (atj == -1)
sprintf(buf+strlen(fn)-4,"%d.%s",ati,ftp2ext(ftp));
else
sprintf(buf+strlen(fn)-4,"%d_%d.%s",ati,atj,ftp2ext(ftp));
return buf;
}
void make_wall_tables(FILE *fplog,
const t_inputrec *ir, const char *tabfn,
const gmx_groups_t *groups,
t_forcerec *fr)
{
int negp_pp;
int *nm_ind;
char buf[STRLEN];
negp_pp = ir->opts.ngener - ir->nwall;
nm_ind = groups->grps[egcENER].nm_ind;
if (fplog)
{
fprintf(fplog, "Reading user tables for %d energy groups with %d walls\n",
negp_pp, ir->nwall);
}
snew(fr->wall_tab, ir->nwall);
for (int w = 0; w < ir->nwall; w++)
{
snew(fr->wall_tab[w], negp_pp);
for (int egp = 0; egp < negp_pp; egp++)
{
/* If the energy group pair is excluded, we don't need a table */
if (!(fr->egp_flags[egp*ir->opts.ngener+negp_pp+w] & EGP_EXCL))
{
fr->wall_tab[w][egp] = make_tables(fplog, fr, buf, 0,
GMX_MAKETABLES_FORCEUSER);
sprintf(buf, "%s", tabfn);
sprintf(buf + strlen(tabfn) - strlen(ftp2ext(efXVG)) - 1, "_%s_%s.%s",
*groups->grpname[nm_ind[egp]],
*groups->grpname[nm_ind[negp_pp+w]],
ftp2ext(efXVG));
/* Since wall have no charge, we can compress the table */
for (int i = 0; i <= fr->wall_tab[w][egp]->n; i++)
{
for (int j = 0; j < 8; j++)
{
fr->wall_tab[w][egp]->data[8*i+j] =
fr->wall_tab[w][egp]->data[12*i+4+j];
}
}
}
}
}
}
void gmx_fio_checktype(t_fileio *fio)
{
if (in_ftpset(fio->iFTP, asize(ftpXDR), ftpXDR))
{
return;
}
else if (in_ftpset(fio->iFTP, asize(ftpASC), ftpASC))
{
return;
}
else if (in_ftpset(fio->iFTP, asize(ftpBIN), ftpBIN))
{
return;
}
#ifdef HAVE_XMl
else if (in_ftpset(fio->iFTP, asize(ftpXML), ftpXML))
{
return;
}
#endif
else
{
gmx_fatal(FARGS, "Can not read/write topologies to file type %s",
ftp2ext(fio->iFTP));
}
}
char *ftp2filter(int ftp)
{
int n;
static char filter[128];
filter[0] = '\0';
n = 0;
switch (ftp)
{
case efTRX:
add_filters(filter, &n, NTRXS, trxs);
break;
case efTRN:
add_filters(filter, &n, NTRNS, trns);
break;
case efSTO:
add_filters(filter, &n, NSTOS, stos);
break;
case efSTX:
add_filters(filter, &n, NSTXS, stxs);
break;
case efTPX:
add_filters(filter, &n, NTPXS, tpxs);
break;
default:
sprintf(filter, "*%s", ftp2ext(ftp));
break;
}
return filter;
}
const char *ftp2ext_generic(int ftp)
{
if ((0 <= ftp) && (ftp < efNR))
{
switch (ftp)
{
case efTRX:
return "trx";
case efTRN:
return "trn";
case efSTO:
return "sto";
case efSTX:
return "stx";
case efTPX:
return "tpx";
case efTPS:
return "tps";
default:
return ftp2ext(ftp);
}
}
else
{
return "unknown";
}
}
void pr_htmldefs(FILE *fp)
{
int i;
fprintf(fp,"<title>GROMACS</title>\n");
fprintf(fp,"<h1>GROMACS Files</h1>\n");
fprintf(fp,"<b>GRO</b>ningen <b>MA</b>chine for <b>S</b>imulating <b>C</b>hemistry\n");
fprintf(fp,"<p>\n");
fprintf(fp,"The following %d filetypes are used by Gromacs:\n",efNR);
fprintf(fp,"<dl>\n");
for(i=0; (i<efNR); i++) {
fprintf(fp,"<dt><a href=\"%s.html\">%s.%s</a> (%s)<dd>%s\n",
ftp2ext(i),ftp2defnm(i),ftp2ext(i),ftp2ftype(i),
check_html(ftp2desc(i),NULL));
}
fprintf(fp,"</dl>\n");
}
void do_view(const output_env_t oenv, const char *fn, const char *opts)
{
char buf[STRLEN], env[STRLEN];
const char *cmd;
int ftp, n;
if (output_env_get_view(oenv) && fn)
{
if (getenv("DISPLAY") == NULL)
{
fprintf(stderr, "Can not view %s, no DISPLAY environment variable.\n", fn);
}
else
{
ftp = fn2ftp(fn);
sprintf(env, "GMX_VIEW_%s", ftp2ext(ftp));
upstring(env);
switch (ftp)
{
case efXVG:
if (!(cmd = getenv(env)) )
{
if (getenv("GMX_USE_XMGR") )
{
cmd = "xmgr";
}
else
{
cmd = "xmgrace";
}
}
break;
default:
if ( (n = can_view(ftp)) )
{
if (!(cmd = getenv(env)) )
{
cmd = view_program[n];
}
}
else
{
fprintf(stderr, "Don't know how to view file %s", fn);
return;
}
}
if (strlen(cmd) )
{
sprintf(buf, "%s %s %s &", cmd, opts ? opts : "", fn);
fprintf(stderr, "Executing '%s'\n", buf);
if (0 != system(buf) )
{
gmx_fatal(FARGS, "Failed executing command: %s", buf);
}
}
}
}
}
static void pr_html_files(FILE *out, int nfile, t_filenm fnm[],
const char *program, t_linkdata *links, gmx_bool bWiki)
{
int i;
char link[10], tmp[255];
if (bWiki)
{
fprintf(out, " %-10s %-12s %-12s %-s\n"
" -----------------------------------------------------\n",
"Option", "Filename", "Type", "Description");
}
else
{
fprintf(out,
"<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=2>\n"
"<TR>"
"<TH>option</TH>"
"<TH>filename</TH>"
"<TH>type</TH>"
"<TH>description</TH>"
"</TR>\n");
}
for (i = 0; (i < nfile); i++)
{
strcpy(link, ftp2ext(fnm[i].ftp));
if (strcmp(link, "???") == 0)
{
strcpy(link, "files");
}
if (bWiki)
{
fprintf(out, " %-10s %-16s %-12s %-s\n",
fnm[i].opt,
NWR(fnm[i].fns[0]),
fileopt(fnm[i].flag, tmp, 255),
NWR(ftp2desc(fnm[i].ftp)));
}
else
{
fprintf(out,
"<TR>"
"<TD ALIGN=RIGHT> <b><tt>%s</tt></b> </TD>"
"<TD ALIGN=RIGHT> <tt><a href=\"%s.html\">%12s</a></tt> </TD>"
"<TD> %s </TD>"
"<TD> %s </TD>"
"</TR>\n",
fnm[i].opt, link, fnm[i].fns[0], fileopt(fnm[i].flag, tmp, 255),
NSR(ftp2desc(fnm[i].ftp)));
}
}
if (!bWiki)
{
fprintf(out, "</TABLE>\n");
}
}
void get_stx_coordnum(const char *infile, int *natoms)
{
FILE *in;
int ftp, tpxver, tpxgen;
t_trxframe fr;
char g96_line[STRLEN+1];
ftp = fn2ftp(infile);
range_check(ftp, 0, efNR);
switch (ftp)
{
case efGRO:
get_coordnum(infile, natoms);
break;
case efG96:
in = gmx_fio_fopen(infile, "r");
fr.title = NULL;
fr.natoms = -1;
fr.atoms = NULL;
fr.x = NULL;
fr.v = NULL;
fr.f = NULL;
*natoms = read_g96_conf(in, infile, &fr, g96_line);
gmx_fio_fclose(in);
break;
case efPDB:
case efBRK:
case efENT:
in = gmx_fio_fopen(infile, "r");
get_pdb_coordnum(in, natoms);
gmx_fio_fclose(in);
break;
case efESP:
*natoms = get_espresso_coordnum(infile);
break;
case efTPA:
case efTPB:
case efTPR:
{
t_tpxheader tpx;
read_tpxheader(infile, &tpx, TRUE, &tpxver, &tpxgen);
*natoms = tpx.natoms;
break;
}
default:
gmx_fatal(FARGS, "File type %s not supported in get_stx_coordnum",
ftp2ext(ftp));
}
}
void do_view(char *fn, char *opts)
{
#define N_EXT 3
char buf[STRLEN], env[20], ext[N_EXT], *cmd, *defopts=NULL;
int ftp, n;
char *disp;
if (bDoView() && fn) {
#ifdef SPEC_CPU
disp = NULL;
#else
disp = getenv("DISPLAY");
#endif
if (disp == NULL) {
fprintf(stderr,"Can not view %s, no DISPLAY environment variable.\n",fn);
} else {
ftp=fn2ftp(fn);
strncpy(ext, ftp2ext(ftp), N_EXT);
upstring(ext);
sprintf(env, "GMX_VIEW_%s", ext);
if ( (n=can_view(ftp)) ) {
#ifdef SPEC_CPU
cmd = NULL;
#else
cmd = getenv(env);
#endif
if ( ! cmd )
cmd=view_program[n];
} else {
fprintf(stderr,"Don't know how to view file %s",fn);
return;
}
/* Add command line option -nxy for xmgrace */
if (ftp == efXVG && strcmp(cmd,"xmgrace") == 0)
defopts = "-nxy";
if ( strlen(cmd) ) {
sprintf(buf,"%s %s%s%s%s%s &",
cmd,
opts ? opts : "",opts ? " " : "",
defopts ? defopts : "",defopts ? " " : "",
fn);
fprintf(stderr,"Executing '%s'\n",buf);
system(buf);
}
}
}
}
void do_view(const output_env_t oenv,const char *fn, const char *opts)
{
char buf[STRLEN], env[STRLEN];
const char *cmd;
int ftp, n;
if (output_env_get_view(oenv) && fn) {
if (getenv("DISPLAY") == NULL) {
fprintf(stderr,"Can not view %s, no DISPLAY environment variable.\n",fn);
} else {
ftp=fn2ftp(fn);
sprintf(env, "GMX_VIEW_%s", ftp2ext(ftp));
upstring(env);
switch(ftp) {
case efXVG:
if ( ! (cmd=getenv(env)) ) {
if ( getenv("XMGR") )
cmd="xmgr";
else
cmd="xmgrace";
}
break;
default:
if ( (n=can_view(ftp)) ) {
if ( ! (cmd=getenv(env)) )
cmd=view_program[n];
} else {
fprintf(stderr,"Don't know how to view file %s",fn);
return;
}
}
if ( strlen(cmd) ) {
sprintf(buf,"%s %s %s &",cmd,opts ? opts : "",fn);
fprintf(stderr,"Executing '%s'\n",buf);
#ifdef GMX_NO_SYSTEM
printf("Warning-- No calls to system(3) supported on this platform.");
printf("Warning-- Skipping execution of 'system(\"%s\")'.", buf);
#else
if( 0 != system(buf) )
{
gmx_fatal(FARGS,"Failed executing command: %s",buf);
}
#endif
}
}
}
}
static void add_filters(char *filter, int *n, int nf, const int ftp[])
{
char buf[8];
int i;
sprintf(filter, "*.{");
for (i = 0; (i < nf); i++)
{
sprintf(buf, "%s", ftp2ext(ftp[i]));
if (*n > 0)
{
strcat(filter, ",");
}
strcat(filter, buf);
(*n)++;
}
strcat(filter, "}");
}
static void get_stx_coordnum(const char *infile, int *natoms)
{
FILE *in;
int ftp;
t_trxframe fr;
char g96_line[STRLEN+1];
ftp = fn2ftp(infile);
range_check(ftp, 0, efNR);
switch (ftp)
{
case efGRO:
get_coordnum(infile, natoms);
break;
case efG96:
{
in = gmx_fio_fopen(infile, "r");
fr.title = NULL;
fr.natoms = -1;
fr.atoms = NULL;
fr.x = NULL;
fr.v = NULL;
fr.f = NULL;
*natoms = read_g96_conf(in, infile, &fr, NULL, g96_line);
sfree(const_cast<char *>(fr.title));
gmx_fio_fclose(in);
break;
}
case efPDB:
case efBRK:
case efENT:
in = gmx_fio_fopen(infile, "r");
get_pdb_coordnum(in, natoms);
gmx_fio_fclose(in);
break;
case efESP:
*natoms = get_espresso_coordnum(infile);
break;
default:
gmx_fatal(FARGS, "File type %s not supported in get_stx_coordnum",
ftp2ext(ftp));
}
}
void gmx_fio_select(int fio)
{
gmx_fio_check(fio);
#ifdef DEBUG
fprintf(stderr,"Select fio called with type %d for file %s\n",
FIO[fio].iFTP,FIO[fio].fn);
#endif
if (in_ftpset(FIO[fio].iFTP,asize(ftpXDR),ftpXDR)) {
#ifdef USE_XDR
do_read = do_xdr;
do_write = do_xdr;
#else
gmx_fatal(FARGS,"Sorry, no XDR");
#endif
}
else if (in_ftpset(FIO[fio].iFTP,asize(ftpASC),ftpASC)) {
do_read = do_ascread;
do_write = do_ascwrite;
}
else if (in_ftpset(FIO[fio].iFTP,asize(ftpBIN),ftpBIN)) {
do_read = do_binread;
do_write = do_binwrite;
}
#ifdef HAVE_XMl
else if (in_ftpset(FIO[fio].iFTP,asize(ftpXML),ftpXML)) {
do_read = do_dummy;
do_write = do_dummy;
}
#endif
else
gmx_fatal(FARGS,"Can not read/write topologies to file type %s",
ftp2ext(curfio->iFTP));
curfio = &(FIO[fio]);
}
int write_trxframe_indexed(t_trxstatus *status, const t_trxframe *fr, int nind,
const int *ind, gmx_conect gc)
{
char title[STRLEN];
rvec *xout = nullptr, *vout = nullptr, *fout = nullptr;
int i, ftp = -1;
real prec;
if (fr->bPrec)
{
prec = fr->prec;
}
else
{
prec = 1000.0;
}
if (status->tng)
{
ftp = efTNG;
}
else if (status->fio)
{
ftp = gmx_fio_getftp(status->fio);
}
else
{
gmx_incons("No input file available");
}
switch (ftp)
{
case efTRR:
case efTNG:
break;
default:
if (!fr->bX)
{
gmx_fatal(FARGS, "Need coordinates to write a %s trajectory",
ftp2ext(ftp));
}
break;
}
switch (ftp)
{
case efTRR:
case efTNG:
if (fr->bV)
{
snew(vout, nind);
for (i = 0; i < nind; i++)
{
copy_rvec(fr->v[ind[i]], vout[i]);
}
}
if (fr->bF)
{
snew(fout, nind);
for (i = 0; i < nind; i++)
{
copy_rvec(fr->f[ind[i]], fout[i]);
}
}
// fallthrough
case efXTC:
if (fr->bX)
{
snew(xout, nind);
for (i = 0; i < nind; i++)
{
copy_rvec(fr->x[ind[i]], xout[i]);
}
}
break;
default:
break;
}
switch (ftp)
{
case efTNG:
gmx_write_tng_from_trxframe(status->tng, fr, nind);
break;
case efXTC:
write_xtc(status->fio, nind, fr->step, fr->time, fr->box, xout, prec);
break;
case efTRR:
gmx_trr_write_frame(status->fio, nframes_read(status),
fr->time, fr->step, fr->box, nind, xout, vout, fout);
break;
case efGRO:
case efPDB:
case efBRK:
case efENT:
if (!fr->bAtoms)
{
gmx_fatal(FARGS, "Can not write a %s file without atom names",
ftp2ext(ftp));
}
sprintf(title, "frame t= %.3f", fr->time);
if (ftp == efGRO)
{
write_hconf_indexed_p(gmx_fio_getfp(status->fio), title, fr->atoms, nind, ind,
fr->x, fr->bV ? fr->v : nullptr, fr->box);
}
else
{
write_pdbfile_indexed(gmx_fio_getfp(status->fio), title, fr->atoms,
fr->x, -1, fr->box, ' ', fr->step, nind, ind, gc, TRUE);
}
break;
case efG96:
sprintf(title, "frame t= %.3f", fr->time);
write_g96_conf(gmx_fio_getfp(status->fio), title, fr, nind, ind);
break;
default:
gmx_fatal(FARGS, "Sorry, write_trxframe_indexed can not write %s",
ftp2ext(ftp));
break;
}
switch (ftp)
{
case efTRR:
case efTNG:
if (vout)
{
sfree(vout);
}
if (fout)
{
sfree(fout);
}
// fallthrough
case efXTC:
sfree(xout);
break;
default:
break;
}
return 0;
}
/*! \brief
* Google Test formatter for GromacsFileType values.
*/
void PrintTo(const GromacsFileType &ftp, std::ostream *os)
{
*os << "'" << ftp2ext(ftp) << "'";
}
int cmain (int argc, char *argv[])
{
const char *desc[] = {
"tpbconv can edit run input files in four ways.[PAR]",
"[BB]1.[bb] by modifying the number of steps in a run input file",
"with options [TT]-extend[tt], [TT]-until[tt] or [TT]-nsteps[tt]",
"(nsteps=-1 means unlimited number of steps)[PAR]",
"[BB]2.[bb] (OBSOLETE) by creating a run input file",
"for a continuation run when your simulation has crashed due to e.g.",
"a full disk, or by making a continuation run input file.",
"This option is obsolete, since mdrun now writes and reads",
"checkpoint files.",
"[BB]Note[bb] that a frame with coordinates and velocities is needed.",
"When pressure and/or Nose-Hoover temperature coupling is used",
"an energy file can be supplied to get an exact continuation",
"of the original run.[PAR]",
"[BB]3.[bb] by creating a [TT].tpx[tt] file for a subset of your original",
"tpx file, which is useful when you want to remove the solvent from",
"your [TT].tpx[tt] file, or when you want to make e.g. a pure C[GRK]alpha[grk] [TT].tpx[tt] file.",
"Note that you may need to use [TT]-nsteps -1[tt] (or similar) to get",
"this to work.",
"[BB]WARNING: this [TT].tpx[tt] file is not fully functional[bb].[PAR]",
"[BB]4.[bb] by setting the charges of a specified group",
"to zero. This is useful when doing free energy estimates",
"using the LIE (Linear Interaction Energy) method."
};
const char *top_fn, *frame_fn;
t_fileio *fp;
ener_file_t fp_ener = NULL;
t_trnheader head;
int i;
gmx_large_int_t nsteps_req, run_step, frame;
double run_t, state_t;
gmx_bool bOK, bNsteps, bExtend, bUntil, bTime, bTraj;
gmx_bool bFrame, bUse, bSel, bNeedEner, bReadEner, bScanEner, bFepState;
gmx_mtop_t mtop;
t_atoms atoms;
t_inputrec *ir, *irnew = NULL;
t_gromppopts *gopts;
t_state state;
rvec *newx = NULL, *newv = NULL, *tmpx, *tmpv;
matrix newbox;
int gnx;
char *grpname;
atom_id *index = NULL;
int nre;
gmx_enxnm_t *enm = NULL;
t_enxframe *fr_ener = NULL;
char buf[200], buf2[200];
output_env_t oenv;
t_filenm fnm[] = {
{ efTPX, NULL, NULL, ffREAD },
{ efTRN, "-f", NULL, ffOPTRD },
{ efEDR, "-e", NULL, ffOPTRD },
{ efNDX, NULL, NULL, ffOPTRD },
{ efTPX, "-o", "tpxout", ffWRITE }
};
#define NFILE asize(fnm)
/* Command line options */
static int nsteps_req_int = 0;
static real start_t = -1.0, extend_t = 0.0, until_t = 0.0;
static int init_fep_state = 0;
static gmx_bool bContinuation = TRUE, bZeroQ = FALSE, bVel = TRUE;
static t_pargs pa[] = {
{ "-extend", FALSE, etREAL, {&extend_t},
"Extend runtime by this amount (ps)" },
{ "-until", FALSE, etREAL, {&until_t},
"Extend runtime until this ending time (ps)" },
{ "-nsteps", FALSE, etINT, {&nsteps_req_int},
"Change the number of steps" },
{ "-time", FALSE, etREAL, {&start_t},
"Continue from frame at this time (ps) instead of the last frame" },
{ "-zeroq", FALSE, etBOOL, {&bZeroQ},
"Set the charges of a group (from the index) to zero" },
{ "-vel", FALSE, etBOOL, {&bVel},
"Require velocities from trajectory" },
{ "-cont", FALSE, etBOOL, {&bContinuation},
"For exact continuation, the constraints should not be applied before the first step" },
{ "-init_fep_state", FALSE, etINT, {&init_fep_state},
"fep state to initialize from" },
};
int nerror = 0;
CopyRight(stderr, argv[0]);
/* Parse the command line */
parse_common_args(&argc, argv, 0, NFILE, fnm, asize(pa), pa,
asize(desc), desc, 0, NULL, &oenv);
/* Convert int to gmx_large_int_t */
nsteps_req = nsteps_req_int;
bNsteps = opt2parg_bSet("-nsteps", asize(pa), pa);
bExtend = opt2parg_bSet("-extend", asize(pa), pa);
bUntil = opt2parg_bSet("-until", asize(pa), pa);
bFepState = opt2parg_bSet("-init_fep_state", asize(pa), pa);
bTime = opt2parg_bSet("-time", asize(pa), pa);
bTraj = (opt2bSet("-f", NFILE, fnm) || bTime);
top_fn = ftp2fn(efTPX, NFILE, fnm);
fprintf(stderr, "Reading toplogy and stuff from %s\n", top_fn);
snew(ir, 1);
read_tpx_state(top_fn, ir, &state, NULL, &mtop);
run_step = ir->init_step;
run_t = ir->init_step*ir->delta_t + ir->init_t;
if (!EI_STATE_VELOCITY(ir->eI))
{
bVel = FALSE;
}
if (bTraj)
{
fprintf(stderr, "\n"
"NOTE: Reading the state from trajectory is an obsolete feature of tpbconv.\n"
" Continuation should be done by loading a checkpoint file with mdrun -cpi\n"
" This guarantees that all state variables are transferred.\n"
" tpbconv is now only useful for increasing nsteps,\n"
" but even that can often be avoided by using mdrun -maxh\n"
"\n");
if (ir->bContinuation != bContinuation)
{
fprintf(stderr, "Modifying ir->bContinuation to %s\n",
bool_names[bContinuation]);
}
ir->bContinuation = bContinuation;
bNeedEner = (ir->epc == epcPARRINELLORAHMAN || ir->etc == etcNOSEHOOVER);
bReadEner = (bNeedEner && ftp2bSet(efEDR, NFILE, fnm));
bScanEner = (bReadEner && !bTime);
if (ir->epc != epcNO || EI_SD(ir->eI) || ir->eI == eiBD)
{
fprintf(stderr, "NOTE: The simulation uses pressure coupling and/or stochastic dynamics.\n"
"tpbconv can not provide binary identical continuation.\n"
"If you want that, supply a checkpoint file to mdrun\n\n");
}
if (EI_SD(ir->eI) || ir->eI == eiBD)
{
fprintf(stderr, "\nChanging ld-seed from %d ", ir->ld_seed);
ir->ld_seed = make_seed();
fprintf(stderr, "to %d\n\n", ir->ld_seed);
}
frame_fn = ftp2fn(efTRN, NFILE, fnm);
if (fn2ftp(frame_fn) == efCPT)
{
int sim_part;
fprintf(stderr,
"\nREADING STATE FROM CHECKPOINT %s...\n\n",
frame_fn);
read_checkpoint_state(frame_fn, &sim_part,
&run_step, &run_t, &state);
}
else
{
fprintf(stderr,
"\nREADING COORDS, VELS AND BOX FROM TRAJECTORY %s...\n\n",
frame_fn);
fp = open_trn(frame_fn, "r");
if (bScanEner)
{
fp_ener = open_enx(ftp2fn(efEDR, NFILE, fnm), "r");
do_enxnms(fp_ener, &nre, &enm);
snew(fr_ener, 1);
fr_ener->t = -1e-12;
}
/* Now scan until the last set of x and v (step == 0)
* or the ones at step step.
*/
bFrame = TRUE;
frame = 0;
while (bFrame)
{
bFrame = fread_trnheader(fp, &head, &bOK);
if (bOK && frame == 0)
{
if (mtop.natoms != head.natoms)
{
gmx_fatal(FARGS, "Number of atoms in Topology (%d) "
"is not the same as in Trajectory (%d)\n",
mtop.natoms, head.natoms);
}
snew(newx, head.natoms);
snew(newv, head.natoms);
}
bFrame = bFrame && bOK;
if (bFrame)
{
bOK = fread_htrn(fp, &head, newbox, newx, newv, NULL);
}
bFrame = bFrame && bOK;
bUse = FALSE;
if (bFrame &&
(head.x_size) && (head.v_size || !bVel))
{
bUse = TRUE;
if (bScanEner)
{
/* Read until the energy time is >= the trajectory time */
while (fr_ener->t < head.t && do_enx(fp_ener, fr_ener))
{
;
}
bUse = (fr_ener->t == head.t);
}
if (bUse)
{
tmpx = newx;
newx = state.x;
state.x = tmpx;
tmpv = newv;
newv = state.v;
state.v = tmpv;
run_t = head.t;
run_step = head.step;
state.fep_state = head.fep_state;
state.lambda[efptFEP] = head.lambda;
copy_mat(newbox, state.box);
}
}
if (bFrame || !bOK)
{
sprintf(buf, "\r%s %s frame %s%s: step %s%s time %s",
"%s", "%s", "%6", gmx_large_int_fmt, "%6", gmx_large_int_fmt, " %8.3f");
fprintf(stderr, buf,
bUse ? "Read " : "Skipped", ftp2ext(fn2ftp(frame_fn)),
frame, head.step, head.t);
frame++;
if (bTime && (head.t >= start_t))
{
bFrame = FALSE;
}
}
}
if (bScanEner)
{
close_enx(fp_ener);
free_enxframe(fr_ener);
free_enxnms(nre, enm);
}
close_trn(fp);
fprintf(stderr, "\n");
if (!bOK)
{
fprintf(stderr, "%s frame %s (step %s, time %g) is incomplete\n",
ftp2ext(fn2ftp(frame_fn)), gmx_step_str(frame-1, buf2),
gmx_step_str(head.step, buf), head.t);
}
fprintf(stderr, "\nUsing frame of step %s time %g\n",
gmx_step_str(run_step, buf), run_t);
if (bNeedEner)
{
if (bReadEner)
{
get_enx_state(ftp2fn(efEDR, NFILE, fnm), run_t, &mtop.groups, ir, &state);
}
else
{
fprintf(stderr, "\nWARNING: The simulation uses %s temperature and/or %s pressure coupling,\n"
" the continuation will only be exact when an energy file is supplied\n\n",
ETCOUPLTYPE(etcNOSEHOOVER),
EPCOUPLTYPE(epcPARRINELLORAHMAN));
}
}
if (bFepState)
{
ir->fepvals->init_fep_state = init_fep_state;
}
}
}
if (bNsteps)
{
fprintf(stderr, "Setting nsteps to %s\n", gmx_step_str(nsteps_req, buf));
ir->nsteps = nsteps_req;
}
else
{
/* Determine total number of steps remaining */
if (bExtend)
{
ir->nsteps = ir->nsteps - (run_step - ir->init_step) + (gmx_large_int_t)(extend_t/ir->delta_t + 0.5);
printf("Extending remaining runtime of by %g ps (now %s steps)\n",
extend_t, gmx_step_str(ir->nsteps, buf));
}
else if (bUntil)
{
printf("nsteps = %s, run_step = %s, current_t = %g, until = %g\n",
gmx_step_str(ir->nsteps, buf),
gmx_step_str(run_step, buf2),
run_t, until_t);
ir->nsteps = (gmx_large_int_t)((until_t - run_t)/ir->delta_t + 0.5);
printf("Extending remaining runtime until %g ps (now %s steps)\n",
until_t, gmx_step_str(ir->nsteps, buf));
}
else
{
ir->nsteps -= run_step - ir->init_step;
/* Print message */
printf("%s steps (%g ps) remaining from first run.\n",
gmx_step_str(ir->nsteps, buf), ir->nsteps*ir->delta_t);
}
}
if (bNsteps || bZeroQ || (ir->nsteps > 0))
{
ir->init_step = run_step;
if (ftp2bSet(efNDX, NFILE, fnm) ||
!(bNsteps || bExtend || bUntil || bTraj))
{
atoms = gmx_mtop_global_atoms(&mtop);
get_index(&atoms, ftp2fn_null(efNDX, NFILE, fnm), 1,
&gnx, &index, &grpname);
if (!bZeroQ)
{
bSel = (gnx != state.natoms);
for (i = 0; ((i < gnx) && (!bSel)); i++)
{
bSel = (i != index[i]);
}
}
else
{
bSel = FALSE;
}
if (bSel)
{
fprintf(stderr, "Will write subset %s of original tpx containing %d "
"atoms\n", grpname, gnx);
reduce_topology_x(gnx, index, &mtop, state.x, state.v);
state.natoms = gnx;
}
else if (bZeroQ)
{
zeroq(gnx, index, &mtop);
fprintf(stderr, "Zero-ing charges for group %s\n", grpname);
}
else
{
fprintf(stderr, "Will write full tpx file (no selection)\n");
}
}
state_t = ir->init_t + ir->init_step*ir->delta_t;
sprintf(buf, "Writing statusfile with starting step %s%s and length %s%s steps...\n", "%10", gmx_large_int_fmt, "%10", gmx_large_int_fmt);
fprintf(stderr, buf, ir->init_step, ir->nsteps);
fprintf(stderr, " time %10.3f and length %10.3f ps\n",
state_t, ir->nsteps*ir->delta_t);
write_tpx_state(opt2fn("-o", NFILE, fnm), ir, &state, &mtop);
}
else
{
printf("You've simulated long enough. Not writing tpr file\n");
}
thanx(stderr);
return 0;
}
gmx_bool read_next_frame(const output_env_t oenv, t_trxstatus *status, t_trxframe *fr)
{
real pt;
int ct;
gmx_bool bOK, bRet, bMissingData = FALSE, bSkip = FALSE;
int dummy = 0;
int ftp;
bRet = FALSE;
pt = fr->tf;
do
{
clear_trxframe(fr, FALSE);
fr->tppf = fr->tpf;
fr->tpf = fr->tf;
if (status->tng)
{
/* Special treatment for TNG files */
ftp = efTNG;
}
else
{
ftp = gmx_fio_getftp(status->fio);
}
switch (ftp)
{
case efTRR:
bRet = gmx_next_frame(status, fr);
break;
case efCPT:
/* Checkpoint files can not contain mulitple frames */
break;
case efG96:
read_g96_conf(gmx_fio_getfp(status->fio), NULL, fr,
status->persistent_line);
bRet = (fr->natoms > 0);
break;
case efXTC:
/* B. Hess 2005-4-20
* Sometimes is off by one frame
* and sometimes reports frame not present/file not seekable
*/
/* DvdS 2005-05-31: this has been fixed along with the increased
* accuracy of the control over -b and -e options.
*/
if (bTimeSet(TBEGIN) && (fr->tf < rTimeValue(TBEGIN)))
{
if (xtc_seek_time(status->fio, rTimeValue(TBEGIN), fr->natoms, TRUE))
{
gmx_fatal(FARGS, "Specified frame (time %f) doesn't exist or file corrupt/inconsistent.",
rTimeValue(TBEGIN));
}
initcount(status);
}
bRet = read_next_xtc(status->fio, fr->natoms, &fr->step, &fr->time, fr->box,
fr->x, &fr->prec, &bOK);
fr->bPrec = (bRet && fr->prec > 0);
fr->bStep = bRet;
fr->bTime = bRet;
fr->bX = bRet;
fr->bBox = bRet;
if (!bOK)
{
/* Actually the header could also be not ok,
but from bOK from read_next_xtc this can't be distinguished */
fr->not_ok = DATA_NOT_OK;
}
break;
case efTNG:
bRet = gmx_read_next_tng_frame(status->tng, fr, NULL, 0);
break;
case efPDB:
bRet = pdb_next_x(status, gmx_fio_getfp(status->fio), fr);
break;
case efGRO:
bRet = gro_next_x_or_v(gmx_fio_getfp(status->fio), fr);
break;
default:
#ifdef GMX_USE_PLUGINS
bRet = read_next_vmd_frame(fr);
#else
gmx_fatal(FARGS, "DEATH HORROR in read_next_frame ftp=%s,status=%s",
ftp2ext(gmx_fio_getftp(status->fio)),
gmx_fio_getname(status->fio));
#endif
}
fr->tf = fr->time;
if (bRet)
{
bMissingData = (((fr->flags & TRX_NEED_X) && !fr->bX) ||
((fr->flags & TRX_NEED_V) && !fr->bV) ||
((fr->flags & TRX_NEED_F) && !fr->bF));
bSkip = FALSE;
if (!bMissingData)
{
ct = check_times2(fr->time, fr->t0, fr->bDouble);
if (ct == 0 || ((fr->flags & TRX_DONT_SKIP) && ct < 0))
{
printcount(status, oenv, fr->time, FALSE);
}
else if (ct > 0)
{
bRet = FALSE;
}
else
{
printcount(status, oenv, fr->time, TRUE);
bSkip = TRUE;
}
}
}
}
while (bRet && (bMissingData || bSkip));
if (!bRet)
{
printlast(status, oenv, pt);
if (fr->not_ok)
{
printincomp(status, fr);
}
}
return bRet;
}
int main(int argc,char *argv[])
{
const char *desc[] = {
"[TT]do_multiprot[tt] ",
"reads a trajectory file and aligns it to a reference structure ",
"each time frame",
"calling the multiprot program. This allows you to use a reference",
"structure whose sequence is different than that of the protein in the ",
"trajectory, since the alignment is based on the geometry, not sequence.",
"The output of [TT]do_multiprot[tt] includes the rmsd and the number of residues",
"on which it was calculated.",
"[PAR]",
"An aligned trajectory file is generated with the [TT]-ox[tt] option.[PAR]",
"With the [TT]-cr[tt] option, the number of hits in the alignment is given",
"per residue. This number can be between 0 and the number of frames, and",
"indicates the structural conservation of this residue.[PAR]",
"If you do not have the [TT]multiprot[tt] program, get it. [TT]do_multiprot[tt] assumes",
"that the [TT]multiprot[tt] executable is [TT]/usr/local/bin/multiprot[tt]. If this is ",
"not the case, then you should set an environment variable [BB]MULTIPROT[bb]",
"pointing to the [TT]multiprot[tt] executable, e.g.: [PAR]",
"[TT]setenv MULTIPROT /usr/MultiProtInstall/multiprot.Linux[tt][PAR]",
"Note that at the current implementation only binary alignment (your",
"molecule to a reference) is supported. In addition, note that the ",
"by default [TT]multiprot[tt] aligns the two proteins on their C-alpha carbons.",
"and that this depends on the [TT]multiprot[tt] parameters which are not dealt ",
"with here. Thus, the C-alpha carbons is expected to give the same "
"results as choosing the whole protein and will be slightly faster.[PAR]",
"For information about [TT]multiprot[tt], see:",
"http://bioinfo3d.cs.tau.ac.il/MultiProt/.[PAR]"
};
static bool bVerbose;
t_pargs pa[] = {
{ "-v", FALSE, etBOOL, {&bVerbose},
"HIDDENGenerate miles of useless information" }
};
const char *bugs[] = {
"The program is very slow, since multiprot is run externally"
};
t_trxstatus *status;
t_trxstatus *trxout=NULL;
FILE *tapein,*fo,*frc,*tmpf,*out=NULL,*fres=NULL;
const char *fnRef;
const char *fn="2_sol.res";
t_topology top;
int ePBC;
t_atoms *atoms,ratoms,useatoms;
t_trxframe fr;
t_pdbinfo p;
int nres,nres2,nr0;
real t;
int i,j,natoms,nratoms,nframe=0,model_nr=-1;
int cur_res,prev_res;
int nout;
t_countres *countres=NULL;
matrix box,rbox;
int gnx;
char *grpnm,*ss_str;
atom_id *index;
rvec *xp,*x,*xr;
char pdbfile[32],refpdb[256],title[256],rtitle[256],filemode[5];
char out_title[256];
char multiprot[256],*mptr;
int ftp;
int outftp=-1;
real rmsd;
bool bTrjout,bCountres;
const char *TrjoutFile=NULL;
output_env_t oenv;
static rvec translation={0,0,0},rotangles={0,0,0};
gmx_rmpbc_t gpbc=NULL;
t_filenm fnm[] = {
{ efTRX, "-f", NULL, ffREAD },
{ efTPS, NULL, NULL, ffREAD },
{ efNDX, NULL, NULL, ffOPTRD },
{ efSTX, "-r", NULL , ffREAD },
{ efXVG, "-o", "rmss", ffWRITE },
{ efXVG, "-rc", "rescount", ffWRITE},
{ efXVG, "-cr", "countres", ffOPTWR},
{ efTRX, "-ox", "aligned", ffOPTWR }
};
#define NFILE asize(fnm)
CopyRight(stderr,argv[0]);
parse_common_args(&argc,argv,PCA_CAN_TIME | PCA_CAN_VIEW | PCA_TIME_UNIT,
NFILE,fnm, asize(pa),pa, asize(desc),desc,
asize(bugs),bugs,&oenv
);
fnRef=opt2fn("-r",NFILE,fnm);
bTrjout = opt2bSet("-ox",NFILE,fnm);
bCountres= opt2bSet("-cr",NFILE,fnm);
if (bTrjout) {
TrjoutFile = opt2fn_null("-ox",NFILE,fnm);
}
read_tps_conf(ftp2fn(efTPS,NFILE,fnm),title,&top,&ePBC,&xp,NULL,box,FALSE);
gpbc = gmx_rmpbc_init(&top.idef,ePBC,top.atoms.nr,box);
atoms=&(top.atoms);
ftp=fn2ftp(fnRef);
get_stx_coordnum(fnRef,&nratoms);
init_t_atoms(&ratoms,nratoms,TRUE);
snew(xr,nratoms);
read_stx_conf(fnRef,rtitle,&ratoms,xr,NULL,&ePBC,rbox);
if (bVerbose) {
fprintf(stderr,"Read %d atoms\n",atoms->nr);
fprintf(stderr,"Read %d reference atoms\n",ratoms.nr);
}
if (bCountres) {
snew(countres,ratoms.nres);
j=0;
cur_res=0;
for (i=0;i<ratoms.nr;i++) {
prev_res=cur_res;
cur_res=ratoms.atom[i].resind;
if (cur_res != prev_res) {
countres[j].resnr=cur_res;
countres[j].count=0;
j++;
}
}
}
get_index(atoms,ftp2fn_null(efNDX,NFILE,fnm),1,&gnx,&index,&grpnm);
nres=0;
nr0=-1;
for(i=0; (i<gnx); i++) {
if (atoms->atom[index[i]].resind != nr0) {
nr0=atoms->atom[index[i]].resind;
nres++;
}
}
fprintf(stderr,"There are %d residues in your selected group\n",nres);
strcpy(pdbfile,"ddXXXXXX");
gmx_tmpnam(pdbfile);
if ((tmpf = fopen(pdbfile,"w")) == NULL) {
sprintf(pdbfile,"%ctmp%cfilterXXXXXX",DIR_SEPARATOR,DIR_SEPARATOR);
gmx_tmpnam(pdbfile);
if ((tmpf = fopen(pdbfile,"w")) == NULL) {
gmx_fatal(FARGS,"Can not open tmp file %s",pdbfile);
}
}
else {
gmx_ffclose(tmpf);
}
if (ftp != efPDB) {
strcpy(refpdb,"ddXXXXXX");
gmx_tmpnam(refpdb);
strcat(refpdb,".pdb");
write_sto_conf(refpdb,rtitle,&ratoms,xr,NULL,ePBC,rbox);
}
else {
strcpy(refpdb,fnRef);
}
if ((mptr=getenv("MULTIPROT")) == NULL) {
mptr="/usr/local/bin/multiprot";
}
if (!gmx_fexist(mptr)) {
gmx_fatal(FARGS,"MULTIPROT executable (%s) does not exist (use setenv MULTIPROT)",
mptr);
}
sprintf (multiprot,"%s %s %s > /dev/null %s",
mptr, refpdb, pdbfile, "2> /dev/null");
if (bVerbose)
fprintf(stderr,"multiprot cmd='%s'\n",multiprot);
if (!read_first_frame(oenv,&status,ftp2fn(efTRX,NFILE,fnm),&fr,TRX_READ_X))
gmx_fatal(FARGS,"Could not read a frame from %s",ftp2fn(efTRX,NFILE,fnm));
natoms = fr.natoms;
if (bTrjout) {
nout=natoms;
/* open file now */
outftp=fn2ftp(TrjoutFile);
if (bVerbose)
fprintf(stderr,"Will write %s: %s\n",ftp2ext(ftp),ftp2desc(outftp));
strcpy(filemode,"w");
switch (outftp) {
case efXTC:
case efG87:
case efTRR:
case efTRJ:
out=NULL;
trxout = open_trx(TrjoutFile,filemode);
break;
case efGRO:
case efG96:
case efPDB:
/* Make atoms struct for output in GRO or PDB files */
/* get memory for stuff to go in pdb file */
init_t_atoms(&useatoms,nout,FALSE);
sfree(useatoms.resinfo);
useatoms.resinfo=atoms->resinfo;
for(i=0;(i<nout);i++) {
useatoms.atomname[i]=atoms->atomname[i];
useatoms.atom[i]=atoms->atom[i];
useatoms.nres=max(useatoms.nres,useatoms.atom[i].resind+1);
}
useatoms.nr=nout;
out=gmx_ffopen(TrjoutFile,filemode);
break;
}
}
if (natoms > atoms->nr) {
gmx_fatal(FARGS,"\nTrajectory does not match topology!");
}
if (gnx > natoms) {
gmx_fatal(FARGS,"\nTrajectory does not match selected group!");
}
fo = xvgropen(opt2fn("-o",NFILE,fnm),"RMSD","Time (ps)","RMSD (nm)",oenv);
frc = xvgropen(opt2fn("-rc",NFILE,fnm),"Number of Residues in the alignment","Time (ps)","Residues",oenv);
do {
t = output_env_conv_time(oenv,fr.time);
gmx_rmpbc(gpbc,natoms,fr.box,fr.x);
tapein=gmx_ffopen(pdbfile,"w");
write_pdbfile_indexed(tapein,NULL,atoms,fr.x,ePBC,fr.box,' ',-1,gnx,index,NULL,TRUE);
gmx_ffclose(tapein);
system(multiprot);
remove(pdbfile);
process_multiprot_output(fn, &rmsd, &nres2,rotangles,translation,bCountres,countres);
fprintf(fo,"%12.7f",t);
fprintf(fo," %12.7f\n",rmsd);
fprintf(frc,"%12.7f",t);
fprintf(frc,"%12d\n",nres2);
if (bTrjout) {
rotate_conf(natoms,fr.x,NULL,rotangles[XX],rotangles[YY],rotangles[ZZ]);
for(i=0; i<natoms; i++) {
rvec_inc(fr.x[i],translation);
}
switch(outftp) {
case efTRJ:
case efTRR:
case efG87:
case efXTC:
write_trxframe(trxout,&fr,NULL);
break;
case efGRO:
case efG96:
case efPDB:
sprintf(out_title,"Generated by do_multiprot : %s t= %g %s",
title,output_env_conv_time(oenv,fr.time),output_env_get_time_unit(oenv));
switch(outftp) {
case efGRO:
write_hconf_p(out,out_title,&useatoms,prec2ndec(fr.prec),
fr.x,NULL,fr.box);
break;
case efPDB:
fprintf(out,"REMARK GENERATED BY DO_MULTIPROT\n");
sprintf(out_title,"%s t= %g %s",title,output_env_conv_time(oenv,fr.time),output_env_get_time_unit(oenv));
/* if reading from pdb, we want to keep the original
model numbering else we write the output frame
number plus one, because model 0 is not allowed in pdb */
if (ftp==efPDB && fr.step > model_nr) {
model_nr = fr.step;
}
else {
model_nr++;
}
write_pdbfile(out,out_title,&useatoms,fr.x,ePBC,fr.box,' ',model_nr,NULL,TRUE);
break;
case efG96:
fr.title = out_title;
fr.bTitle = (nframe == 0);
fr.bAtoms = FALSE;
fr.bStep = TRUE;
fr.bTime = TRUE;
write_g96_conf(out,&fr,-1,NULL);
}
break;
}
}
nframe++;
} while(read_next_frame(oenv,status,&fr));
if (bCountres) {
fres= xvgropen(opt2fn("-cr",NFILE,fnm),"Number of frames in which the residues are aligned to","Residue","Number",oenv);
for (i=0;i<ratoms.nres;i++) {
fprintf(fres,"%10d %12d\n",countres[i].resnr,countres[i].count);
}
gmx_ffclose(fres);
}
gmx_ffclose(fo);
gmx_ffclose(frc);
fprintf(stderr,"\n");
close_trj(status);
if (trxout != NULL) {
close_trx(trxout);
}
else if (out != NULL) {
gmx_ffclose(out);
}
view_all(oenv,NFILE, fnm);
sfree(xr);
if (bCountres) {
sfree(countres);
}
free_t_atoms(&ratoms,TRUE);
if (bTrjout) {
if (outftp==efPDB || outftp==efGRO || outftp==efG96) {
free_t_atoms(&useatoms,TRUE);
}
}
gmx_thanx(stderr);
return 0;
}
/*! \brief Support handling restarts
*
* \todo Clean this up (next patch)
*
* Read just the simulation 'generation' and with bTryToAppendFiles check files.
* This is is needed at the beginning of mdrun,
* to be able to rename the logfile correctly.
* When file appending is requested, checks which output files are present,
* and returns TRUE/FALSE in bDoAppendFiles if all or none are present.
* If only some output files are present, give a fatal error.
* When bDoAppendFiles is TRUE upon return, bAddPart will tell whether the simulation part
* needs to be added to the output file name.
*
* This routine cannot print tons of data, since it is called before
* the log file is opened. */
static void
read_checkpoint_data(const char *filename, int *simulation_part,
t_commrec *cr,
gmx_bool bTryToAppendFiles,
int nfile, const t_filenm fnm[],
const char *part_suffix,
gmx_bool *bAddPart,
gmx_bool *bDoAppendFiles)
{
t_fileio *fp;
int nfiles;
gmx_file_position_t *outputfiles;
int nexist, f;
char *fn, suf_up[STRLEN];
*bDoAppendFiles = FALSE;
if (SIMMASTER(cr))
{
if (!gmx_fexist(filename) || (!(fp = gmx_fio_open(filename, "r")) ))
{
*simulation_part = 0;
}
else
{
read_checkpoint_simulation_part_and_filenames(fp,
simulation_part,
&nfiles,
&outputfiles);
if (bTryToAppendFiles)
{
nexist = 0;
for (f = 0; f < nfiles; f++)
{
if (exist_output_file(outputfiles[f].filename, nfile, fnm))
{
nexist++;
}
}
if (nexist == nfiles)
{
*bDoAppendFiles = bTryToAppendFiles;
}
else if (nexist > 0)
{
fprintf(stderr,
"Output file appending has been requested,\n"
"but some output files listed in the checkpoint file %s\n"
"are not present or are named differently by the current program:\n",
filename);
fprintf(stderr, "output files present:");
for (f = 0; f < nfiles; f++)
{
if (exist_output_file(outputfiles[f].filename,
nfile, fnm))
{
fprintf(stderr, " %s", outputfiles[f].filename);
}
}
fprintf(stderr, "\n");
fprintf(stderr, "output files not present or named differently:");
for (f = 0; f < nfiles; f++)
{
if (!exist_output_file(outputfiles[f].filename,
nfile, fnm))
{
fprintf(stderr, " %s", outputfiles[f].filename);
}
}
fprintf(stderr, "\n");
gmx_fatal(FARGS, "File appending requested, but %d of the %d output files are not present or are named differently", nfiles-nexist, nfiles);
}
}
if (*bDoAppendFiles)
{
if (nfiles == 0)
{
gmx_fatal(FARGS, "File appending requested, but no output file information is stored in the checkpoint file");
}
fn = outputfiles[0].filename;
if (strlen(fn) < 4 ||
gmx_strcasecmp(fn+strlen(fn)-4, ftp2ext(efLOG)) == 0)
{
gmx_fatal(FARGS, "File appending requested, but the log file is not the first file listed in the checkpoint file");
}
/* Set bAddPart to whether the suffix string '.part' is present
* in the log file name.
*/
strcpy(suf_up, part_suffix);
upstring(suf_up);
*bAddPart = (strstr(fn, part_suffix) != NULL ||
strstr(fn, suf_up) != NULL);
}
sfree(outputfiles);
}
}
if (PAR(cr))
{
gmx_bcast(sizeof(*simulation_part), simulation_part, cr);
if (*simulation_part > 0 && bTryToAppendFiles)
{
gmx_bcast(sizeof(*bDoAppendFiles), bDoAppendFiles, cr);
gmx_bcast(sizeof(*bAddPart), bAddPart, cr);
}
}
}
int write_trxframe(t_trxstatus *status, t_trxframe *fr, gmx_conect gc)
{
char title[STRLEN];
real prec;
if (fr->bPrec)
{
prec = fr->prec;
}
else
{
prec = 1000.0;
}
if (status->tng)
{
gmx_tng_set_compression_precision(status->tng, prec);
write_tng_frame(status, fr);
return 0;
}
switch (gmx_fio_getftp(status->fio))
{
case efTRR:
break;
default:
if (!fr->bX)
{
gmx_fatal(FARGS, "Need coordinates to write a %s trajectory",
ftp2ext(gmx_fio_getftp(status->fio)));
}
break;
}
switch (gmx_fio_getftp(status->fio))
{
case efXTC:
write_xtc(status->fio, fr->natoms, fr->step, fr->time, fr->box, fr->x, prec);
break;
case efTRR:
gmx_trr_write_frame(status->fio, fr->step, fr->time, fr->lambda, fr->box, fr->natoms,
fr->bX ? fr->x : nullptr, fr->bV ? fr->v : nullptr, fr->bF ? fr->f : nullptr);
break;
case efGRO:
case efPDB:
case efBRK:
case efENT:
if (!fr->bAtoms)
{
gmx_fatal(FARGS, "Can not write a %s file without atom names",
ftp2ext(gmx_fio_getftp(status->fio)));
}
sprintf(title, "frame t= %.3f", fr->time);
if (gmx_fio_getftp(status->fio) == efGRO)
{
write_hconf_p(gmx_fio_getfp(status->fio), title, fr->atoms,
fr->x, fr->bV ? fr->v : nullptr, fr->box);
}
else
{
write_pdbfile(gmx_fio_getfp(status->fio), title,
fr->atoms, fr->x, fr->bPBC ? fr->ePBC : -1, fr->box,
' ', fr->step, gc, TRUE);
}
break;
case efG96:
write_g96_conf(gmx_fio_getfp(status->fio), title, fr, -1, nullptr);
break;
default:
gmx_fatal(FARGS, "Sorry, write_trxframe can not write %s",
ftp2ext(gmx_fio_getftp(status->fio)));
break;
}
return 0;
}
static void write_xmlman(FILE *out,
const char *program,
int nldesc,const char **desc,
int nfile,t_filenm *fnm,
int npargs,t_pargs *pa,
int nbug,const char **bugs,
t_linkdata *links)
{
int i;
char link[10],buf[256],opt[10];
#define NSR2(s) check_xml(s,program,links)
#define FLAG(w,f) (((w) & (f))==(f))
fprintf(out,"<gromacs-manual version=\"%s\" date=\"%s\" www=\"http://www.gromacs.org\">\n",GromacsVersion(),mydate(buf,255,FALSE));
/* fprintf(out,"<LINK rel=stylesheet href=\"style.css\" type=\"text/css\">\n"); */
fprintf(out,"<program name=\"%s\">",program);
if (nldesc > 0) {
fprintf(out,"\n<description>\n<par>\n");
for(i=0; (i<nldesc); i++)
fprintf(out,"%s\n",NSR2(desc[i]));
}
fprintf(out,"</par>\n</description>\n");
if (nfile > 0) {
fprintf(out,"\n<files>\n");
for(i=0; (i<nfile); i++) {
strcpy(link,ftp2ext(fnm[i].ftp));
if (strcmp(link,"???")==0)
strcpy(link,"files");
if (fnm[i].opt[0]=='-') strcpy(opt,fnm[i].opt+1);
else strcpy(opt,fnm[i].opt);
fprintf(out,
"<file type=\"%s\" typeid=\"%d\">\n"
"\t<flags read=\"%d\" write=\"%d\" optional=\"%d\"/>\n"
"\t<option>%s</option>\n"
"\t<default-name link=\"%s.html\">%s</default-name>\n"
"\t<description>%s</description>\n"
"</file>\n",
ftp2defnm(fnm[i].ftp), /* from gmxlib/filenm.c */
fnm[i].ftp,
FLAG(fnm[i].flag,ffREAD), FLAG(fnm[i].flag,ffWRITE), FLAG(fnm[i].flag,ffOPT),
opt,link,fnm[i].fn,/*fileopt(fnm[i].flag),*/
NSR(ftp2desc(fnm[i].ftp)));
}
fprintf(out,"</files>\n");
}
if (npargs > 0) {
fprintf(out,"\n<options>\n");
for(i=0; (i<npargs); i++)
fprintf(out,
"<option type=\"%s\" hidden=\"%d\">\n"
"\t<name >%s</name>\n"
"\t<default-value>%s</default-value>\n"
"\t<description>%s</description>\n"
"</option>\n",
argtp[pa[i].type], is_hidden(&pa[i]),
pa[i].option+1, /* +1 - with no trailing '-' */
pa_val(&(pa[i]),buf,255),pa[i].desc); /*argtp[pa[i].type],*/
fprintf(out,"</options>\n");
}
if (nbug > 0) {
fprintf(out,"\n<bugs>\n");
for(i=0; (i<nbug); i++)
fprintf(out,"\t<bug>%s</bug>\n",NSR(bugs[i]));
fprintf(out,"</bugs>\n");
}
fprintf(out,"\n</program>\n</gromacs-manual>\n");
#undef FLAG
}
int write_trxframe_indexed(t_trxstatus *status, t_trxframe *fr, int nind,
const atom_id *ind, gmx_conect gc)
{
char title[STRLEN];
rvec *xout = NULL, *vout = NULL, *fout = NULL;
int i;
real prec;
if (fr->bPrec)
{
prec = fr->prec;
}
else
{
prec = 1000.0;
}
switch (gmx_fio_getftp(status->fio))
{
case efTRJ:
case efTRR:
break;
default:
if (!fr->bX)
{
gmx_fatal(FARGS, "Need coordinates to write a %s trajectory",
ftp2ext(gmx_fio_getftp(status->fio)));
}
break;
}
switch (gmx_fio_getftp(status->fio))
{
case efTRJ:
case efTRR:
if (fr->bV)
{
snew(vout, nind);
for (i = 0; i < nind; i++)
{
copy_rvec(fr->v[ind[i]], vout[i]);
}
}
if (fr->bF)
{
snew(fout, nind);
for (i = 0; i < nind; i++)
{
copy_rvec(fr->f[ind[i]], fout[i]);
}
}
/* no break */
case efXTC:
case efG87:
if (fr->bX)
{
snew(xout, nind);
for (i = 0; i < nind; i++)
{
copy_rvec(fr->x[ind[i]], xout[i]);
}
}
break;
default:
break;
}
switch (gmx_fio_getftp(status->fio))
{
case efXTC:
write_xtc(status->fio, nind, fr->step, fr->time, fr->box, xout, prec);
break;
case efTRJ:
case efTRR:
fwrite_trn(status->fio, nframes_read(status),
fr->time, fr->step, fr->box, nind, xout, vout, fout);
break;
case efGRO:
case efPDB:
case efBRK:
case efENT:
if (!fr->bAtoms)
{
gmx_fatal(FARGS, "Can not write a %s file without atom names",
ftp2ext(gmx_fio_getftp(status->fio)));
}
sprintf(title, "frame t= %.3f", fr->time);
if (gmx_fio_getftp(status->fio) == efGRO)
{
write_hconf_indexed_p(gmx_fio_getfp(status->fio), title, fr->atoms, nind, ind,
prec2ndec(prec),
fr->x, fr->bV ? fr->v : NULL, fr->box);
}
else
{
write_pdbfile_indexed(gmx_fio_getfp(status->fio), title, fr->atoms,
fr->x, -1, fr->box, ' ', fr->step, nind, ind, gc, TRUE);
}
break;
case efG87:
write_gms(gmx_fio_getfp(status->fio), nind, xout, fr->box);
break;
case efG96:
write_g96_conf(gmx_fio_getfp(status->fio), fr, nind, ind);
break;
default:
gmx_fatal(FARGS, "Sorry, write_trxframe_indexed can not write %s",
ftp2ext(gmx_fio_getftp(status->fio)));
break;
}
switch (gmx_fio_getftp(status->fio))
{
case efTRN:
case efTRJ:
case efTRR:
if (vout)
{
sfree(vout);
}
if (fout)
{
sfree(fout);
}
/* no break */
case efXTC:
case efG87:
sfree(xout);
break;
default:
break;
}
return 0;
}
int gmx_confrms(int argc, char *argv[])
{
const char *desc[] = {
"[TT]g_confrms[tt] computes the root mean square deviation (RMSD) of two",
"structures after least-squares fitting the second structure on the first one.",
"The two structures do NOT need to have the same number of atoms,",
"only the two index groups used for the fit need to be identical.",
"With [TT]-name[tt] only matching atom names from the selected groups",
"will be used for the fit and RMSD calculation. This can be useful ",
"when comparing mutants of a protein.",
"[PAR]",
"The superimposed structures are written to file. In a [TT].pdb[tt] file",
"the two structures will be written as separate models",
"(use [TT]rasmol -nmrpdb[tt]). Also in a [TT].pdb[tt] file, B-factors",
"calculated from the atomic MSD values can be written with [TT]-bfac[tt].",
};
static gmx_bool bOne = FALSE, bRmpbc = FALSE, bMW = TRUE, bName = FALSE,
bBfac = FALSE, bFit = TRUE, bLabel = FALSE;
t_pargs pa[] = {
{ "-one", FALSE, etBOOL, {&bOne}, "Only write the fitted structure to file" },
{ "-mw", FALSE, etBOOL, {&bMW}, "Mass-weighted fitting and RMSD" },
{ "-pbc", FALSE, etBOOL, {&bRmpbc}, "Try to make molecules whole again" },
{ "-fit", FALSE, etBOOL, {&bFit},
"Do least squares superposition of the target structure to the reference" },
{ "-name", FALSE, etBOOL, {&bName},
"Only compare matching atom names" },
{ "-label", FALSE, etBOOL, {&bLabel},
"Added chain labels A for first and B for second structure"},
{ "-bfac", FALSE, etBOOL, {&bBfac},
"Output B-factors from atomic MSD values" }
};
t_filenm fnm[] = {
{ efTPS, "-f1", "conf1.gro", ffREAD },
{ efSTX, "-f2", "conf2", ffREAD },
{ efSTO, "-o", "fit.pdb", ffWRITE },
{ efNDX, "-n1", "fit1.ndx", ffOPTRD },
{ efNDX, "-n2", "fit2.ndx", ffOPTRD },
{ efNDX, "-no", "match.ndx", ffOPTWR }
};
#define NFILE asize(fnm)
/* the two structure files */
const char *conf1file, *conf2file, *matchndxfile, *outfile;
FILE *fp;
char title1[STRLEN], title2[STRLEN], *name1, *name2;
t_topology *top1, *top2;
int ePBC1, ePBC2;
t_atoms *atoms1, *atoms2;
int warn = 0;
atom_id at;
real *w_rls, mass, totmass;
rvec *x1, *v1, *x2, *v2, *fit_x;
matrix box1, box2;
output_env_t oenv;
/* counters */
int i, j, m;
/* center of mass calculation */
real tmas1, tmas2;
rvec xcm1, xcm2;
/* variables for fit */
char *groupnames1, *groupnames2;
int isize1, isize2;
atom_id *index1, *index2;
real rms, msd, minmsd, maxmsd;
real *msds;
parse_common_args(&argc, argv, PCA_BE_NICE | PCA_CAN_VIEW,
NFILE, fnm, asize(pa), pa, asize(desc), desc, 0, NULL, &oenv);
matchndxfile = opt2fn_null("-no", NFILE, fnm);
conf1file = ftp2fn(efTPS, NFILE, fnm);
conf2file = ftp2fn(efSTX, NFILE, fnm);
/* reading reference structure from first structure file */
fprintf(stderr, "\nReading first structure file\n");
snew(top1, 1);
read_tps_conf(conf1file, title1, top1, &ePBC1, &x1, &v1, box1, TRUE);
atoms1 = &(top1->atoms);
fprintf(stderr, "%s\nContaining %d atoms in %d residues\n",
title1, atoms1->nr, atoms1->nres);
if (bRmpbc)
{
rm_gropbc(atoms1, x1, box1);
}
fprintf(stderr, "Select group from first structure\n");
get_index(atoms1, opt2fn_null("-n1", NFILE, fnm),
1, &isize1, &index1, &groupnames1);
printf("\n");
if (bFit && (isize1 < 3))
{
gmx_fatal(FARGS, "Need >= 3 points to fit!\n");
}
/* reading second structure file */
fprintf(stderr, "\nReading second structure file\n");
snew(top2, 1);
read_tps_conf(conf2file, title2, top2, &ePBC2, &x2, &v2, box2, TRUE);
atoms2 = &(top2->atoms);
fprintf(stderr, "%s\nContaining %d atoms in %d residues\n",
title2, atoms2->nr, atoms2->nres);
if (bRmpbc)
{
rm_gropbc(atoms2, x2, box2);
}
fprintf(stderr, "Select group from second structure\n");
get_index(atoms2, opt2fn_null("-n2", NFILE, fnm),
1, &isize2, &index2, &groupnames2);
if (bName)
{
find_matching_names(&isize1, index1, atoms1, &isize2, index2, atoms2);
if (matchndxfile)
{
fp = ffopen(matchndxfile, "w");
fprintf(fp, "; Matching atoms between %s from %s and %s from %s\n",
groupnames1, conf1file, groupnames2, conf2file);
fprintf(fp, "[ Match_%s_%s ]\n", conf1file, groupnames1);
for (i = 0; i < isize1; i++)
{
fprintf(fp, "%4u%s", index1[i]+1, (i%15 == 14 || i == isize1-1) ? "\n" : " ");
}
fprintf(fp, "[ Match_%s_%s ]\n", conf2file, groupnames2);
for (i = 0; i < isize2; i++)
{
fprintf(fp, "%4u%s", index2[i]+1, (i%15 == 14 || i == isize2-1) ? "\n" : " ");
}
}
}
/* check isizes, must be equal */
if (isize2 != isize1)
{
gmx_fatal(FARGS, "You selected groups with differen number of atoms.\n");
}
for (i = 0; i < isize1; i++)
{
name1 = *atoms1->atomname[index1[i]];
name2 = *atoms2->atomname[index2[i]];
if (strcmp(name1, name2))
{
if (warn < 20)
{
fprintf(stderr,
"Warning: atomnames at index %d don't match: %u %s, %u %s\n",
i+1, index1[i]+1, name1, index2[i]+1, name2);
}
warn++;
}
if (!bMW)
{
atoms1->atom[index1[i]].m = 1;
atoms2->atom[index2[i]].m = 1;
}
}
if (warn)
{
fprintf(stderr, "%d atomname%s did not match\n", warn, (warn == 1) ? "" : "s");
}
if (bFit)
{
/* calculate and remove center of mass of structures */
calc_rm_cm(isize1, index1, atoms1, x1, xcm1);
calc_rm_cm(isize2, index2, atoms2, x2, xcm2);
snew(w_rls, atoms2->nr);
snew(fit_x, atoms2->nr);
for (at = 0; (at < isize1); at++)
{
w_rls[index2[at]] = atoms1->atom[index1[at]].m;
copy_rvec(x1[index1[at]], fit_x[index2[at]]);
}
/* do the least squares fit to the reference structure */
do_fit(atoms2->nr, w_rls, fit_x, x2);
sfree(fit_x);
sfree(w_rls);
w_rls = NULL;
}
else
{
clear_rvec(xcm1);
clear_rvec(xcm2);
w_rls = NULL;
}
/* calculate the rms deviation */
rms = 0;
totmass = 0;
maxmsd = -1e18;
minmsd = 1e18;
snew(msds, isize1);
for (at = 0; at < isize1; at++)
{
mass = atoms1->atom[index1[at]].m;
for (m = 0; m < DIM; m++)
{
msd = sqr(x1[index1[at]][m] - x2[index2[at]][m]);
rms += msd*mass;
msds[at] += msd;
}
maxmsd = max(maxmsd, msds[at]);
minmsd = min(minmsd, msds[at]);
totmass += mass;
}
rms = sqrt(rms/totmass);
printf("Root mean square deviation after lsq fit = %g nm\n", rms);
if (bBfac)
{
printf("Atomic MSD's range from %g to %g nm^2\n", minmsd, maxmsd);
}
if (bFit)
{
/* reset coordinates of reference and fitted structure */
for (i = 0; i < atoms1->nr; i++)
{
for (m = 0; m < DIM; m++)
{
x1[i][m] += xcm1[m];
}
}
for (i = 0; i < atoms2->nr; i++)
{
for (m = 0; m < DIM; m++)
{
x2[i][m] += xcm1[m];
}
}
}
outfile = ftp2fn(efSTO, NFILE, fnm);
switch (fn2ftp(outfile))
{
case efPDB:
case efBRK:
case efENT:
if (bBfac || bLabel)
{
srenew(atoms1->pdbinfo, atoms1->nr);
srenew(atoms1->atom, atoms1->nr); /* Why renew atom? */
/* Avoid segfaults when writing the pdb-file */
for (i = 0; i < atoms1->nr; i++)
{
atoms1->pdbinfo[i].type = eptAtom;
atoms1->pdbinfo[i].occup = 1.00;
atoms1->pdbinfo[i].bAnisotropic = FALSE;
if (bBfac)
{
atoms1->pdbinfo[i].bfac = 0;
}
if (bLabel)
{
atoms1->resinfo[atoms1->atom[i].resind].chainid = 'A';
}
}
for (i = 0; i < isize1; i++)
{
/* atoms1->pdbinfo[index1[i]].type = eptAtom; */
/* atoms1->pdbinfo[index1[i]].bAnisotropic = FALSE; */
if (bBfac)
{
atoms1->pdbinfo[index1[i]].bfac = (800*M_PI*M_PI/3.0)*msds[i];
}
/* if (bLabel) */
/* atoms1->resinfo[atoms1->atom[index1[i]].resind].chain = 'A'; */
}
srenew(atoms2->pdbinfo, atoms2->nr);
srenew(atoms2->atom, atoms2->nr); /* Why renew atom? */
for (i = 0; i < atoms2->nr; i++)
{
atoms2->pdbinfo[i].type = eptAtom;
atoms2->pdbinfo[i].occup = 1.00;
atoms2->pdbinfo[i].bAnisotropic = FALSE;
if (bBfac)
{
atoms2->pdbinfo[i].bfac = 0;
}
if (bLabel)
{
atoms2->resinfo[atoms1->atom[i].resind].chainid = 'B';
}
}
for (i = 0; i < isize2; i++)
{
/* atoms2->pdbinfo[index2[i]].type = eptAtom; */
/* atoms2->pdbinfo[index2[i]].bAnisotropic = FALSE; */
if (bBfac)
{
atoms2->pdbinfo[index2[i]].bfac = (800*M_PI*M_PI/3.0)*msds[i];
}
/* if (bLabel) */
/* atoms2->resinfo[atoms2->atom[index2[i]].resind].chain = 'B'; */
}
}
fp = ffopen(outfile, "w");
if (!bOne)
{
write_pdbfile(fp, title1, atoms1, x1, ePBC1, box1, ' ', 1, NULL, TRUE);
}
write_pdbfile(fp, title2, atoms2, x2, ePBC2, box2, ' ', bOne ? -1 : 2, NULL, TRUE);
ffclose(fp);
break;
case efGRO:
if (bBfac)
{
fprintf(stderr, "WARNING: cannot write B-factor values to gro file\n");
}
fp = ffopen(outfile, "w");
if (!bOne)
{
write_hconf_p(fp, title1, atoms1, 3, x1, v1, box1);
}
write_hconf_p(fp, title2, atoms2, 3, x2, v2, box2);
ffclose(fp);
break;
default:
if (bBfac)
{
fprintf(stderr, "WARNING: cannot write B-factor values to %s file\n",
ftp2ext(fn2ftp(outfile)));
}
if (!bOne)
{
fprintf(stderr,
"WARNING: cannot write the reference structure to %s file\n",
ftp2ext(fn2ftp(outfile)));
}
write_sto_conf(outfile, title2, atoms2, x2, v2, ePBC2, box2);
break;
}
view_all(oenv, NFILE, fnm);
thanx(stderr);
return 0;
}
bool read_next_frame(const gmx_output_env_t *oenv, t_trxstatus *status, t_trxframe *fr)
{
real pt;
int ct;
gmx_bool bOK, bMissingData = FALSE, bSkip = FALSE;
bool bRet = false;
int ftp;
pt = status->tf;
do
{
clear_trxframe(fr, FALSE);
if (status->tng)
{
/* Special treatment for TNG files */
ftp = efTNG;
}
else
{
ftp = gmx_fio_getftp(status->fio);
}
switch (ftp)
{
case efTRR:
bRet = gmx_next_frame(status, fr);
break;
case efCPT:
/* Checkpoint files can not contain mulitple frames */
break;
case efG96:
{
t_symtab *symtab = nullptr;
read_g96_conf(gmx_fio_getfp(status->fio), nullptr, nullptr, fr,
symtab, status->persistent_line);
bRet = (fr->natoms > 0);
break;
}
case efXTC:
if (bTimeSet(TBEGIN) && (status->tf < rTimeValue(TBEGIN)))
{
if (xtc_seek_time(status->fio, rTimeValue(TBEGIN), fr->natoms, TRUE))
{
gmx_fatal(FARGS, "Specified frame (time %f) doesn't exist or file corrupt/inconsistent.",
rTimeValue(TBEGIN));
}
initcount(status);
}
bRet = read_next_xtc(status->fio, fr->natoms, &fr->step, &fr->time, fr->box,
fr->x, &fr->prec, &bOK);
fr->bPrec = (bRet && fr->prec > 0);
fr->bStep = bRet;
fr->bTime = bRet;
fr->bX = bRet;
fr->bBox = bRet;
if (!bOK)
{
/* Actually the header could also be not ok,
but from bOK from read_next_xtc this can't be distinguished */
fr->not_ok = DATA_NOT_OK;
}
break;
case efTNG:
bRet = gmx_read_next_tng_frame(status->tng, fr, nullptr, 0);
break;
case efPDB:
bRet = pdb_next_x(status, gmx_fio_getfp(status->fio), fr);
break;
case efGRO:
bRet = gro_next_x_or_v(gmx_fio_getfp(status->fio), fr);
break;
default:
#if GMX_USE_PLUGINS
bRet = read_next_vmd_frame(status->vmdplugin, fr);
#else
gmx_fatal(FARGS, "DEATH HORROR in read_next_frame ftp=%s,status=%s",
ftp2ext(gmx_fio_getftp(status->fio)),
gmx_fio_getname(status->fio));
#endif
}
status->tf = fr->time;
if (bRet)
{
bMissingData = (((status->flags & TRX_NEED_X) && !fr->bX) ||
((status->flags & TRX_NEED_V) && !fr->bV) ||
((status->flags & TRX_NEED_F) && !fr->bF));
bSkip = FALSE;
if (!bMissingData)
{
ct = check_times2(fr->time, status->t0, fr->bDouble);
if (ct == 0 || ((status->flags & TRX_DONT_SKIP) && ct < 0))
{
printcount(status, oenv, fr->time, FALSE);
}
else if (ct > 0)
{
bRet = false;
}
else
{
printcount(status, oenv, fr->time, TRUE);
bSkip = TRUE;
}
}
}
}
while (bRet && (bMissingData || bSkip));
if (!bRet)
{
printlast(status, oenv, pt);
if (fr->not_ok)
{
printincomp(status, fr);
}
}
return bRet;
}
static void write_htmlman(FILE *out,
char *program,
int nldesc,char **desc,
int nfile,t_filenm *fnm,
int npargs,t_pargs *pa,
int nbug,char **bugs)
{
int i;
char link[10];
#define NSR(s) check_html(s,program)
fprintf(out,"<HTML>\n<HEAD>\n<TITLE>%s</TITLE>\n",program);
fprintf(out,"<LINK rel=stylesheet href=\"style.css\" type=\"text/css\">\n");
fprintf(out,"<BODY text=\"#000000\" bgcolor=\"#FFFFFF\" link=\"#0000FF\" vlink=\"#990000\" alink=\"#FF0000\">\n");
fprintf(out,"<TABLE WIDTH=\"98%%\" NOBORDER >\n<TR><TD WIDTH=400>\n");
fprintf(out,"<TABLE WIDTH=400 NOBORDER>\n<TD WIDTH=116>\n");
fprintf(out,"<a href=\"http://www.gromacs.org/\">"
"<img SRC=\"../images/gmxlogo_small.jpg\""
"BORDER=0 height=133 width=116></a></td>\n");
fprintf(out,"<td ALIGN=LEFT VALIGN=TOP WIDTH=280>"
"<br><h2>%s</h2>",program);
fprintf(out,"<font size=-1><A HREF=\"../online.html\">Main Table of Contents</A></font><br>");
fprintf(out,"<br></td>\n</TABLE></TD><TD WIDTH=\"*\" ALIGN=RIGHT VALIGN=BOTTOM><p><B>%s<br>\n",GromacsVersion());
fprintf(out,"%s</B></td></tr></TABLE>\n<HR>\n",mydate());
if (nldesc > 0) {
fprintf(out,"<H3>Description</H3>\n<p>\n");
for(i=0; (i<nldesc); i++)
fprintf(out,"%s\n",NSR(desc[i]));
}
if (nfile > 0) {
fprintf(out,"<P>\n");
fprintf(out,"<H3>Files</H3>\n");
fprintf(out,
"<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=2>\n"
"<TR>"
"<TH>option</TH>"
"<TH>filename</TH>"
"<TH>type</TH>"
"<TH>description</TH>"
"</TR>\n");
for(i=0; (i<nfile); i++) {
strcpy(link,ftp2ext(fnm[i].ftp));
if (strcmp(link,"???")==0)
strcpy(link,"files");
fprintf(out,
"<TR>"
"<TD ALIGN=RIGHT> <b><tt>%s</tt></b> </TD>"
"<TD ALIGN=RIGHT> <tt><a href=\"%s.html\">%12s</a></tt> </TD>"
"<TD> %s </TD>"
"<TD> %s </TD>"
"</TR>\n",
fnm[i].opt,link,fnm[i].fn,fileopt(fnm[i].flag),
NSR(ftp2desc(fnm[i].ftp)));
}
fprintf(out,"</TABLE>\n");
}
if (npargs > 0) {
fprintf(out,"<P>\n");
fprintf(out,"<H3>Other options</H3>\n");
fprintf(out,
"<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=2>\n"
"<TR>"
"<TH>option</TH>"
"<TH>type</TH>"
"<TH>default</TH>"
"<TH>description</TH>"
"</TR>\n");
for(i=0; (i<npargs); i++)
fprintf(out,
"<TR>"
"<TD ALIGN=RIGHT> <b><tt>%s%s</tt></b> </TD>"
"<TD ALIGN=RIGHT> %s </TD>"
"<TD ALIGN=RIGHT> <tt>%s</tt> </TD>"
"<TD> %s </TD>"
"</TD>\n",
(pa[i].type == etBOOL)?"-[no]":"-",pa[i].option+1,
argtp[pa[i].type],pa_val(&(pa[i])),NSR(pa[i].desc));
fprintf(out,"</TABLE>\n");
}
if (nbug > 0) {
fprintf(out,"<P>\n");
fprintf(out,"<UL>\n");
for(i=0; (i<nbug); i++)
fprintf(out,"<LI>%s\n",NSR(bugs[i]));
fprintf(out,"</UL>\n");
}
fprintf(out,"<P>\n");
fprintf(out,"<hr>\n<div ALIGN=RIGHT>\n");
fprintf(out,"<font size=\"-1\"><a href=\"http://www.gromacs.org\">"
"http://www.gromacs.org</a></font><br>\n");
fprintf(out,"</div>\n");
fprintf(out,"</BODY>\n");
}
