minor.h File Reference

#include "common.h"
#include "kinem.h"
#include "pointer.h"
#include <bitset>

Go to the source code of this file.

Classes
class	MinorBase
class	Minor< N >
class	Minor5
class	Minor4
class	Minor3
class	Minor2

Macros
#define	stepWynn(n)
#define	tswap(x, y, t)
#define	CIDX   (DCay-2)

Macro Definition Documentation

CIDX

#define CIDX   (DCay-2)

Definition at line 45 of file eemmg-lib/src/minor.h.

stepWynn

#define stepWynn

(

n

)

Value:

  sum[(2+n)%3]=sum1; \
  { \
    const ncomplex s2=sum[(2+n)%3]; \
    const ncomplex s1=sum[(1+n)%3]; \
    const ncomplex s10=s21; \
    s21=s2-s1; \
    if (   s21==s10 \
        || (   fabs(s2.real()*heps)>=fabs(s21.real()) \
            && fabs(s2.imag()*heps)>=fabs(s21.imag()) ) ) \
        break; \
    dv=sump; \
    sump=s1+1./(1./s21-1./s10); \
  } \
  if (   fabs(sump.real()*teps)>=fabs(sump.real()-dv.real()) \
      && fabs(sump.imag()*teps)>=fabs(sump.imag()-dv.imag()) ) \
      break;

Definition at line 17 of file eemmg-lib/src/minor.h.

#define stepWynn(n) \
  sum[(2+n)%3]=sum1; \
  { \
    const ncomplex s2=sum[(2+n)%3]; \
    const ncomplex s1=sum[(1+n)%3]; \
    const ncomplex s10=s21; \
    s21=s2-s1; \
    if (   s21==s10 \
        || (   fabs(s2.real()*heps)>=fabs(s21.real()) \
            && fabs(s2.imag()*heps)>=fabs(s21.imag()) ) ) \
        break; \
    dv=sump; \
    sump=s1+1./(1./s21-1./s10); \
  } \
  if (   fabs(sump.real()*teps)>=fabs(sump.real()-dv.real()) \
      && fabs(sump.imag()*teps)>=fabs(sump.imag()-dv.imag()) ) \
      break;

tswap

#define tswap	(		x,
			y,
			t )

Value:

    if (x > y) { \
    t=y; \
    y=x; \
    x=t; \
    }

Definition at line 36 of file eemmg-lib/src/minor.h.

#define tswap(x,y,t) \
    if (x > y) { \
    t=y; \
    y=x; \
    x=t; \
    }

Referenced by Minor3::evalC().