src/common/biggerlib.c

#ifndef lint
static const char       RCSid[] = "$Id: biggerlib.c,v 3.3 2003/06/30 19:04:29 greg Exp $";
#endif
/*
 *  biggerlib.c - functions for an even bigger library.
 *
 *   10/2/86
 */

#include <stdio.h>
#include <math.h>

#include "calcomp.h"

double  argument(int);
static double  l_j0(), l_j1(), l_jn(), l_y0(), l_y1(), l_yn();
static double  l_erf(), l_erfc();


void
biggerlib()                     /* expand the library */
{
                                /* the Bessel functions */
    funset("j0", 1, ':', l_j0);
    funset("j1", 1, ':', l_j1);
    funset("jn", 2, ':', l_jn);
    funset("y0", 1, ':', l_y0);
    funset("y1", 1, ':', l_y1);
    funset("yn", 2, ':', l_yn);
    funset("erf", 1, ':', l_erf);
    funset("erfc", 1, ':', l_erfc);
}


static double
l_j0()
{
    return(j0(argument(1)));
}


static double
l_j1()
{
    return(j1(argument(1)));
}


static double
l_jn()
{
    return(jn((int)(argument(1)+.5), argument(2)));
}


static double
l_y0()
{
    return(y0(argument(1)));
}


static double
l_y1()
{
    return(y1(argument(1)));
}


static double
l_yn()
{
    return(yn((int)(argument(1)+.5), argument(2)));
}


static double
l_erf()
{
    extern double  erf();

    return(erf(argument(1)));
}


static double
l_erfc()
{
    extern double  erfc();

    return(erfc(argument(1)));
}
Revision:	3.4
Committed:	Thu Jul 17 09:21:29 2003 UTC (20 years, 9 months ago) by schorsch
Content type:	text/plain
Branch:	MAIN
Changes since 3.3:	+3 -2 lines
Log Message:	Added prototypes and includes from patch by Randolph Fritz. Added more required includes and reduced other compile warnings.
#	User	Rev	Content
1	greg	3.1	#ifndef lint
2	schorsch	3.4	static const char RCSid[] = "$Id: biggerlib.c,v 3.3 2003/06/30 19:04:29 greg Exp $";
3	greg	3.1	#endif
4			/*
5			* biggerlib.c - functions for an even bigger library.
6			*
7			* 10/2/86
8			*/
9
10	greg	3.3	#include <stdio.h>
11	greg	3.1	#include <math.h>
12	schorsch	3.2
13			#include "calcomp.h"
14	greg	3.1
15	schorsch	3.4	double argument(int);
16	greg	3.1	static double l_j0(), l_j1(), l_jn(), l_y0(), l_y1(), l_yn();
17			static double l_erf(), l_erfc();
18
19
20	schorsch	3.4	void
21	greg	3.1	biggerlib() /* expand the library */
22			{
23			/* the Bessel functions */
24			funset("j0", 1, ':', l_j0);
25			funset("j1", 1, ':', l_j1);
26			funset("jn", 2, ':', l_jn);
27			funset("y0", 1, ':', l_y0);
28			funset("y1", 1, ':', l_y1);
29			funset("yn", 2, ':', l_yn);
30			funset("erf", 1, ':', l_erf);
31			funset("erfc", 1, ':', l_erfc);
32			}
33
34
35			static double
36			l_j0()
37			{
38			return(j0(argument(1)));
39			}
40
41
42			static double
43			l_j1()
44			{
45			return(j1(argument(1)));
46			}
47
48
49			static double
50			l_jn()
51			{
52			return(jn((int)(argument(1)+.5), argument(2)));
53			}
54
55
56			static double
57			l_y0()
58			{
59			return(y0(argument(1)));
60			}
61
62
63			static double
64			l_y1()
65			{
66			return(y1(argument(1)));
67			}
68
69
70			static double
71			l_yn()
72			{
73			return(yn((int)(argument(1)+.5), argument(2)));
74			}
75
76
77			static double
78			l_erf()
79			{
80			extern double erf();
81
82			return(erf(argument(1)));
83			}
84
85
86			static double
87			l_erfc()
88			{
89			extern double erfc();
90
91			return(erfc(argument(1)));
92			}