void pr_rvecs(FILE *fp,int indent,const char *title,rvec vec[],int n)
{
const char *fshort = "%12.5e";
const char *flong = "%15.8e";
const char *format;
int i,j;
if (getenv("LONGFORMAT") != NULL)
format = flong;
else
format = fshort;
if (available(fp,vec,indent,title)) {
indent=pr_title_nxn(fp,indent,title,n,DIM);
for (i=0; i<n; i++) {
(void) pr_indent(fp,indent);
(void) fprintf(fp,"%s[%5d]={",title,i);
for (j=0; j<DIM; j++) {
if (j != 0)
(void) fprintf(fp,", ");
(void) fprintf(fp,format,vec[i][j]);
}
(void) fprintf(fp,"}\n");
}
}
}
void pr_rvecs_of_dim(FILE *fp, int indent, const char *title, const rvec vec[], int n, int dim)
{
const char *fshort = "%12.5e";
const char *flong = "%15.8e";
const char *format;
int i, j;
if (getenv("GMX_PRINT_LONGFORMAT") != nullptr)
{
format = flong;
}
else
{
format = fshort;
}
if (available(fp, vec, indent, title))
{
indent = pr_title_nxn(fp, indent, title, n, dim);
for (i = 0; i < n; i++)
{
pr_indent(fp, indent);
fprintf(fp, "%s[%5d]={", title, i);
for (j = 0; j < dim; j++)
{
if (j != 0)
{
fprintf(fp, ", ");
}
fprintf(fp, format, vec[i][j]);
}
fprintf(fp, "}\n");
}
}
}
void pr_rvecs_len(FILE *fp,int indent,const char *title,rvec vec[],int n)
{
int i,j;
if (available(fp,vec,indent,title)) {
indent=pr_title_nxn(fp,indent,title,n,DIM);
for (i=0; i<n; i++) {
(void) pr_indent(fp,indent);
(void) fprintf(fp,"%s[%5d]={",title,i);
for (j=0; j<DIM; j++) {
if (j != 0)
(void) fprintf(fp,", ");
(void) fprintf(fp,"%12.5e",vec[i][j]);
}
(void) fprintf(fp,"} len=%12.5e\n",norm(vec[i]));
}
}
}
void pr_ivecs(FILE *fp,int indent,const char *title,ivec vec[],int n, gmx_bool bShowNumbers)
{
int i,j;
if (available(fp,vec,indent,title))
{
indent=pr_title_nxn(fp,indent,title,n,DIM);
for (i=0; i<n; i++)
{
(void) pr_indent(fp,indent);
(void) fprintf(fp,"%s[%d]={",title,bShowNumbers?i:-1);
for (j=0; j<DIM; j++)
{
if (j!=0) (void) fprintf(fp,", ");
fprintf(fp,"%d",vec[i][j]);
}
(void) fprintf(fp,"}\n");
}
}
}
