-
Notifications
You must be signed in to change notification settings - Fork 17
/
rh.h
116 lines (83 loc) · 3.91 KB
/
rh.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
/* ------- file: -------------------------- rh.h --------------------
Version: rh2.0
Author: Han Uitenbroek (huitenbroek@nso.edu)
Last modified: Fri Feb 24 08:24:45 2012 --
-------------------------- ----------RH-- */
/* --- General include file for Rybicki & Hummer family of radiative
transfer codes. -- -------------- */
/* --- Include stdio.h here because it defines NULL
- Include rpc/types.h here because it defines bool_t
- Include pthread.h for POSIX threads
-- -------------- */
#include <stdio.h>
#include <rpc/types.h>
#include <pthread.h>
enum Topology {ONE_D_PLANE, TWO_D_PLANE, SPHERICAL_SYMMETRIC,
THREE_D_PLANE};
enum FeautrierOrder {STANDARD, HERMITE};
enum Interpolation {LINEAR, SPLINE, EXP_SPLINE};
enum solution {UNKNOWN=-1, LTE_POPULATIONS, ZERO_RADIATION,
OLD_POPULATIONS, NEW_J, OLD_J, ESCAPE_PROBABILITY};
enum StokesMode {NO_STOKES, FIELD_FREE, POLARIZATION_FREE, FULL_STOKES};
enum VoigtAlgorithm {ARMSTRONG, RYBICKI, HUI_ETAL, HUMLICEK, LOOKUP};
enum PRDangle {PRD_ANGLE_INDEP, PRD_ANGLE_APPROX, PRD_ANGLE_DEP};
#define MAX_LINE_SIZE 512
#define MAX_MESSAGE_LENGTH 512
#define MAX_KEYWORD_SIZE 32
#define LG10 2.30258509299404568402
#ifndef MAX
#define MAX(x, y) ((x) > (y) ? (x):(y))
#endif
#ifndef MIN
#define MIN(x, y) ((x) < (y) ? (x):(y))
#endif
#define SWAPPOINTER(a, b) {void *tmp; tmp = a; a = b; b = tmp;}
#define SWAPDOUBLE(a, b) {double tmp; tmp = a; a = b; b = tmp;}
#define SQ(x) ((x)*(x))
#define CUBE(x) ((x)*(x)*(x))
#define POW10(x) exp(LG10 * (x))
#define MODULO(n, N) (((n) >= 0) ? ((n)%(N)) : ((((n)%(N))+(N)) % (N)))
#define FLUX_DOT_OUT "flux.out"
#define J20_DOT_OUT "J20.out"
#define PERMISSIONS 0666
/* --- Function prototypes -- -------------- */
void SetFPEtraps(void);
void checkNread(int Nread, int Nrequired, const char *routineName,
int checkPoint);
void setOptions(int argc, char *argv[]);
double vproject(int k, int mu);
void Bproject(void);
bool_t StopRequested(void);
char **getWords(char *label, char *separator, int *count);
/* --- Matrix manipulation -- -------------- */
char **matrix_char(int Nrow, int Ncol);
int **matrix_int(int Nrow, int Ncol);
float **matrix_float(int Nrow, int Ncol);
double **matrix_double(int Nrow, int Ncol);
void freeMatrix(void **Matrix);
void SolveLinearEq(int N, double **A, double *b, bool_t improve);
/* --- Interpolation routines -- -------------- */
int qsascend(const void *v1, const void *v2);
int qsdescend(const void *v1, const void *v2);
void Hunt(int n, double *array, double value, int *iLower);
void Locate(int n, double *array, double value, int *theIndex);
void Linear(int Ntable, double *xtable, double *ytable,
int N, double *x, double *y, bool_t hunt);
double BiLinear(int Na, double *a_table, double a,
int Nb, double *b_table, double b,
double **f, bool_t hunt);
void splineCoef(int Ntable, double *xtable, double *ytable);
void splineEval(int N, double *x, double *y, bool_t hunt);
void exp_splineCoef(int Ntable, double *xtable, double *ytable,
double tension);
void exp_splineEval(int N, double *x, double *y, bool_t hunt);
void cc_kernel(double s, double *u);
double cubeconvol(int Nx, int Ny, double *f, double x, double y);
/* --- Special functions -- -------------- */
void GaussLeg(double x1, double x2, double *x, double *w, int n);
double Voigt(double a, double v, double *F, enum VoigtAlgorithm algorithm);
double gammln(double xx);
void w2(double dtau, double *w);
void w3(double dtau, double *w);
void U3(double dtau, double *U);
/* ------- end ---------------------------- rh.h -------------------- */