version 1.20, 2015/08/07 05:40:31 |
version 1.21, 2015/08/07 06:15:00 |
Line 17 pointer evalparif(FUNC f,NODE arg) |
|
Line 17 pointer evalparif(FUNC f,NODE arg) |
|
if (strcmp(f->name,"gamma")==0) { |
if (strcmp(f->name,"gamma")==0) { |
Pmpfr_gamma(arg,&ret); |
Pmpfr_gamma(arg,&ret); |
return((pointer) ret); |
return((pointer) ret); |
|
}else if (strcmp(f->name,"floor")==0) { |
|
Pmpfr_floor(arg,&ret); |
|
return((pointer) ret); |
} |
} |
if ( !ox_pari_stream_initialized ) { |
if ( !ox_pari_stream_initialized ) { |
MKSTR(name,"ox_pari"); |
MKSTR(name,"ox_pari"); |