bw / opentoonz

Clone
Source Code
GIT

Blame thirdparty/superlu/SuperLU_4.1/DOC/html/slu__scomplex_8h-source.html

feature08b_assistants feature08f_assistants feature08g_assistants feature08h_assistants feature08j_assistants feature08k_assistants improve_tool_selection master
  1.   8c766d58c3dbef76f98b081c7945c113f73fc5f8
  2.   thirdparty
  3.   superlu
  4.   SuperLU_4.1
  5.   DOC
  6.   html
  7.   slu__scomplex_8h-source.html
Blob Raw
kusano 7d535a
kusano 7d535a 
<meta content="text/html;charset=UTF-8" http-equiv="Content-Type">
kusano 7d535a 
<title>SuperLU: SRC/slu_scomplex.h Source File</title>
kusano 7d535a 
<link href="doxygen.css" rel="stylesheet" type="text/css">
kusano 7d535a 
<link href="tabs.css" rel="stylesheet" type="text/css">
kusano 7d535a
kusano 7d535a
kusano 7d535a
kusano 7d535a
kusano 7d535a
    kusano 7d535a 
          
  • Main Page
    		•
    kusano 7d535a 
          
  • Data Structures
    		•
    kusano 7d535a 
          
  • Files
    		•
    kusano 7d535a
    kusano 7d535a
    kusano 7d535a 
    SRC/slu_scomplex.h
    Go to the documentation of this file.
    00001
    kusano 7d535a 
    00014 #ifndef __SUPERLU_SCOMPLEX /* allow multiple inclusions */
    kusano 7d535a 
    00015 #define __SUPERLU_SCOMPLEX
    kusano 7d535a 
    00016
    kusano 7d535a 
    00017
    kusano 7d535a 
    00018 #ifndef SCOMPLEX_INCLUDE
    kusano 7d535a 
    00019 #define SCOMPLEX_INCLUDE
    kusano 7d535a 
    00020
    kusano 7d535a 
    00021 typedef struct { float r, i; } complex;
    kusano 7d535a 
    00022
    kusano 7d535a 
    00023
    kusano 7d535a 
    00024 /* Macro definitions */
    kusano 7d535a 
    00025
    kusano 7d535a 
    00027 #define c_add(c, a, b) { (c)->r = (a)->r + (b)->r; \
    kusano 7d535a 
    00028                          (c)->i = (a)->i + (b)->i; }
    kusano 7d535a 
    00029
    kusano 7d535a 
    00031 #define c_sub(c, a, b) { (c)->r = (a)->r - (b)->r; \
    kusano 7d535a 
    00032                          (c)->i = (a)->i - (b)->i; }
    kusano 7d535a 
    00033
    kusano 7d535a 
    00035 #define cs_mult(c, a, b) { (c)->r = (a)->r * (b); \
    kusano 7d535a 
    00036                            (c)->i = (a)->i * (b); }
    kusano 7d535a 
    00037
    kusano 7d535a 
    00039 #define cc_mult(c, a, b) { \
    kusano 7d535a 
    00040         float cr, ci; \
    kusano 7d535a 
    00041         cr = (a)->r * (b)->r - (a)->i * (b)->i; \
    kusano 7d535a 
    00042         ci = (a)->i * (b)->r + (a)->r * (b)->i; \
    kusano 7d535a 
    00043         (c)->r = cr; \
    kusano 7d535a 
    00044         (c)->i = ci; \
    kusano 7d535a 
    00045     }
    kusano 7d535a 
    00046
    kusano 7d535a 
    00047 #define cc_conj(a, b) { \
    kusano 7d535a 
    00048         (a)->r = (b)->r; \
    kusano 7d535a 
    00049         (a)->i = -((b)->i); \
    kusano 7d535a 
    00050     }
    kusano 7d535a 
    00051
    kusano 7d535a 
    00053 #define c_eq(a, b)  ( (a)->r == (b)->r && (a)->i == (b)->i )
    kusano 7d535a 
    00054
    kusano 7d535a 
    00055
    kusano 7d535a 
    00056 #ifdef __cplusplus
    kusano 7d535a 
    00057 extern "C" {
    kusano 7d535a 
    00058 #endif
    kusano 7d535a 
    00059
    kusano 7d535a 
    00060 /* Prototypes for functions in scomplex.c */
    kusano 7d535a 
    00061 void c_div(complex *, complex *, complex *);
    kusano 7d535a 
    00062 double c_abs(complex *);     /* exact */
    kusano 7d535a 
    00063 double c_abs1(complex *);    /* approximate */
    kusano 7d535a 
    00064 void c_exp(complex *, complex *);
    kusano 7d535a 
    00065 void r_cnjg(complex *, complex *);
    kusano 7d535a 
    00066 double r_imag(complex *);
    kusano 7d535a 
    00067 complex c_sgn(complex *);
    kusano 7d535a 
    00068 complex c_sqrt(complex *);
    kusano 7d535a 
    00069
    kusano 7d535a 
    00070
    kusano 7d535a 
    00071
    kusano 7d535a 
    00072 #ifdef __cplusplus
    kusano 7d535a 
    00073   }
    kusano 7d535a 
    00074 #endif
    kusano 7d535a 
    00075
    kusano 7d535a 
    00076 #endif
    kusano 7d535a 
    00077
    kusano 7d535a 
    00078 #endif  /* __SUPERLU_SCOMPLEX */
    kusano 7d535a
    kusano 7d535a 
    <address style="text-align: right;"><small>Generated on Mon Nov 22 10:23:47 2010 for SuperLU by </small></address>
    kusano 7d535a
    kusano 7d535a 
    doxygen 1.5.5
    kusano 7d535a
    kusano 7d535a

    Powered by Pagure 5.7.4

    SSH Hostkey/Fingerprint | Documentation | About

    © 2014-2019 Red Hat, Inc. and others.

    Logo by Pavel Lashutin