--- ray/src/common/biggerlib.c	2003/02/22 02:07:21	3.1
+++ ray/src/common/biggerlib.c	2025/04/05 00:34:46	3.6
@@ -1,5 +1,5 @@
 #ifndef lint
-static const char	RCSid[] = "$Id: biggerlib.c,v 3.1 2003/02/22 02:07:21 greg Exp $";
+static const char	RCSid[] = "$Id: biggerlib.c,v 3.6 2025/04/05 00:34:46 greg Exp $";
 #endif
 /*
  *  biggerlib.c - functions for an even bigger library.
@@ -7,13 +7,18 @@ static const char	RCSid[] = "$Id: biggerlib.c,v 3.1 20
  *   10/2/86
  */
 
+#include <stdio.h>
 #include <math.h>
 
-double  argument();
-static double  l_j0(), l_j1(), l_jn(), l_y0(), l_y1(), l_yn();
-static double  l_erf(), l_erfc();
+#include "calcomp.h"
 
+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 */
@@ -29,60 +34,60 @@ 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();
+    extern double  erf(double x);
 
     return(erf(argument(1)));
 }
 
 
 static double
-l_erfc()
+l_erfc(char *nm)
 {
-    extern double  erfc();
+    extern double  erfc(double x);
 
     return(erfc(argument(1)));
 }