105
106
LRESULT heavepressureFunction(
LPCOMPLEXSCALAR
pressure,
107
LPCCOMPLEXARRAY settings)
108
{
109
110
Trigidice
foo;
111
double HeavePressure;
112
double
micro, macro, body;
113
double
khw, khi, khg;
114
double
wsat, wd, ksat;
115
double
alpha, beta, phib;
116
double
prec, resol, lcmax;
117
double
heave, pene, gradtb;
118
119
micro = settings->hReal[0][0];
120
macro = settings->hReal[0][1];
121
body = settings->hReal[0][2];
122
foo.FirstScales( micro, macro, body);
123
124
khw = settings->hReal[0][3];
125
khi = settings->hReal[0][4];
126
khg = settings->hReal[0][5];
127
foo.InitTherm( khw, khi, khg);
128
129
wsat = settings->hReal[0][6];
130
wd = settings->hReal[0][7];
131
ksat = settings->hReal[0][8];
132
foo.InitWATER( wsat, wd, ksat);
133
alpha = settings->hReal[0][9];
134
beta = settings->hReal[0][10];
135
phib = settings->hReal[0][11];
136
foo.InitBC( alpha, beta, phib);
137
138
heave = settings->hReal[0][12];
139
pene = settings->hReal[0][13];
140
gradtb = settings->hReal[0][14];
141
foo.InitContinuum( heave, pene, gradtb);
142
143
prec = settings->hReal[0][15];
144
resol = settings->hReal[0][16];
145
lcmax = settings->hReal[0][17];
146
foo.FirstTol( prec, resol, lcmax);
147
148
HeavePressure = foo.pressure();
149
pressure->real = HeavePressure;
150
151
152
return 0;
// return 0 to indicate there was no error
153
154
}
155
156
LRESULT heaverateFunction(
LPCOMPLEXSCALAR
heaverate,
157
LPCCOMPLEXARRAY settings);
158
30
Previous Page
