cleanup, rename rename cx_log --> cx_log10 (.control language)

This commit is contained in:
rlar 2014-09-12 19:06:13 +02:00
parent bdf70bd2b0
commit c926f46986
4 changed files with 7 additions and 7 deletions

View File

@ -149,8 +149,8 @@ struct func ft_funcs[] = {
{ "imag", cx_imag },
{ "im", cx_imag },
{ "db", cx_db },
{ "log", cx_log },
{ "log10", cx_log },
{ "log", cx_log10 },
{ "log10", cx_log10 },
{ "ln", cx_ln },
{ "exp", cx_exp },
{ "abs", cx_mag },

View File

@ -61,7 +61,7 @@ extern void *cx_real(void *, short int , int , int *, short int *);
extern void *cx_imag(void *, short int , int , int *, short int *);
extern void *cx_pos(void *, short int , int , int *, short int *);
extern void *cx_db(void *, short int , int , int *, short int *);
extern void *cx_log(void *, short int , int , int *, short int *);
extern void *cx_log10(void *, short int , int , int *, short int *);
extern void *cx_ln(void *, short int , int , int *, short int *);
extern void *cx_exp(void *, short int , int , int *, short int *);
extern void *cx_sqrt(void *, short int , int , int *, short int *);

View File

@ -236,7 +236,7 @@ cx_db(void *data, short int type, int length, int *newlength, short int *newtype
}
void *
cx_log(void *data, short int type, int length, int *newlength, short int *newtype)
cx_log10(void *data, short int type, int length, int *newlength, short int *newtype)
{
*newlength = length;
if (type == VF_COMPLEX) {
@ -253,7 +253,7 @@ cx_log(void *data, short int type, int length, int *newlength, short int *newtyp
/* Perhaps we should trap when td = 0.0, but Ken wants
* this to be possible...
*/
rcheck(td >= 0, "log");
rcheck(td >= 0, "log10");
if (td == 0.0) {
realpart(c[i]) = - log10(HUGE);
imagpart(c[i]) = 0.0;
@ -272,7 +272,7 @@ cx_log(void *data, short int type, int length, int *newlength, short int *newtyp
d = alloc_d(length);
*newtype = VF_REAL;
for (i = 0; i < length; i++) {
rcheck(dd[i] >= 0, "log");
rcheck(dd[i] >= 0, "log10");
if (dd[i] == 0.0)
d[i] = - log10(HUGE);
else

View File

@ -16,7 +16,7 @@ void * cx_real(void *data, short int type, int length, int *newlength, short int
void * cx_imag(void *data, short int type, int length, int *newlength, short int *newtype);
void * cx_pos(void *data, short int type, int length, int *newlength, short int *newtype);
void * cx_db(void *data, short int type, int length, int *newlength, short int *newtype);
void * cx_log(void *data, short int type, int length, int *newlength, short int *newtype);
void * cx_log10(void *data, short int type, int length, int *newlength, short int *newtype);
void * cx_ln(void *data, short int type, int length, int *newlength, short int *newtype);
void * cx_exp(void *data, short int type, int length, int *newlength, short int *newtype);
void * cx_sqrt(void *data, short int type, int length, int *newlength, short int *newtype);