--- ray/src/common/biggerlib.c	2003/06/30 19:04:29	3.3
+++ ray/src/common/biggerlib.c	2003/08/04 22:37:53	3.5
@@ -1,5 +1,5 @@
 #ifndef lint
-static const char	RCSid[] = "$Id: biggerlib.c,v 3.3 2003/06/30 19:04:29 greg Exp $";
+static const char	RCSid[] = "$Id: biggerlib.c,v 3.5 2003/08/04 22:37:53 greg Exp $";
 #endif
 /*
  *  biggerlib.c - functions for an even bigger library.
@@ -12,11 +12,13 @@ static const char	RCSid[] = "$Id: biggerlib.c,v 3.3 20
 
 #include "calcomp.h"
 
-double  argument();
-static double  l_j0(), l_j1(), l_jn(), l_y0(), l_y1(), l_yn();
-static double  l_erf(), l_erfc();
+double  argument(int);
+static double  l_j0(char *), l_j1(char *), l_jn(char *);
+static double  l_y0(char *), l_y1(char *), l_yn(char *);
+static double  l_erf(char *), l_erfc(char *);
 
 
+void
 biggerlib()			/* expand the library */
 {
 				/* the Bessel functions */
@@ -32,49 +34,49 @@ biggerlib()			/* expand the library */
 
 
 static double
-l_j0()
+l_j0(char *nm)
 {
     return(j0(argument(1)));
 }
 
 
 static double
-l_j1()
+l_j1(char *nm)
 {
     return(j1(argument(1)));
 }
 
 
 static double
-l_jn()
+l_jn(char *nm)
 {
     return(jn((int)(argument(1)+.5), argument(2)));
 }
 
 
 static double
-l_y0()
+l_y0(char *nm)
 {
     return(y0(argument(1)));
 }
 
 
 static double
-l_y1()
+l_y1(char *nm)
 {
     return(y1(argument(1)));
 }
 
 
 static double
-l_yn()
+l_yn(char *nm)
 {
     return(yn((int)(argument(1)+.5), argument(2)));
 }
 
 
 static double
-l_erf()
+l_erf(char *nm)
 {
     extern double  erf();
 
@@ -83,7 +85,7 @@ l_erf()
 
 
 static double
-l_erfc()
+l_erfc(char *nm)
 {
     extern double  erfc();