/* Copyright (C) 1994 by Thomas Glen Smith.	All Rights Reserved. */
/* circulaz APL2 V1.0.0 ************************************************
* Called by circulax. Circle functions for complex numbers, arc-       *
* trigonometric functions, ATAN, ACOS, ASIN.                           *
***********************************************************************/
#define INCLUDES MATH+TRIGKEYS
#include "includes.h"
void circulaz(left,rrr,ret)
double *left,*rrr,*ret;
{
	Acosx; Asinx; Atanx;
	extern int aplerr;

	switch ((int) *left) {
		case ATAN: atanx(rrr,ret); break;
		case ACOS: acosx(rrr,ret); break;
		case ASIN: asinx(rrr,ret); break;
		default: aplerr = 85; return; /* left invalid */
	} /* end switch */
}