/*
**  -*- C -*-
**
** ctans.c
** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
**
** Started on  Thu Dec  7 12:04:28 2006 jofret
** Last update Wed Mar 21 16:23:08 2007 jofret
**
** Copyright INRIA 2006
*/

#include "tan.h"
#include "log.h"
#include "sqrt.h"
#include "lapack.h"

floatComplex		ctans(floatComplex z) {

  double out_real = 0;
  double out_imag = 0;
  double L = 1 + dlogs(2 / dsqrts(dlamch('e', 1)));

  return FloatComplex(out_real, out_imag);
}