Index: l/bmath/dcdflib/ipmpar.c
===================================================================
--- tol/bmath/dcdflib/ipmpar.c	(revision a41943527bafad0ca9c448146f1731b566a5c045)
+++ 	(revision )
@@ -1,55 +1,0 @@
-/* ipmpar.c - GNU/TOL Language.
-
-   Copyright (C) 2003 - Bayes Decision, SL (Spain [EU])
-
-   This program is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 2, or (at your option)
-   any later version.
-
-   This program is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with this program; if not, write to the Free Software
-   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
-   USA.
- */
-
-#if defined(_MSC_VER)
-#include <win_tolinc.h>
-#endif
-
-#include <tol/tol_bcommon.h>
-#include <float.h>
-#include <limits.h>
-
-#ifndef _MSC_VER
-#  define HAVE_VALUES_H 1
-#endif
-
-int ipmpar( int *i);
-
-int ipmpar( int *i) {
-    static int imach[11] = {
-	0, /* dummy zeroth index */
-	/* integers */  
-	2, /* base;  you are on the binary machine, aren't you? */
-	sizeof(int)*(CHAR_BIT)-1,
-	INT_MAX,
-	/* all floats */
-	FLT_RADIX,
-	/* single precision floats */
-	FLT_MANT_DIG,
-	FLT_MIN_EXP,
-	FLT_MAX_EXP,
-	/* double precision floats */
-	DBL_MANT_DIG,
-	DBL_MIN_EXP,
-	DBL_MAX_EXP,
-    };
-
-    return imach[*i];
-}