| 24 |
|
if ((nr <= 0) | (nc <= 0) | (n <= 0)) |
| 25 |
|
return(NULL); |
| 26 |
|
dnew = (RMATRIX *)malloc(sizeof(RMATRIX)-sizeof(dnew->mtx) + |
| 27 |
< |
sizeof(dnew->mtx[0])*(n*nr*nc)); |
| 27 |
> |
sizeof(dnew->mtx[0])*n*nr*nc); |
| 28 |
|
if (!dnew) |
| 29 |
|
return(NULL); |
| 30 |
|
dnew->nrows = nr; dnew->ncols = nc; dnew->ncomp = n; |
| 163 |
|
{ |
| 164 |
|
int i; |
| 165 |
|
|
| 166 |
< |
if ((char *)&rmx_lval(rm,0,0,0) - (char *)&rmx_lval(rm,1,0,0) != |
| 166 |
> |
if ((char *)&rmx_lval(rm,1,0,0) - (char *)&rmx_lval(rm,0,0,0) != |
| 167 |
|
sizeof(double)*rm->ncols*rm->ncomp) { |
| 168 |
|
fputs("Code error in rmx_load_double()\n", stderr); |
| 169 |
|
exit(1); |