/* Copyright (C) 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* logp APL2 V1.0.0 ****************************************************
* Returns the next higher integer, e.g. for 3.14, returns 4.00, and    *
* for -3.14, returns -3.00.                                            *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void logp(num,ret)
double *num, *ret;
{
	double log(double);

	*ret = log(*num);
}