The R Project SVN R

Rev

Rev 12976 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12976 Rev 14357
Line 206... Line 206...
206 
    d = INTEGER(sd);
 206 
    d = INTEGER(sd);
207 
    e = INTEGER(se);
 207 
    e = INTEGER(se);
208 
    w = INTEGER(sw);
 208 
    w = INTEGER(sw);
209 
 
 209 
 
210 
    for (j = 0; j < c; j++) {
 210 
    for (j = 0; j < c; j++) {
211 
	formatReal(&x[j * r], r, &w[j], &d[j], &e[j]);
 211 
	formatReal(&x[j * r], r, &w[j], &d[j], &e[j], 0);
212 
	if (!isNull(cl))
 212 
	if (!isNull(cl))
213 
	    clabw = strlen(CHAR(STRING_ELT(cl, j)));
 213 
	    clabw = strlen(CHAR(STRING_ELT(cl, j)));
214 
	else
 214 
	else
215 
	    clabw = IndexWidth(j + 1) + 3;
 215 
	    clabw = IndexWidth(j + 1) + 3;
216 
	if (w[j] < clabw)
 216 
	if (w[j] < clabw)
Line 292... Line 292...
292 
    /* Determine the column widths */
 292 
    /* Determine the column widths */
293 
 
 293 
 
294 
    for (j = 0; j < c; j++) {
 294 
    for (j = 0; j < c; j++) {
295 
	formatComplex(&x[j * r], r,
 295 
	formatComplex(&x[j * r], r,
296 
		      &wr[j], &dr[j], &er[j],
 296 
		      &wr[j], &dr[j], &er[j],
297 
		      &wi[j], &di[j], &ei[j]);
 297 
		      &wi[j], &di[j], &ei[j], 0);
298 
	if (!isNull(cl))
 298 
	if (!isNull(cl))
299 
	    clabw = strlen(CHAR(STRING_ELT(cl, j)));
 299 
	    clabw = strlen(CHAR(STRING_ELT(cl, j)));
300 
	else
 300 
	else
301 
	    clabw = IndexWidth(j + 1) + 3;
 301 
	    clabw = IndexWidth(j + 1) + 3;
302 
	w[j] = wr[j] + wi[j] + 2;
 302 
	w[j] = wr[j] + wi[j] + 2;