QSAS_2_4/QSAS_dist/src/Ext/LombSpectrum/LombSpectrum.cc File Reference

#include <stdio.h>
#include <math.h>
#include <string.h>
#include <stdlib.h>
#include "qplug_if.h"
#include "qdutil.h"
#include "Qdos.h"

Defines
#define	SWAP(a, b)   tempr=(a);(a)=(b);(b)=tempr
#define	MOD(a, b)   while(a >= b) a -= b;
#define	MACC   4
#define	LMAX(a, b)
#define	LMIN(a, b)
#define	SQR(a)   ((sqrarg=(a)) == 0.0 ? 0.0 : sqrarg*sqrarg)
#define	SIGN(a, b)   ((b) >= 0.0 ? fabs(a) : -fabs(a))
Functions
void	Qfasper (double x[], double y[], unsigned long n, double ofac, double hifac, double wk1[], double wk2[], unsigned long nwk, unsigned long *nout, unsigned long *jmax, double *prob)
void	avevar (double data[], unsigned long n, double *ave, double *var)
void	rdft (int n, int isgn, double *a, int *ip, double *w)
void	spread (double y, double yy[], unsigned long n, double x, int m)
QplugReturnStatus	LombSpectrum (QplugArgList *)
Variables
static long	lmaxarg1
static long	lmaxarg2
static long	lminarg1
static long	lminarg2
static double	sqrarg

---

Define Documentation

#define LMAX	(	a,
		b		)

Value:

(lmaxarg1=(a),lmaxarg2=(b),(lmaxarg1) > (lmaxarg2) ?\
        (lmaxarg1) : (lmaxarg2))

#define LMIN	(	a,
		b		)

Value:

(lminarg1=(a),lminarg2=(b),(lminarg1) < (lminarg2) ?\
        (lminarg1) : (lminarg2))

#define MACC   4

#define MOD	(	a,
		b		)	while(a >= b) a -= b;

#define SIGN	(	a,
		b		)	((b) >= 0.0 ? fabs(a) : -fabs(a))

#define SQR

(

a

)

((sqrarg=(a)) == 0.0 ? 0.0 : sqrarg*sqrarg)

#define SWAP	(	a,
		b		)	tempr=(a);(a)=(b);(b)=tempr

---

Function Documentation

void avevar	(	double	data[],
		unsigned long	n,
		double *	ave,
		double *	var
	)

QplugReturnStatus LombSpectrum

(

QplugArgList *

call_list

)

void Qfasper	(	double	x[],
		double	y[],
		unsigned long	n,
		double	ofac,
		double	hifac,
		double	wk1[],
		double	wk2[],
		unsigned long	nwk,
		unsigned long *	nout,
		unsigned long *	jmax,
		double *	prob
	)

void rdft	(	int	n,
		int	isgn,
		double *	a,
		int *	ip,
		double *	w
	)

void spread	(	double	y,
		double	yy[],
		unsigned long	n,
		double	x,
		int	m
	)

---

Variable Documentation

long lmaxarg1 [static]

long lmaxarg2 [static]

long lminarg1 [static]

long lminarg2 [static]

double sqrarg [static]