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
117
118
119
120
121
122
123
|
//======================================================================
// variable 1 - var[0] , i.e variables are zero based
//======================================================================
int USERD_get_gold_variable_info
(
char **var_description,
char **var_filename,
int *var_type,
int *var_classify,
int *var_complex,
char **var_ifilename,
float *var_freq,
int *var_contran,
int *var_timeset
)
{
#ifdef ENSIGHTDEBUG
Info<< "Entering: USERD_get_gold_variable_info" << endl
<< flush;
#endif
label offset = Num_variables - nSprayVariables;
// scalars first ...
for (label n=0; n<offset; n++)
{
if (isScalar[var2field[n]])
{
var_type[n] = Z_SCALAR;
var_classify[n] = Z_PER_ELEM;
var_complex[n] = FALSE;
var_timeset[n] = 1;
strncpy
(
var_description[n],
fieldNames[var2field[n]].c_str(),
Z_BUFL
);
}
}
// ... and then vectors
for (label n=0; n<offset; n++)
{
if (isVector[var2field[n]])
{
var_type[n] = Z_VECTOR;
var_classify[n] = Z_PER_ELEM;
var_complex[n] = FALSE;
var_timeset[n] = 1;
strncpy
(
var_description[n],
fieldNames[var2field[n]].c_str(),
Z_BUFL
);
}
}
// ... and tensors (NB! all tensors are treated as asymmetric)
for (label n=0; n<offset; n++)
{
if (isTensor[var2field[n]])
{
var_type[n] = Z_TENSOR9;
var_classify[n] = Z_PER_ELEM;
var_complex[n] = FALSE;
var_timeset[n] = 1;
strncpy
(
var_description[n],
fieldNames[var2field[n]].c_str(),
Z_BUFL
);
}
}
if (Numparts_available > nPatches+1)
{
label Ns = lagrangianScalarNames.size();
for (label n=0; n<Ns; n++)
{
var_type[offset + n] = Z_SCALAR;
var_classify[offset + n] = Z_PER_ELEM;
var_complex[offset + n] = FALSE;
var_timeset[offset + n] = 1;
word name = parcelPrepend + lagrangianScalarNames[n];
strncpy
(
var_description[offset + n],
name.c_str(),
Z_BUFL
);
}
forAll(lagrangianVectorNames, n)
{
var_type[offset + Ns + n] = Z_VECTOR;
var_classify[offset + Ns + n] = Z_PER_ELEM;
var_complex[offset + Ns + n] = FALSE;
var_timeset[offset + Ns + n] = 1;
word name = parcelPrepend + lagrangianVectorNames[n];
strncpy
(
var_description[offset + Ns + n],
name.c_str(),
Z_BUFL
);
}
}
#ifdef ENSIGHTDEBUG
Info<< "Leaving: USERD_get_gold_variable_info" << endl
<< flush;
#endif
return Z_OK;
}
|
