src/auxiliaryFunctions/abs/zabss.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

/*
**  -*- C -*-
**
** zabss.c
** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
**
** Started on  Mon Apr 23 17:03:36 2007 jofret
** Last update Mon Apr 23 17:16:05 2007 jofret
**
** Copyright INRIA 2007
*/

#include "abs.h"

double zabss(doubleComplex in) {
  double real = zreals(in);
  double imag = zimags(in);
  return (dsqrts( (real*real) + (imag*imag) ));
}