140 |
|
|
141 |
|
if ((mleft == NULL) | (mright == NULL)) |
142 |
|
return(NULL); |
143 |
– |
|
143 |
|
switch (op) { |
144 |
|
case '.': /* concatenate */ |
145 |
< |
mres = rmx_multiply(mleft, mright); |
145 |
> |
if (mleft->ncomp != mright->ncomp) { |
146 |
> |
fputs(inspec, stderr); |
147 |
> |
fputs(": # components do not match\n", stderr); |
148 |
> |
} else if (mleft->ncols != mright->nrows) { |
149 |
> |
fputs(inspec, stderr); |
150 |
> |
fputs(": mismatched dimensions\n", |
151 |
> |
stderr); |
152 |
> |
} else |
153 |
> |
mres = rmx_multiply(mleft, mright); |
154 |
|
rmx_free(mleft); |
155 |
|
rmx_free(mright); |
156 |
|
if (mres == NULL) { |
157 |
|
fputs(inspec, stderr); |
158 |
< |
if (mleft->ncols != mright->nrows) |
152 |
< |
fputs(": mismatched dimensions for multiply\n", |
153 |
< |
stderr); |
154 |
< |
else |
155 |
< |
fputs(": concatenation failed\n", stderr); |
158 |
> |
fputs(": concatenation failed\n", stderr); |
159 |
|
return(NULL); |
160 |
|
} |
161 |
|
if (verbose) { |