schav - Complex Haversine hav(x)

#include <msca.h> 
 
double complex schav (double complex x); 
float complex  schavf(float complex x);

Given a value $x$ this function computes the haversine of $x$ , $hav(x)$ .