Merge pull request #387 from olebole/noirlab-compatibility

Add numerical recipes to libxtools for Noirlab compatibility

noao/artdata/mkpkg

@@ -28,8 +28,6 @@ libpkg.a:
 	mkheader.x	<ctype.h> <imhdr.h> <imio.h>
 	mktemplates.x	mktemplates.com <error.h> <imhdr.h> <math.h>\
 			<math/iminterp.h>
-	numrecipes.x	<math.h>
-	gammln.c
 	t_mk1dspec.x	<error.h> <imhdr.h>
 	t_mk2dspec.x	<error.h> <imhdr.h> <math/iminterp.h>
 	t_mkechelle.x	<error.h> <imhdr.h> <math.h>

noao/astutil/asttools/asttimes.x

@@ -192,6 +192,15 @@ end
 #
 #  Copyright (C) 2013-2017, NumFOCUS Foundation.
 #  Derived, with permission, from the SOFA library.
+#
+#############################################################################
+#  This code was copied/derived from the 'iraf-community' repository to
+#  address known licensing issues with Numerical Recipes code.
+#
+#  Source Repository:   https://github.com/iraf-community/iraf
+#  Author:              Ole Streicher
+#############################################################################
+
 
 procedure ast_julday_to_date (j, year, month, day, t)
 

pkg/xtools/gammln.c

@@ -1,13 +1,22 @@
-#define import_spp
-#include <iraf.h>
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+*/
+
+#include <math.h>
+
+double lgamma (double x);
+float lgammaf (float x);
+
 
 /* GAMMLN -- Return natural log of gamma function.
  * Argument must greater than 0.
  */
 
-XREAL gammln_ (XREAL *xx)
+float gammln_ (float *x)
 {
-  float lgammaf(float);
+        return lgammaf (*x);
+}
 
-  return lgammaf(*xx);
+double dgammn_ (double *x)
+{
+        return lgamma (*x);
 }

pkg/xtools/mkpkg

@@ -41,6 +41,7 @@ libxtools.a:
 	dttext.x	<ctotok.h> <ctype.h> <error.h> <finfo.h> <fset.h>\
 			<pkg/dttext.h> <time.h>
 	extrema.x	
+	gammln.c	
 	getdatatype.x	
 	gstrdetab.x	
 	gstrentab.x	
@@ -77,4 +78,5 @@ libxtools.a:
 	xtstripwhite.x	<ctype.h>
 	xtsums.x	
 	xttxtfio.x
+	numrecipes.x
 	;