ARTS  2.3.1285(git:92a29ea9-dirty)
disort_DISORT.h
Go to the documentation of this file.
1 #ifndef disort_DISORT_h
2 #define disort_DISORT_h
3 
4 #ifdef ENABLE_DISORT
5 
6 #ifdef __cplusplus
7 extern "C" {
8 #endif
9 
10 typedef Index INTEGER;
11 typedef Index LOGICAL;
12 typedef Numeric REAL;
13 typedef float REAL4;
14 typedef Numeric REAL8;
15 
16 #define TRUE_ (1)
17 #define FALSE_ (0)
18 
19 /* ~~~~~~~~~~~~ */
20 /* VERSION 1.2 */
21 /* ~~~~~~~~~~~~ */
22 /* Subroutine */
23 //int disort_(integer *nlyr, doublereal *dtauc, doublereal *
24 // ssalb, doublereal *pmom, doublereal *temper, doublereal *wvnmlo,
25 // doublereal *wvnmhi, logical *usrtau, integer *ntau, doublereal *utau,
26 // integer *nstr, logical *usrang, integer *numu, doublereal *umu,
27 // integer *nphi, doublereal *phi, integer *ibcnd, doublereal *fbeam,
28 // doublereal *umu0, doublereal *phi0, doublereal *fisot, logical *
29 // lamber, doublereal *albedo, doublereal *hl, doublereal *btemp,
30 // doublereal *ttemp, doublereal *temis, logical *deltam, logical *plank,
31 // logical *onlyfl, doublereal *accur, logical *prnt, char *header,
32 // integer *maxcly, integer *maxulv, integer *maxumu, integer *maxcmu,
33 // integer *maxphi, doublereal *rfldir, doublereal *rfldn, doublereal *
34 // flup, doublereal *dfdt, doublereal *uavg, doublereal *uu, doublereal *
35 // u0u, doublereal *albmed, doublereal *trnmed, ftnlen header_len);
36 
37 int disort_(INTEGER *nlyr,
38  REAL *dtauc,
39  REAL *ssalb,
40  REAL *pmom,
41  REAL *temper,
42  REAL *wvnmlo,
43  REAL *wvnmhi,
44  LOGICAL *usrtau,
45  INTEGER *ntau,
46  REAL *utau,
47  INTEGER *nstr,
48  LOGICAL *usrang,
49  INTEGER *numu,
50  REAL *umu,
51  INTEGER *nphi,
52  REAL *phi,
53  INTEGER *ibcnd,
54  REAL *fbeam,
55  REAL *umu0,
56  REAL *phi0,
57  REAL *fisot,
58  REAL *intang,
59  LOGICAL *lamber,
60  REAL *albedo,
61  REAL *hl,
62  REAL *btemp,
63  REAL *ttemp,
64  REAL *temis,
65  LOGICAL *deltam,
66  LOGICAL *plank,
67  LOGICAL *onlyfl,
68  REAL *accur,
69  LOGICAL *prnt,
70  char *header,
71  INTEGER *maxcly,
72  INTEGER *maxulv,
73  INTEGER *maxumu,
74  INTEGER *maxcmu,
75  INTEGER *maxphi,
76  REAL *rfldir,
77  REAL *rfldn,
78  REAL *flup,
79  REAL *dfdt,
80  REAL *uavg,
81  REAL *uu,
82  REAL *u0u,
83  REAL *albmed,
84  REAL *trnmed);
85 
86 int qgausn_(INTEGER *nn, REAL *gmu, REAL *gwt);
87 #ifdef __cplusplus
88 }
89 #endif
90 
91 #endif /* ENABLE_DISORT */
92 
93 #endif /* disort_DISORT_h */
Index
INDEX Index
The type to use for all integer numbers and indices.
Definition: matpack.h:39
Numeric
NUMERIC Numeric
The type to use for all floating point numbers.
Definition: matpack.h:33