47 |
|
fputs(": cannot load matrix\n", stderr); |
48 |
|
return(NULL); |
49 |
|
} |
50 |
– |
if (op->transpose) { /* transpose matrix? */ |
51 |
– |
mtmp = rmx_transpose(mright); |
52 |
– |
if (mtmp == NULL) { |
53 |
– |
fputs(fname, stderr); |
54 |
– |
fputs(": transpose failed\n", stderr); |
55 |
– |
rmx_free(mright); |
56 |
– |
return(NULL); |
57 |
– |
} |
58 |
– |
if (verbose) { |
59 |
– |
fputs(fname, stderr); |
60 |
– |
fputs(": transposed rows and columns\n", stderr); |
61 |
– |
} |
62 |
– |
rmx_free(mright); |
63 |
– |
mright = mtmp; |
64 |
– |
} |
50 |
|
if (op->nsf > 0) { /* apply scalar(s) */ |
51 |
|
if (op->clen > 0) { |
52 |
|
fputs("Options -s and -c are exclusive\n", stderr); |
93 |
|
if (verbose) |
94 |
|
fprintf(stderr, "%s: applied %d x %d transform\n", |
95 |
|
fname, mtmp->ncomp, mright->ncomp); |
96 |
+ |
rmx_free(mright); |
97 |
+ |
mright = mtmp; |
98 |
+ |
} |
99 |
+ |
if (op->transpose) { /* transpose matrix? */ |
100 |
+ |
mtmp = rmx_transpose(mright); |
101 |
+ |
if (mtmp == NULL) { |
102 |
+ |
fputs(fname, stderr); |
103 |
+ |
fputs(": transpose failed\n", stderr); |
104 |
+ |
rmx_free(mright); |
105 |
+ |
return(NULL); |
106 |
+ |
} |
107 |
+ |
if (verbose) { |
108 |
+ |
fputs(fname, stderr); |
109 |
+ |
fputs(": transposed rows and columns\n", stderr); |
110 |
+ |
} |
111 |
|
rmx_free(mright); |
112 |
|
mright = mtmp; |
113 |
|
} |