#include <stdio.h>
extern FILE *fp2;
int writerec(int nf, int iter, double wtlog, double pri, 
    double pdat, double *g)
{
       int i;
       fprintf(fp2,"%16d %16.7e %16.7e %16.7e\n", iter, wtlog, pri, pdat);
       for (i=0; i<=nf-1; i++)
          fprintf(fp2,"%16.7e", g[i]);
       fprintf(fp2,"\n"); 
}