| 56 | inline double complex__Re( Rcomplex x){ return x.r ; } |
| 57 | inline double complex__Im( Rcomplex x){ return x.i ; } |
| 58 | inline double complex__Mod( Rcomplex x){ return ::sqrt( x.i * x.i + x.r * x.r) ; } |
| 59 | inline Rcomplex complex__Conj( Rcomplex x){ |
| 60 | Rcomplex y ; |
| 61 | y.r = x.r; |