-
Notifications
You must be signed in to change notification settings - Fork 26
/
Copy pathhypre_complex.c
48 lines (40 loc) · 1.28 KB
/
hypre_complex.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
/*BHEADER**********************************************************************
* Copyright (c) 2017, Lawrence Livermore National Security, LLC.
* Produced at the Lawrence Livermore National Laboratory.
* Written by Ulrike Yang ([email protected]) et al. CODE-LLNL-738-322.
* This file is part of AMG. See files README and COPYRIGHT for details.
*
* AMG is free software; you can redistribute it and/or modify it under the
* terms of the GNU Lesser General Public License (as published by the Free
* Software Foundation) version 2.1 dated February 1999.
*
* This software is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the IMPLIED WARRANTY OF MERCHANTIBILITY
* or FITNESS FOR A PARTICULAR PURPOSE. See the terms and conditions of the
* GNU General Public License for more details.
*
***********************************************************************EHEADER*/
#include "_hypre_utilities.h"
#ifdef HYPRE_COMPLEX
#include <complex.h>
HYPRE_Complex
hypre_conj( HYPRE_Complex value )
{
return conj(value);
}
HYPRE_Real
hypre_cabs( HYPRE_Complex value )
{
return cabs(value);
}
HYPRE_Real
hypre_creal( HYPRE_Complex value )
{
return creal(value);
}
HYPRE_Real
hypre_cimag( HYPRE_Complex value )
{
return cimag(value);
}
#endif