ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/util/rmtxop.c
(Generate patch)

Comparing ray/src/util/rmtxop.c (file contents):
Revision 2.15 by greg, Mon Aug 12 16:55:24 2019 UTC vs.
Revision 2.16 by greg, Mon Aug 12 20:38:19 2019 UTC

# Line 140 | Line 140 | binaryop(const char *inspec, RMATRIX *mleft, int op, R
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) {

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines