blob: d81d88712b866411163ee0eb547f07524a515c43 (
plain)
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
|
/*@@
@header cctk_complex.h
@date Tue Dec 14 12:28:05 1999
@author Tom Goodale
@desc
Routines for complex numbers.
@enddesc
@version $Header$
@@*/
#ifndef __CCTK_COMPLEX_H_
#define __CCTK_COMPLEX_H_
#ifdef __cplusplus
extern "C"
{
#endif
CCTK_COMPLEX CCTK_Cmplx(CCTK_REAL Re, CCTK_REAL Im);
CCTK_REAL CCTK_CmplxReal(CCTK_COMPLEX complex_number);
CCTK_REAL CCTK_CmplxImag(CCTK_COMPLEX complex_number);
CCTK_COMPLEX CCTK_CmplxConjg(CCTK_COMPLEX in);
CCTK_REAL CCTK_CmplxAbs(CCTK_COMPLEX in);
CCTK_COMPLEX CCTK_CmplxAdd(CCTK_COMPLEX a,CCTK_COMPLEX b);
CCTK_COMPLEX CCTK_CmplxSub(CCTK_COMPLEX a,CCTK_COMPLEX b);
CCTK_COMPLEX CCTK_CmplxMul(CCTK_COMPLEX a,CCTK_COMPLEX b);
CCTK_COMPLEX CCTK_CmplxDiv(CCTK_COMPLEX a,CCTK_COMPLEX b);
#ifdef __cplusplus
}
#endif
#endif /* __CCTK_COMPLEX_H_ */
|