/* Copyright (C) 1994 by Thomas Glen Smith. All Rights Reserved. */
/* recipp APL2 V1.0.0 **************************************************
* Returns the reciprocal. *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void recipp(rite,ret)
double *rite,*ret;
{
*ret = 1.0 / *rite;
}