/* Copyright (C) 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* logrithx APL2 V1.0.0 ************************************************
* Returns the base-n log of rite, left giving the base-n.              *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void logrithx(left,rite,ret)
double *left,*rite,*ret;
{
	Dividex; Logx;
	double wrka[2],wrkb[2];

	logx(left,wrka);
     logx(rite,wrkb);
     dividex(wrkb,wrka,ret);
}