%function fmt = tablefmt(Wd,number)
% jdc 12-Oct-02
%PURPOSE:
% Construct a format for printing an arbitrary number with specified
% field width and precision, using e.g. fprintf
%INPUT:
% Wd - field width and precision (example: 12.3)
% Note: field width 'W' must be >= 7 for
% exponential formats to print correctly
% number - numerical value for which the format is to be constructed
%OUTPUT:
% f or e format specification as string variable
%EXAMPLE:
% number = 0.123456789012345678; W = 12; d = 3;
%for i = -3:15,
% val=(-1)^i*number*10^i;
% fmt=tablefmt(12.3,val);
% fprintf([ fmt '\n'],val);
%end
%-1.2346e-004
% 1.2346e-003
%-1.2346e-002
% 0.123
% -1.235
% 12.346
% -123.457
% 1234.568
% -12345.679
% 123456.789
%-1234567.890
% 12345678.90
%-123456789.0
% 1234567890
%-12345678901
% 1.2346e+011
%-1.2346e+012
% 1.2346e+013
%-1.2346e+014
