/* Copyright (C) 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* conjugx APL2 V1.0.0 *************************************************
* Yields its complex number argument unchanged.                        *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void conjugx(x,ret)
double *x,*ret;
{
	*ret = *x;
	*(ret+1) = -*(x+1);
}