real iaccf, iaccb;
t_xpmelmt c;
- tapeout = ffopen(dsspfile, "r");
+ tapeout = gmx_ffopen(dsspfile, "r");
/* Skip header */
do
{
fprintf(fTArea, "%10g %10g %10g\n", t, 0.01*iaccb, 0.01*iaccf);
}
- ffclose(tapeout);
+ gmx_ffclose(tapeout);
/* Return the number of lines found in the dssp file (i.e. number
* of redidues plus chain separator lines).
hi = max(hi, accr[i][j]);
}
}
- fp = ffopen(fn, "w");
+ fp = gmx_ffopen(fn, "w");
nlev = hi-lo+1;
write_xpm(fp, 0, "Solvent Accessible Surface", "Surface (A^2)",
"Time", "Residue Index", nframe, nres,
mat->axis_x, mat->axis_y, accr, lo, hi, rlo, rhi, &nlev);
- ffclose(fp);
+ gmx_ffclose(fp);
}
}
}
fprintf(fp, "\n");
- ffclose(fp);
+ gmx_ffclose(fp);
sfree(leg);
sfree(count);
}
}
}
gmx_rmpbc(gpbc, natoms, box, x);
- tapein = ffopen(pdbfile, "w");
+ tapein = gmx_ffopen(pdbfile, "w");
write_pdbfile_indexed(tapein, NULL, atoms, x, ePBC, box, ' ', -1, gnx, index, NULL, TRUE);
- ffclose(tapein);
+ gmx_ffclose(tapein);
#ifdef GMX_NO_SYSTEM
printf("Warning-- No calls to system(3) supported on this platform.");
close_trj(status);
if (fTArea)
{
- ffclose(fTArea);
+ gmx_ffclose(fTArea);
}
gmx_rmpbc_done(gpbc);
ss = opt2FILE("-o", NFILE, fnm, "w");
mat.flags = 0;
write_xpm_m(ss, mat);
- ffclose(ss);
+ gmx_ffclose(ss);
if (opt2bSet("-ssdump", NFILE, fnm))
{
ss_str[i] = '\0';
fprintf(ss, "%s\n", ss_str);
}
- ffclose(ss);
+ gmx_ffclose(ss);
sfree(ss_str);
}
analyse_ss(fnSCount, &mat, ss_string, oenv);
{
fprintf(acc, "%5d %10g %10g\n", i+1, av_area[i], norm_av_area[i]);
}
- ffclose(acc);
+ gmx_ffclose(acc);
}
}