2015-02-26 15:02:31 +00:00
|
|
|
/*
|
|
|
|
PURPOSE:
|
|
|
|
(FORTRAN Complex variable type definition)
|
|
|
|
REFERENCE:
|
|
|
|
((none))
|
|
|
|
ASSUMPTIONS AND LIMITATIONS:
|
|
|
|
((real part is first imaginary part is second))
|
|
|
|
PROGRAMMERS:
|
|
|
|
(((Robert W. Bailey) (LinCom) (7/96)))
|
|
|
|
*/
|
|
|
|
|
2015-03-23 21:03:14 +00:00
|
|
|
#ifndef COMPLEX_H
|
|
|
|
#define COMPLEX_H
|
2015-02-26 15:02:31 +00:00
|
|
|
|
|
|
|
#ifdef __cplusplus
|
|
|
|
extern "C" {
|
|
|
|
#endif
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
|
|
|
|
float real; /* -- Real part */
|
|
|
|
float imaginary; /* -- Imaginary part */
|
|
|
|
|
|
|
|
} COMPLEX;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
|
|
|
|
double real; /* -- Real part */
|
|
|
|
double imaginary; /* -- Imaginary part */
|
|
|
|
|
|
|
|
} DCOMPLEX;
|
|
|
|
|
|
|
|
#ifdef __cplusplus
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
#endif
|