Psi4
Macros | Typedefs | Functions
svd.cc File Reference
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include "psi4/psi4-dec.h"

Macros

#define r_sign(a, b)   ((*b<0.0)?-fabs(*a):fabs(*a))
 
#define min(a, b)   (((a)<(b))?(a):(b))
 
#define max(a, b)   (((a)>(b))?(a):(b))
 
#define dmax(a, b)   (((a)>(b))?(a):(b))
 

Typedefs

typedef double real
 
typedef int integer
 

Functions

int sing_ (double *q, int *lq, int *iq, double *s, double *p, int *lp, int *ip, double *a, int *la, int *m, int *n, double *w)
 
static int bidag2_ (double *d, double *b, double *q, int *lq, int *iq, double *p, int *lp, int *ip, double *a, int *la, int *m, int *n)
 
static int hsr1_ (double *a, int *la, int *n)
 
static int hsr2_ (double *a, int *la, int *n)
 
static int hsr3_ (double *a, int *la, int *m, int *n)
 
static int hsr4_ (double *a, int *la, int *m, int *n)
 
static int hsr5_ (double *a, int *la, int *m, int *n)
 
static int singb_ (double *d, int *n, double *u, int *iu, double *q, int *lq, int *mq, int *iq, double *p, int *lp, int *mp, int *ip, double *e, double *f)
 
static int sng0_ (double *q, int *lq, int *m, double *p, int *lp, int *n, int *l, int *j, int *k, double *x, double *y)
 
static int sft_ (double *s, double *a, double *b, double *c, double *d, double *e2, double *e1, double *e0, double *f2, double *f1)
 
static int sng1_ (double *q, int *lq, int *m, double *p, int *lp, int *n, int *l, int *j, int *k, double *x, double *y)
 
static int scl_ (double *d, double *u, int *n, double *q, int *lq, int *mq, double *p, int *lp, int *mp, double *e, double *f, double *b, int *j, int *k, int *jl, int *jr)
 
static int eig3_ (double *ea, double *eb, double *a, double *b, double *y, double *z)
 
static int sort2_ (double *x, double *y, double *w, int *n)
 
static int fgv_ (double *x, double *y, double *s, double *p, double *q, double *a, double *b)
 

Macro Definition Documentation

#define dmax (   a,
 
)    (((a)>(b))?(a):(b))
#define max (   a,
 
)    (((a)>(b))?(a):(b))
#define min (   a,
 
)    (((a)<(b))?(a):(b))
#define r_sign (   a,
 
)    ((*b<0.0)?-fabs(*a):fabs(*a))

Typedef Documentation

typedef int integer
typedef double real

Function Documentation

static int bidag2_ ( double *  d,
double *  b,
double *  q,
int *  lq,
int *  iq,
double *  p,
int *  lp,
int *  ip,
double *  a,
int *  la,
int *  m,
int *  n 
)
static
static int eig3_ ( double *  ea,
double *  eb,
double *  a,
double *  b,
double *  y,
double *  z 
)
static
static int fgv_ ( double *  x,
double *  y,
double *  s,
double *  p,
double *  q,
double *  a,
double *  b 
)
static
static int hsr1_ ( double *  a,
int *  la,
int *  n 
)
static
static int hsr2_ ( double *  a,
int *  la,
int *  n 
)
static
static int hsr3_ ( double *  a,
int *  la,
int *  m,
int *  n 
)
static
static int hsr4_ ( double *  a,
int *  la,
int *  m,
int *  n 
)
static
static int hsr5_ ( double *  a,
int *  la,
int *  m,
int *  n 
)
static
static int scl_ ( double *  d,
double *  u,
int *  n,
double *  q,
int *  lq,
int *  mq,
double *  p,
int *  lp,
int *  mp,
double *  e,
double *  f,
double *  b,
int *  j,
int *  k,
int *  jl,
int *  jr 
)
static
static int sft_ ( double *  s,
double *  a,
double *  b,
double *  c,
double *  d,
double *  e2,
double *  e1,
double *  e0,
double *  f2,
double *  f1 
)
static
int sing_ ( double *  q,
int *  lq,
int *  iq,
double *  s,
double *  p,
int *  lp,
int *  ip,
double *  a,
int *  la,
int *  m,
int *  n,
double *  w 
)
static int singb_ ( double *  d,
int *  n,
double *  u,
int *  iu,
double *  q,
int *  lq,
int *  mq,
int *  iq,
double *  p,
int *  lp,
int *  mp,
int *  ip,
double *  e,
double *  f 
)
static
static int sng0_ ( double *  q,
int *  lq,
int *  m,
double *  p,
int *  lp,
int *  n,
int *  l,
int *  j,
int *  k,
double *  x,
double *  y 
)
static
static int sng1_ ( double *  q,
int *  lq,
int *  m,
double *  p,
int *  lp,
int *  n,
int *  l,
int *  j,
int *  k,
double *  x,
double *  y 
)
static
static int sort2_ ( double *  x,
double *  y,
double *  w,
int *  n 
)
static