Code_Saturne
CFD tool
cs_gui_radiative_transfer.h
Go to the documentation of this file.
1 #ifndef __CS_GUI_RADIATIVE_TRANSFER_H__
2 #define __CS_GUI_RADIATIVE_TRANSFER_H__
3 
4 /*============================================================================
5  * Management of the GUI parameters file: radiative transfer
6  *============================================================================*/
7 
8 /*
9  This file is part of Code_Saturne, a general-purpose CFD tool.
10 
11  Copyright (C) 1998-2012 EDF S.A.
12 
13  This program is free software; you can redistribute it and/or modify it under
14  the terms of the GNU General Public License as published by the Free Software
15  Foundation; either version 2 of the License, or (at your option) any later
16  version.
17 
18  This program is distributed in the hope that it will be useful, but WITHOUT
19  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
20  FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
21  details.
22 
23  You should have received a copy of the GNU General Public License along with
24  this program; if not, write to the Free Software Foundation, Inc., 51 Franklin
25  Street, Fifth Floor, Boston, MA 02110-1301, USA.
26 */
27 
28 /*----------------------------------------------------------------------------*/
29 
30 /*----------------------------------------------------------------------------
31  * Local headers
32  *----------------------------------------------------------------------------*/
33 
34 #include "cs_base.h"
35 
36 /*----------------------------------------------------------------------------*/
37 
39 
40 /*============================================================================
41  * Public function prototypes for Fortran API
42  *============================================================================*/
43 
44 /*----------------------------------------------------------------------------
45  *
46  *----------------------------------------------------------------------------*/
47 
48 void CS_PROCF (uiray1, UIRAY1) (int *const iirayo,
49  int *const isuird,
50  int *const ndirec,
51  int *const nfreqr,
52  int *const idiver,
53  int *const iimpar,
54  int *const iimlum);
55 
56 
57 /*----------------------------------------------------------------------------
58  *
59  *----------------------------------------------------------------------------*/
60 
61 void CS_PROCF(fcnmra, FCNMRA)
62 (
63  const char *const fstr, /* --> Fortran string */
64  int *const len, /* --> String Length */
65  int *const var_id /* --> Variable Id (1 to n) */
67 );
68 
69 /*----------------------------------------------------------------------------
70  *
71  *----------------------------------------------------------------------------*/
72 
73 void CS_PROCF(cfnmra, CFNMRA)
74 (
75  char *const fstr, /* --> Fortran string */
76  int *const len, /* --> String Length */
77  int *const var_id /* --> Variable Id (1 to n) */
79 );
80 
81 /*----------------------------------------------------------------------------
82  *
83  *----------------------------------------------------------------------------*/
84 
85 
86 void CS_PROCF (uiray2, UIRAY2) (const int *const itypfb,
87  const int *const iparoi,
88  const int *const iparug,
89  const int *const ivart,
90  int *const izfrdp,
91  int *const isothp,
92  const int *const itpimp,
93  const int *const ipgrno,
94  const int *const iprefl,
95  const int *const ifgrno,
96  const int *const ifrefl,
97  const int *const nzoppm,
98  const int *const nfabor,
99  const int *const nvar,
100  double *const epsp,
101  double *const epap,
102  double *const tintp,
103  double *const textp,
104  double *const xlamp,
105  double *const rcodcl);
106 
107 /*----------------------------------------------------------------------------
108  *
109  *----------------------------------------------------------------------------*/
110 
111 
112 void CS_PROCF (uiray3, UIRAY3) ( double *const ck,
113  const int *const ncel,
114  int *const imodak);
115 /*----------------------------------------------------------------------------
116  *
117  *----------------------------------------------------------------------------*/
118 
119 void CS_PROCF (uiray4, UIRAY4) (int *const nbrayf,
120  int *const iirayo,
121  int *const irayvf);
122 
123 /*-----------------------------------------------------------------------------
124  * Indirection between the solver numbering and the XML one
125  * for physical properties of radiative transfer
126  *----------------------------------------------------------------------------*/
127 
128 void CS_PROCF (uirapr, UIRAPR) (const int *const nprayc,
129  const int *const nprayb,
130  const int *const nrphas,
131  const int *const ipppro,
132  const int *const ipproc,
133  const int *const ilumin,
134  const int *const iqx,
135  const int *const iqy,
136  const int *const iqz,
137  const int *const itsre,
138  const int *const itsri,
139  const int *const iabs,
140  const int *const iemi,
141  const int *const icak);
142 
143 /*-----------------------------------------------------------------------------
144  * Free memory: clean global private variables.
145  *
146  * Fortran Interface:
147  *
148  * SUBROUTINE MEMUI2
149  * *****************
150  *
151  *----------------------------------------------------------------------------*/
152 
153 void CS_PROCF (memui2, MEMUI2) (void);
154 
155 /*----------------------------------------------------------------------------*/
156 
158 
159 #endif /* __CS_GUI_RADIATIVE_TRANSFER_H__ */
integer, save iqz
Definition: radiat.f90:54
void fcnmra(const char *const fstr, int *const len, int *const var_id CS_ARGF_SUPP_CHAINE)
Definition: cs_gui_radiative_transfer.c:750
size_t len
Definition: mei_scanner.c:639
integer, dimension(npromx), save ipppro
Definition: entsor.f90:179
BEGIN_C_DECLS void uiray1(int *const iirayo, int *const isuird, int *const ndirec, int *const nfreqr, int *const idiver, int *const iimpar, int *const iimlum)
Definition: cs_gui_radiative_transfer.c:462
integer, save iqy
Definition: radiat.f90:54
integer, save iqx
Definition: radiat.f90:54
#define BEGIN_C_DECLS
Definition: cs_defs.h:365
integer, dimension(npromx), save ipproc
Definition: numvar.f90:98
integer ipgrno
Definition: radiat.f90:136
void cfnmra(char *const fstr, int *const len, int *const var_id CS_ARGF_SUPP_CHAINE)
Definition: cs_gui_radiative_transfer.c:816
integer, save isuird
Definition: radiat.f90:96
integer, save nfreqr
Definition: radiat.f90:100
integer iparug
Definition: paramx.f90:65
#define CS_ARGF_SUPP_CHAINE
Definition: cs_defs.h:394
integer, save ndirec
Definition: radiat.f90:108
integer, dimension(:), allocatable itypfb
Definition: pointe.f90:88
integer, save ilumin
Definition: radiat.f90:54
integer, save nfabor
Definition: mesh.f90:42
integer, save iirayo
Definition: radiat.f90:41
integer, save iimpar
Definition: radiat.f90:41
integer, save idiver
Definition: radiat.f90:87
integer itpimp
Definition: radiat.f90:136
void uirapr(const int *const nprayc, const int *const nprayb, const int *const nrphas, const int *const ipppro, const int *const ipproc, const int *const ilumin, const int *const iqx, const int *const iqy, const int *const iqz, const int *const itsre, const int *const itsri, const int *const iabs, const int *const iemi, const int *const icak)
Definition: cs_gui_radiative_transfer.c:560
integer, dimension(1+nclcpm), save iabs
Definition: radiat.f90:54
integer iprefl
Definition: radiat.f90:136
void uiray4(int *const nbrayf, int *const iirayo, int *const irayvf)
Definition: cs_gui_radiative_transfer.c:510
integer, save imodak
Definition: radiat.f90:41
integer ifrefl
Definition: radiat.f90:136
integer, dimension(1+nclcpm), save icak
Definition: radiat.f90:54
integer, dimension(1+nclcpm), save itsri
Definition: radiat.f90:54
integer, save iimlum
Definition: radiat.f90:41
integer, dimension(nbrayf), save irayvf
Definition: radiat.f90:145
void uiray3(double *const ck, const int *const ncel, int *const imodak)
Definition: cs_gui_radiative_transfer.c:1086
integer, dimension(1+nclcpm), save itsre
Definition: radiat.f90:54
integer, save ncel
Definition: mesh.f90:42
#define END_C_DECLS
Definition: cs_defs.h:366
void uiray2(const int *const itypfb, const int *const iparoi, const int *const iparug, const int *const ivart, int *const izfrdp, int *const isothp, const int *const itpimp, const int *const ipgrno, const int *const iprefl, const int *const ifgrno, const int *const ifrefl, const int *const nzoppm, const int *const nfabor, const int *const nvar, double *const epsp, double *const epap, double *const tintp, double *const textp, double *const xlamp, double *const rcodcl)
Definition: cs_gui_radiative_transfer.c:861
void memui2(void)
Definition: cs_gui_radiative_transfer.c:1127
#define CS_PROCF(x, y)
Definition: cs_defs.h:379
integer nbrayf
Definition: radiat.f90:141
integer, dimension(1+nclcpm), save iemi
Definition: radiat.f90:54
integer ifgrno
Definition: radiat.f90:136
integer iparoi
Definition: paramx.f90:65
integer, save nvar
Definition: dimens.f90:33
integer, save nrphas
Definition: radiat.f90:41