/*Copyright (C) 1992, 1994 by Thomas Glen Smith.	All Rights Reserved.*/
/* digits APL2 V1.0.0 **************************************************
* Called by formatj.                                                   *
* Returns the number of digits left of the decimal point in the arg.   *
***********************************************************************/
#define INCLUDES MATH
#include "includes.h"
int digits(val)
double val;
{
	Log;
	double wrk;
	static double log10=2.302585092994;
	int dig;

	val = (val < 0e0) ? -val : val;
	wrk = log(val + 0.5) / log10; /* base-10 log */
	if (wrk > 0e0) {
		dig = wrk;
		dig++;
	}
	else dig = 0;
	return(dig);
}