sahav - Archaversine hav-1(x)

#include <msca.h> 
 
double sahav (double x); 
float  sahavf(float x);

Given a value $x$ this function computes the archaversine of $x$ , $hav-1(x)$ .