| 81 |  | get_dminfo(char *s, void *p) | 
| 82 |  | { | 
| 83 |  | RMATRIX *ip = (RMATRIX *)p; | 
| 84 | < | char    fmt[64]; | 
| 84 | > | char    fmt[MAXFMTLEN]; | 
| 85 |  | int     i; | 
| 86 |  |  | 
| 87 |  | if (headidval(fmt, s)) | 
| 611 |  | for (k = rm->ncomp; k--; ) | 
| 612 |  | rmx_lval(rm,i,j,k) *= sf[k]; | 
| 613 |  |  | 
| 614 | + | if (rm->info) | 
| 615 | + | rmx_addinfo(rm, "Applied scalar\n"); | 
| 616 |  | return(1); | 
| 617 |  | } | 
| 618 |  |  | 
| 628 |  | dnew = rmx_alloc(msrc->nrows, msrc->ncols, n); | 
| 629 |  | if (dnew == NULL) | 
| 630 |  | return(NULL); | 
| 631 | + | if (msrc->info) { | 
| 632 | + | char    buf[128]; | 
| 633 | + | sprintf(buf, "Applied %dx%d matrix transform\n", | 
| 634 | + | dnew->ncomp, msrc->ncomp); | 
| 635 | + | rmx_addinfo(dnew, msrc->info); | 
| 636 | + | rmx_addinfo(dnew, buf); | 
| 637 | + | } | 
| 638 |  | dnew->dtype = msrc->dtype; | 
| 639 |  | for (i = dnew->nrows; i--; ) | 
| 640 |  | for (j = dnew->ncols; j--; ) |