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

This commit is contained in:
rlar 2014-09-12 19:06:17 +02:00
parent c926f46986
commit 99eade8ec9
4 changed files with 6 additions and 6 deletions

View File

@ -151,7 +151,7 @@ struct func ft_funcs[] = {
{ "db", cx_db },
{ "log", cx_log10 },
{ "log10", cx_log10 },
{ "ln", cx_ln },
{ "ln", cx_log },
{ "exp", cx_exp },
{ "abs", cx_mag },
{ "sqrt", cx_sqrt },

View File

@ -62,7 +62,7 @@ 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_log10(void *, short int , int , int *, short int *);
extern void *cx_ln(void *, short int , int , int *, short int *);
extern void *cx_log(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 *);
extern void *cx_sin(void *, short int , int , int *, short int *);

View File

@ -283,7 +283,7 @@ cx_log10(void *data, short int type, int length, int *newlength, short int *newt
}
void *
cx_ln(void *data, short int type, int length, int *newlength, short int *newtype)
cx_log(void *data, short int type, int length, int *newlength, short int *newtype)
{
*newlength = length;
if (type == VF_COMPLEX) {
@ -297,7 +297,7 @@ cx_ln(void *data, short int type, int length, int *newlength, short int *newtype
double td;
td = cmag(cc[i]);
rcheck(td >= 0, "ln");
rcheck(td >= 0, "log");
if (td == 0.0) {
realpart(c[i]) = - log(HUGE);
imagpart(c[i]) = 0.0;
@ -316,7 +316,7 @@ cx_ln(void *data, short int type, int length, int *newlength, short int *newtype
d = alloc_d(length);
*newtype = VF_REAL;
for (i = 0; i < length; i++) {
rcheck(dd[i] >= 0, "ln");
rcheck(dd[i] >= 0, "log");
if (dd[i] == 0.0)
d[i] = - log(HUGE);
else

View File

@ -17,7 +17,7 @@ void * cx_imag(void *data, short int type, int length, int *newlength, short int
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_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_log(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);
void * cx_sin(void *data, short int type, int length, int *newlength, short int *newtype);