fr_print_sol_cntr()

void fr_print_sol_cntr	(	FILE *	file,
		int	icntr,
		int	icounter,
		COMPLEX	cfreq
	)

                                                                       {
  COMPLEX solval;

  solval = solution->sol[icntr];
  fprintf(file,"%d %10.8E %10.8E %10.8E %10.8E %10.8E\n",
       icounter,
       CIMAG(cfreq),
       HZFREQ(cfreq),
       CREAL(solval), // SOLUTION
       CIMAG(solval),
       CABS(solval)
       );
}