26 |
|
|
27 |
|
if (!getint(sbuf) || (n = atoi(sbuf)) < 0) |
28 |
|
return(0); |
29 |
< |
if (fa->nsargs = n) { |
29 |
> |
if ( (fa->nsargs = n) ) { |
30 |
|
fa->sarg = (char **)malloc(n*sizeof(char *)); |
31 |
|
if (fa->sarg == NULL) |
32 |
|
return(-1); |
57 |
|
#endif |
58 |
|
if (!getint(sbuf) || (n = atoi(sbuf)) < 0) |
59 |
|
return(0); |
60 |
< |
if (fa->nfargs = n) { |
61 |
< |
fa->farg = (FLOAT *)malloc(n*sizeof(FLOAT)); |
60 |
> |
if ( (fa->nfargs = n) ) { |
61 |
> |
fa->farg = (RREAL *)malloc(n*sizeof(RREAL)); |
62 |
|
if (fa->farg == NULL) |
63 |
|
return(-1); |
64 |
|
for (i = 0; i < n; i++) { |