int matrix_format(format,accuracy,A,m,n)
char *format;     /* format of type ###.#### */
int accuracy;     /* # of characters in one element */
double *A;        /* matrix */
int m,n;          /* # of rows and columns */
The matrix_format function finds a common suitable format as a string
of the form ###.#### for the elements of an m*n matrix A. The length
of format is given by accuracy.
matrix_format usually precedes matrix_print when the suitable format
is unknown for the matrix to be written.
matrix_format always returns 1.
matrix_print, library SURVOMAT.LIB