| 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++) { |