926 |
|
putd(RREAL *v, int n) /* output binary double(s) */ |
927 |
|
{ |
928 |
|
#ifdef SMLFLT |
929 |
< |
double da[3]; |
929 |
> |
double da[MAXCSAMP]; |
930 |
|
int i; |
931 |
|
|
932 |
< |
if (n > 3) |
932 |
> |
if (n > MAXCSAMP) |
933 |
|
error(INTERNAL, "code error in putd()"); |
934 |
|
for (i = n; i--; ) |
935 |
|
da[i] = v[i]; |
944 |
|
putf(RREAL *v, int n) /* output binary float(s) */ |
945 |
|
{ |
946 |
|
#ifndef SMLFLT |
947 |
< |
float fa[3]; |
947 |
> |
float fa[MAXCSAMP]; |
948 |
|
int i; |
949 |
|
|
950 |
< |
if (n > 3) |
950 |
> |
if (n > MAXCSAMP) |
951 |
|
error(INTERNAL, "code error in putf()"); |
952 |
|
for (i = n; i--; ) |
953 |
|
fa[i] = v[i]; |