OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
dyn_userlib.c
Go to the documentation of this file.
1//Copyright> OpenRadioss
2//Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3//Copyright>
4//Copyright> This program is free software: you can redistribute it and/or modify
5//Copyright> it under the terms of the GNU Affero General Public License as published by
6//Copyright> the Free Software Foundation, either version 3 of the License, or
7//Copyright> (at your option) any later version.
8//Copyright>
9//Copyright> This program is distributed in the hope that it will be useful,
10//Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11//Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12//Copyright> GNU Affero General Public License for more details.
13//Copyright>
14//Copyright> You should have received a copy of the GNU Affero General Public License
15//Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16//Copyright>
17//Copyright>
18//Copyright> Commercial Alternative: Altair Radioss Software
19//Copyright>
20//Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21//Copyright> software under a commercial license. Contact Altair to discuss further if the
22//Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23#include "hardware.inc"
24#include <stdio.h>
25#include <string.h>
26#include <stdlib.h>
27#include <math.h>
28#include <fcntl.h>
29
30
31#ifdef _WIN64
32#include <windows.h>
33#include <process.h>
34#include <io.h>
35#include <sys\types.h>
36#include <sys/stat.h>
37#define _FCALL
38
39#elif 1
40
41#include <dlfcn.h>
42#include <sys/resource.h>
43#include <sys/types.h>
44#include <time.h>
45#include <sys/stat.h>
46#include <unistd.h>
47#define _FCALL
48
49#endif
50
51#ifdef MYREAL4
52#define my_real float
53#endif
54
55#ifdef MYREAL8
56#define my_real double
57#endif
58
59
60void *userlibhandle;
61
62void (*userlib_id)(int * info);
63
64/* ------------ */
65/* User Springs */
66/* ------------ */
67void (*eng_ruser)(int *ITYP, int *NEL ,int *IPROP ,my_real *UVAR ,int *NUVAR ,
68 my_real *FX ,my_real *FY ,my_real *FZ ,my_real *XMOM ,my_real *YMOM ,
69 my_real *ZMOM ,my_real *E ,my_real *OFF ,my_real *STIFM ,my_real *STIFR ,
70 my_real *VISCM ,my_real *VISCR ,my_real *MASS ,my_real *XINER ,my_real *DT ,
71 my_real *XL ,my_real *VX ,my_real *RY1 ,my_real *RZ1 ,my_real *RX ,
72 my_real *RY2 ,my_real *RZ2 ,my_real *FR_WAVE);
73
74/* ------------------------- */
75/* User Law 29-30-31 Solids */
76/* ------------------------- */
77void (*eng_sigeps)(int* ilaw ,
78 int *NEL ,int* NUPARAM ,int* NUVAR ,int* NFUNC ,int* IFUNC ,
79 int* NPF ,my_real *TF ,my_real *TIME , my_real *TIMESTEP, my_real *UPARAM ,my_real *RHO0 ,
80 my_real *RHO ,my_real *VOLUME ,my_real *EINT ,my_real *EPSPXX ,my_real *EPSPYY ,my_real *EPSPZZ ,
81 my_real *EPSPXY ,my_real *EPSPYZ ,my_real *EPSPZX ,my_real *DEPSXX ,my_real *DEPSYY ,my_real *DEPSZZ ,
82 my_real *DEPSXY ,my_real *DEPSYZ ,my_real *DEPSZX ,my_real *EPSXX ,my_real *EPSYY ,my_real *EPSZZ ,
83 my_real *EPSXY ,my_real *EPSYZ ,my_real *EPSZX ,
84 my_real *IGOXX ,my_real *SIGOYY ,my_real *SIGOZZ ,my_real *SIGOXY ,my_real *SIGOYZ ,my_real *SIGOZX ,
85 my_real *SIGNXX ,my_real *SIGNYY ,my_real *SIGNZZ ,my_real *SIGNXY ,my_real *SIGNYZ ,my_real *SIGNZX ,
86 my_real *SIGVXX ,my_real *SIGVYY ,my_real *SIGVZZ ,my_real *SIGVXY ,my_real *SIGVYZ ,my_real *SIGVZX ,
87 my_real *SOUNDSP,my_real *VISCMAX,my_real *UVAR ,my_real *OFF );
88
89/* ------------------------- */
90/* User Law 29-30-31 Shells */
91/* ------------------------- */
92void (*eng_sigepsc)(int* ilaw ,
93 int* NEL ,int*NUPARAM ,int*NUVAR ,int*NFUNC ,int*IFUNC ,
94 int*NPF ,int*NPT ,int*IPT ,int*IFLAG ,
95 my_real *TF ,my_real *TIME ,my_real *TIMESTEP , my_real *UPARAM , my_real *RHO0 ,
96 my_real *AREA ,my_real *EINT ,my_real *THKLY ,
97 my_real *EPSPXX ,my_real *EPSPYY ,my_real *EPSPXY ,my_real *EPSPYZ ,my_real *EPSPZX ,
98 my_real *DEPSXX ,my_real *DEPSYY ,my_real *DEPSXY ,my_real *DEPSYZ ,my_real *DEPSZX ,
99 my_real *EPSXX ,my_real *EPSYY ,my_real *EPSXY ,my_real *EPSYZ ,my_real *EPSZX ,
100 my_real *SIGOXX ,my_real *SIGOYY ,my_real *SIGOXY ,my_real *SIGOYZ ,my_real *SIGOZX ,
101 my_real *SIGNXX ,my_real *SIGNYY ,my_real *SIGNXY ,my_real *SIGNYZ ,my_real *SIGNZX ,
102 my_real *SIGVXX ,my_real *SIGVYY ,my_real *SIGVXY ,my_real *SIGVYZ ,my_real *SIGVZX ,
103 my_real *SOUNDSP,my_real *VISCMAX,my_real *THK ,my_real *PLA ,my_real *UVAR ,
104 my_real *OFF ,int *NGL ,int *SHF);
105
106/* ----------------------- */
107/* User Law Rupture BRICK */
108/* ----------------------- */
109void (*eng_flaw)(int*IRUP,
110 int*NEL ,int*NUPARAM,int*NUVAR ,int*NFUNC ,int*IFUNC ,
111 int*NPF ,my_real *TF ,my_real *TIME ,my_real *TIMESTEP ,my_real *UPARAM ,
112 int*NGL ,int*IPM ,int*NPROPMI,int*MAT,int*IDEL7NOK,
113 my_real *EPSPXX ,my_real *EPSPYY ,my_real *EPSPZZ ,my_real *EPSPXY,my_real *EPSPYZ,my_real *EPSPZX ,
114 my_real *EPSXX ,my_real *EPSYY ,my_real *EPSZZ ,my_real *EPSXY ,my_real *EPSYZ ,my_real *EPSZX ,
115 my_real *SIGNXX ,my_real *SIGNYY ,my_real *SIGNZZ ,my_real *SIGNXY,my_real *SIGNYZ,my_real *SIGNZX ,
116 my_real *PLA ,my_real *DPLA ,my_real *EPSP ,my_real *UVAR ,my_real *OFF ,
117 my_real *BIDON1 ,my_real *BIDON2 ,my_real *BIDON3 ,my_real *BIDON4,my_real *BIDON5);
118
119/* ------------------------ */
120/* User Law Rupture SHELL */
121/* ------------------------ */
122void (*eng_flawc)( int *IRUP,
123 int *NEL ,int *NUPARAM,int *NUVAR ,int *NFUNC ,int *IFUNC ,int *NPF ,
124 my_real *TF ,my_real *TIME ,my_real *TIMESTEP,my_real *UPARAM , int *NGL ,int *IPT ,
125 int *NPT0 ,int *IPM ,int *NPROPMI ,int *MAT ,
126 my_real *SIGNXX ,my_real *SIGNYY ,my_real *SIGNXY ,my_real *SIGNYZ ,my_real *SIGNZX ,
127 my_real *EPSPXX ,my_real *EPSPYY ,my_real *EPSPXY ,my_real *EPSPYZ ,my_real *EPSPZX ,
128 my_real *EPSXX ,my_real *EPSYY ,my_real *EPSXY ,my_real *EPSYZ ,my_real *EPSZX ,
129 my_real *PLA ,my_real *DPLA ,my_real *EPSP ,my_real *UVAR ,my_real *UEL ,
130 my_real *OFF ,my_real *BIDON1 ,my_real *BIDON2 ,my_real *BIDON3 ,my_real *BIDON4 ,my_real *BIDON5 );
131
132
133/* ---------------------------- */
134/* User Laws sigeps99c (Shells) */
135/* ---------------------------- */
136void (*eng_sigeps99c)(int*NEL ,int*NUPARAM ,int*NUVAR ,int*ILAW_USER ,int*NFUNC ,
137 int*IFUNC ,int *NPF ,int*NGL ,my_real *TF ,my_real *TIME ,
138 my_real *TIMESTEP ,my_real *UPARAM ,my_real *RHO ,my_real *AREA ,my_real *EINT ,
139 my_real *SHF ,my_real *SOUNDSP ,my_real *VISCMAX ,my_real *PLA ,my_real *UVAR ,
140 my_real *OFF ,my_real *SIGY );
141
142/* ------------------------------- */
143/* User Law sigeps99c get variables */
144/* ------------------------------- */
145void (*eng_get_lawc_user_var)( int*NCYCLE, int*IMAT, int*ILAYER, int*NPTA, int*IFLAG,
146 my_real* R11, my_real*R12, my_real*R13, my_real*R21, my_real*R22,
147 my_real* R23, my_real*R31, my_real*R32, my_real*R33, my_real*SIGOXX,
148 my_real* SIGOYY, my_real*SIGOXY, my_real*SIGOYZ, my_real*SIGOZX, my_real*EPSPXX,
149 my_real* EPSPYY, my_real*EPSPXY, my_real*EPSPYZ, my_real*EPSPZX, my_real*EPSXX,
150 my_real* EPSYY, my_real*EPSXY, my_real*EPSYZ, my_real*EPSZX, my_real*DEPSXX,
151 my_real* DEPSYY, my_real*DEPSXY, my_real*DEPSYZ, my_real*DEPSZX, my_real*THKLYL,
152 my_real* THKN, my_real*SIGNXX, my_real*SIGNYY, my_real*SIGNXY, my_real*SIGNYZ,
153 my_real* SIGNZX, my_real*SIGVXX, my_real*SIGVYY, my_real*SIGVXY, my_real*SIGVYZ,
154 my_real* SIGVZX, my_real*DPLA );
155
156
157void (*eng_get_lawc_user_var_2) ( my_real* VAR01,int *SIZVAR01,my_real* VAR02,int *SIZVAR02,
158 my_real* VAR03,int *SIZVAR03,my_real* VAR04,int *SIZVAR04,my_real* VAR05,int *SIZVAR05,my_real* VAR06,int * SIZVAR06,
159 my_real* VAR07,int *SIZVAR07,my_real* VAR08,int *SIZVAR08,my_real* VAR09,int *SIZVAR09,my_real* VAR10,int * SIZVAR10,
160 my_real* VAR11,int *SIZVAR11,my_real* VAR12,int *SIZVAR12,my_real* VAR13,int *SIZVAR13,my_real* VAR14,int * SIZVAR14,
161 my_real* VAR15,int *SIZVAR15,my_real* VAR16,int *SIZVAR16,my_real* VAR17,int *SIZVAR17,my_real* VAR18,int * SIZVAR18,
162 my_real* VAR19,int *SIZVAR19,my_real* VAR20,int *SIZVAR20,my_real* VAR21,int *SIZVAR21,my_real* VAR22,int * SIZVAR22,
163 my_real* VAR23,int *SIZVAR23,my_real* VAR24,int *SIZVAR24,my_real* VAR25,int *SIZVAR25,my_real* VAR26,int * SIZVAR26,
164 my_real* VAR27,int *SIZVAR27,my_real* VAR28,int *SIZVAR28,my_real* VAR29,int *SIZVAR29,my_real* VAR30,int * SIZVAR30,
165 my_real* VAR31,int *SIZVAR31,my_real* VAR32,int *SIZVAR32,my_real* VAR33,int *SIZVAR33,my_real* VAR34,int * SIZVAR34,
166 my_real* VAR35,int *SIZVAR35,my_real* VAR36,int *SIZVAR36,my_real* VAR37,int *SIZVAR37,my_real* VAR38,int * SIZVAR38,
167 my_real* VAR39,int *SIZVAR39,my_real* VAR40,int *SIZVAR40,my_real* VAR41,int *SIZVAR41,my_real* VAR42,int * SIZVAR42,
168 my_real* VAR43,int *SIZVAR43,my_real* VAR44,int *SIZVAR44,my_real* VAR45,int *SIZVAR45,my_real* VAR46,int * SIZVAR46,
169 my_real* VAR47,int *SIZVAR47,my_real* VAR48,int *SIZVAR48,my_real* VAR49,int *SIZVAR49,my_real* VAR50,int * SIZVAR50,
170 my_real* VAR51,int *SIZVAR51,my_real* VAR52,int *SIZVAR52,my_real* VAR53,int *SIZVAR53,my_real* VAR54,int * SIZVAR54,
171 my_real* VAR55,int *SIZVAR55,my_real* VAR56,int *SIZVAR56,my_real* VAR57,int *SIZVAR57,my_real* VAR58,int * SIZVAR58,
172 my_real* VAR59,int *SIZVAR59,my_real* VAR60,int *SIZVAR60,my_real* VAR61,int *SIZVAR61,my_real* VAR62,int * SIZVAR62,
173 my_real* VAR63,int *SIZVAR63,my_real* VAR64,int *SIZVAR64,my_real* VAR65,int *SIZVAR65,my_real* VAR66,int * SIZVAR66,
174 my_real* VAR67,int *SIZVAR67,my_real* VAR68,int *SIZVAR68,my_real* VAR69,int *SIZVAR69,my_real* VAR70,int * SIZVAR70,
175 my_real* VAR71,int *SIZVAR72,my_real* VAR73,int *SIZVAR73,my_real* VAR74,int *SIZVAR74,my_real* VAR75,int * SIZVAR75,
176 my_real* VAR76,int *SIZVAR76,my_real* VAR77,int *SIZVAR77,my_real* VAR78,int *SIZVAR78,my_real* VAR79,int * SIZVAR79,
177 my_real* VAR80,int *SIZVAR80,my_real* VAR81,int *SIZVAR81,my_real* VAR82,int *SIZVAR82,my_real* VAR83,int * SIZVAR83,
178 my_real* VAR84,int *SIZVAR84,my_real* VAR85,int *SIZVAR85,my_real* VAR86,int *SIZVAR86,my_real* VAR87,int * SIZVAR87,
179 my_real* VAR88,int *SIZVAR88,my_real* VAR89,int *SIZVAR89,my_real* VAR90,int *SIZVAR90,my_real* VAR91,int * SIZVAR91,
180 my_real* VAR92,int *SIZVAR92,my_real* VAR93,int *SIZVAR93,my_real* VAR94,int *SIZVAR94,my_real* VAR95,int * SIZVAR95,
181 my_real* VAR96,int *SIZVAR96,my_real* VAR97,int *SIZVAR97,my_real* VAR98,int *SIZVAR98,my_real* VAR99,int * SIZVAR99);
182
183/* ----------------------------------- */
184/* User Law sigeps99 copy back results */
185/* ----------------------------------- */
186void (*eng_set_lawc_user_var) ( my_real*SIGNXX, my_real*SIGNYY, my_real*SIGNXY, my_real* SIGNYZ, my_real*SIGNZX,
187 my_real* SIGVXX, my_real*SIGVYY, my_real*SIGVXY, my_real*SIGVYZ, my_real*SIGVZX,
188 my_real* DPLA, my_real*ETSE, my_real* THKN ) ;
189
190void (*eng_set_lawc_user_var_2) (my_real* VAR01,int*SIZVAR01,my_real* VAR02,int*SIZVAR02,
191 my_real* VAR03,int*SIZVAR03,my_real* VAR04,int*SIZVAR04,my_real* VAR05,int*SIZVAR05,my_real* VAR06,int*SIZVAR06,
192 my_real* VAR07,int*SIZVAR07,my_real* VAR08,int*SIZVAR08,my_real* VAR09,int*SIZVAR09,my_real* VAR10,int*SIZVAR10,
193 my_real* VAR11,int*SIZVAR11,my_real* VAR12,int*SIZVAR12,my_real* VAR13,int*SIZVAR13,my_real* VAR14,int*SIZVAR14,
194 my_real* VAR15,int*SIZVAR15,my_real* VAR16,int*SIZVAR16,my_real* VAR17,int*SIZVAR17,my_real* VAR18,int*SIZVAR18,
195 my_real* VAR19,int*SIZVAR19,my_real* VAR20,int*SIZVAR20,my_real* VAR21,int*SIZVAR21,my_real* VAR22,int*SIZVAR22,
196 my_real* VAR23,int*SIZVAR23,my_real* VAR24,int*SIZVAR24,my_real* VAR25,int*SIZVAR25,my_real* VAR26,int*SIZVAR26,
197 my_real* VAR27,int*SIZVAR27,my_real* VAR28,int*SIZVAR28,my_real* VAR29,int*SIZVAR29,my_real* VAR30,int*SIZVAR30,
198 my_real* VAR31,int*SIZVAR31,my_real* VAR32,int*SIZVAR32,my_real* VAR33,int*SIZVAR33,my_real* VAR34,int*SIZVAR34,
199 my_real* VAR35,int*SIZVAR35,my_real* VAR36,int*SIZVAR36,my_real* VAR37,int*SIZVAR37,my_real* VAR38,int*SIZVAR38,
200 my_real* VAR39,int*SIZVAR39,my_real* VAR40,int*SIZVAR40,my_real* VAR41,int*SIZVAR41,my_real* VAR42,int*SIZVAR42,
201 my_real* VAR43,int*SIZVAR43,my_real* VAR44,int*SIZVAR44,my_real* VAR45,int*SIZVAR45,my_real* VAR46,int*SIZVAR46,
202 my_real* VAR47,int*SIZVAR47,my_real* VAR48,int*SIZVAR48,my_real* VAR49,int*SIZVAR49,my_real* VAR50,int*SIZVAR50,
203 my_real* VAR51,int*SIZVAR51,my_real* VAR52,int*SIZVAR52,my_real* VAR53,int*SIZVAR53,my_real* VAR54,int*SIZVAR54,
204 my_real* VAR55,int*SIZVAR55,my_real* VAR56,int*SIZVAR56,my_real* VAR57,int*SIZVAR57,my_real* VAR58,int*SIZVAR58,
205 my_real* VAR59,int*SIZVAR59,my_real* VAR60,int*SIZVAR60,my_real* VAR61,int*SIZVAR61,my_real* VAR62,int*SIZVAR62,
206 my_real* VAR63,int*SIZVAR63,my_real* VAR64,int*SIZVAR64,my_real* VAR65,int*SIZVAR65,my_real* VAR66,int*SIZVAR66,
207 my_real* VAR67,int*SIZVAR67,my_real* VAR68,int*SIZVAR68,my_real* VAR69,int*SIZVAR69,my_real* VAR70,int*SIZVAR70,
208 my_real* VAR71,int*SIZVAR72,my_real* VAR73,int*SIZVAR73,my_real* VAR74,int*SIZVAR74,my_real* VAR75,int*SIZVAR75,
209 my_real* VAR76,int*SIZVAR76,my_real* VAR77,int*SIZVAR77,my_real* VAR78,int*SIZVAR78,my_real* VAR79,int*SIZVAR79,
210 my_real* VAR80,int*SIZVAR80,my_real* VAR81,int*SIZVAR81,my_real* VAR82,int*SIZVAR82,my_real* VAR83,int*SIZVAR83,
211 my_real* VAR84,int*SIZVAR84,my_real* VAR85,int*SIZVAR85,my_real* VAR86,int*SIZVAR86,my_real* VAR87,int*SIZVAR87,
212 my_real* VAR88,int*SIZVAR88,my_real* VAR89,int*SIZVAR89,my_real* VAR90,int*SIZVAR90,my_real* VAR91,int*SIZVAR91,
213 my_real* VAR92,int*SIZVAR92,my_real* VAR93,int*SIZVAR93,my_real* VAR94,int*SIZVAR94,my_real* VAR95,int*SIZVAR95,
214 my_real* VAR96,int*SIZVAR96,my_real* VAR97,int*SIZVAR97,my_real* VAR98,int*SIZVAR98,my_real* VAR99,int*SIZVAR99);
215/* ---------------------------- */
216/* User Laws sigeps99 (Solids) */
217/* ---------------------------- */
218void (*eng_sigeps99) (
219 int*NEL ,int*NUPARAM ,int*NUVAR ,int*ILAW_USER ,int*NFUNC ,
220 int*IFUNC ,int*NPF ,my_real*TF ,my_real*TIME ,my_real*TIMESTEP,
221 my_real*UPARAM ,my_real*RHO ,my_real*VOLUME ,my_real*EINT ,int*NGL ,
222 my_real*SOUNDSP ,my_real*VISCMAX ,my_real*UVAR ,my_real*OFF ,my_real*SIGY ,
223 my_real*PLA );
224
225void (*eng_get_law_user_var)( int*NCYCLE, int*IMAT, int*IPTR, int*IPTS, int*IPTT,
226 my_real*UR11, my_real*R12, my_real*R13, my_real*R21, my_real*R22, my_real*R23, my_real*R31,
227 my_real*UR32, my_real*R33, my_real*SO1, my_real*SO2, my_real*SO3, my_real*SO4, my_real*SO5,
228 my_real*SO6, my_real*EP1, my_real*EP2, my_real*EP3, my_real*EP4, my_real*EP5, my_real*EP6,
229 my_real*ES1, my_real*ES2, my_real*ES3, my_real*ES4, my_real*ES5, my_real*ES6, my_real*DE1,
230 my_real*DE2, my_real*DE3, my_real*DE4, my_real*DE5, my_real*DE6, my_real*RHO0, my_real*S1,
231 my_real*S2, my_real*S3, my_real*S4, my_real*S5, my_real*S6, my_real*SV1, my_real*SV2,
232 my_real*SV3, my_real*SV4, my_real*SV5, my_real*SV6 );
233
234
235void (*eng_set_law_user_var)( my_real*S1, my_real*S2, my_real*S3, my_real*S4, my_real*S5, my_real*S6,
236 my_real*SV1, my_real*SV2, my_real*SV3, my_real*SV4, my_real*SV5, my_real*SV6,
237 my_real*DPLA );
238
239void (*eng_get_law_user_var_2) ( my_real*FPSXX,int*SIZFPSXX,my_real*FPSYY,int *SIZFPSYY,
240 my_real*FPSZZ,int *SIZFPSZZ,my_real*FPSXY,int *SIZFPSXY,my_real*FPSYZ,int *SIZFPSYZ,my_real*FPSZX,int *SIZFPSZX,
241 my_real*FPSYX,int *SIZFPSYX,my_real*FPSZY,int *SIZFPSZY,my_real*FPSXZ,int *SIZFPSXZ,my_real*VAR10,int *SIZVAR10,
242 my_real*VAR11,int *SIZVAR11,my_real*VAR12,int *SIZVAR12,my_real*VAR13,int *SIZVAR13,my_real*VAR14,int *SIZVAR14,
243 my_real*VAR15,int *SIZVAR15,my_real*VAR16,int *SIZVAR16,my_real*VAR17,int *SIZVAR17,my_real*VAR18,int *SIZVAR18,
244 my_real*VAR19,int *SIZVAR19,my_real*VAR20,int *SIZVAR20,my_real*VAR21,int *SIZVAR21,my_real*VAR22,int *SIZVAR22,
245 my_real*VAR23,int *SIZVAR23,my_real*VAR24,int *SIZVAR24,my_real*VAR25,int *SIZVAR25,my_real*VAR26,int *SIZVAR26,
246 my_real*VAR27,int *SIZVAR27,my_real*VAR28,int *SIZVAR28,my_real*VAR29,int *SIZVAR29,my_real*VAR30,int *SIZVAR30,
247 my_real*VAR31,int *SIZVAR31,my_real*VAR32,int *SIZVAR32,my_real*VAR33,int *SIZVAR33,my_real*VAR34,int *SIZVAR34,
248 my_real*VAR35,int *SIZVAR35,my_real*VAR36,int *SIZVAR36,my_real*VAR37,int *SIZVAR37,my_real*VAR38,int *SIZVAR38,
249 my_real*VAR39,int *SIZVAR39,my_real*VAR40,int *SIZVAR40,my_real*VAR41,int *SIZVAR41,my_real*VAR42,int *SIZVAR42,
250 my_real*VAR43,int *SIZVAR43,my_real*VAR44,int *SIZVAR44,my_real*VAR45,int *SIZVAR45,my_real*VAR46,int *SIZVAR46,
251 my_real*VAR47,int *SIZVAR47,my_real*VAR48,int *SIZVAR48,my_real*VAR49,int *SIZVAR49,my_real*VAR50,int *SIZVAR50,
252 my_real*VAR51,int *SIZVAR51,my_real*VAR52,int *SIZVAR52,my_real*VAR53,int *SIZVAR53,my_real*VAR54,int *SIZVAR54,
253 my_real*VAR55,int *SIZVAR55,my_real*VAR56,int *SIZVAR56,my_real*VAR57,int *SIZVAR57,my_real*VAR58,int *SIZVAR58,
254 my_real*VAR59,int *SIZVAR59,my_real*VAR60,int *SIZVAR60,my_real*VAR61,int *SIZVAR61,my_real*VAR62,int *SIZVAR62,
255 my_real*VAR63,int *SIZVAR63,my_real*VAR64,int *SIZVAR64,my_real*VAR65,int *SIZVAR65,my_real*VAR66,int *SIZVAR66,
256 my_real*VAR67,int *SIZVAR67,my_real*VAR68,int *SIZVAR68,my_real*VAR69,int *SIZVAR69,my_real*VAR70,int *SIZVAR70,
257 my_real*VAR71,int *SIZVAR72,my_real*VAR73,int *SIZVAR73,my_real*VAR74,int *SIZVAR74,my_real*VAR75,int *SIZVAR75,
258 my_real*VAR76,int *SIZVAR76,my_real*VAR77,int *SIZVAR77,my_real*VAR78,int *SIZVAR78,my_real*VAR79,int *SIZVAR79,
259 my_real*VAR80,int *SIZVAR80,my_real*VAR81,int *SIZVAR81,my_real*VAR82,int *SIZVAR82,my_real*VAR83,int *SIZVAR83,
260 my_real*VAR84,int *SIZVAR84,my_real*VAR85,int *SIZVAR85,my_real*VAR86,int *SIZVAR86,my_real*VAR87,int *SIZVAR87,
261 my_real*VAR88,int *SIZVAR88,my_real*VAR89,int *SIZVAR89,my_real*VAR90,int *SIZVAR90,my_real*VAR91,int *SIZVAR91,
262 my_real*VAR92,int *SIZVAR92,my_real*VAR93,int *SIZVAR93,my_real*VAR94,int *SIZVAR94,my_real*VAR95,int *SIZVAR95,
263 my_real*VAR96,int *SIZVAR96,my_real*VAR97,int *SIZVAR97,my_real*VAR98,int *SIZVAR98,my_real*VAR99,int *SIZVAR99);
264
265void (*eng_set_law_user_var_2) ( my_real*VAR01,int *SIZVAR01,my_real*VAR02,int *SIZVAR02,
266 my_real*VAR03,int *SIZVAR03,my_real*VAR04,int *SIZVAR04,my_real*VAR05,int *SIZVAR05,my_real*VAR06,int *SIZVAR06,
267 my_real*VAR07,int *SIZVAR07,my_real*VAR08,int *SIZVAR08,my_real*VAR09,int *SIZVAR09,my_real*VAR10,int *SIZVAR10,
268 my_real*VAR11,int *SIZVAR11,my_real*VAR12,int *SIZVAR12,my_real*VAR13,int *SIZVAR13,my_real*VAR14,int *SIZVAR14,
269 my_real*VAR15,int *SIZVAR15,my_real*VAR16,int *SIZVAR16,my_real*VAR17,int *SIZVAR17,my_real*VAR18,int *SIZVAR18,
270 my_real*VAR19,int *SIZVAR19,my_real*VAR20,int *SIZVAR20,my_real*VAR21,int *SIZVAR21,my_real*VAR22,int *SIZVAR22,
271 my_real*VAR23,int *SIZVAR23,my_real*VAR24,int *SIZVAR24,my_real*VAR25,int *SIZVAR25,my_real*VAR26,int *SIZVAR26,
272 my_real*VAR27,int *SIZVAR27,my_real*VAR28,int *SIZVAR28,my_real*VAR29,int *SIZVAR29,my_real*VAR30,int *SIZVAR30,
273 my_real*VAR31,int *SIZVAR31,my_real*VAR32,int *SIZVAR32,my_real*VAR33,int *SIZVAR33,my_real*VAR34,int *SIZVAR34,
274 my_real*VAR35,int *SIZVAR35,my_real*VAR36,int *SIZVAR36,my_real*VAR37,int *SIZVAR37,my_real*VAR38,int *SIZVAR38,
275 my_real*VAR39,int *SIZVAR39,my_real*VAR40,int *SIZVAR40,my_real*VAR41,int *SIZVAR41,my_real*VAR42,int *SIZVAR42,
276 my_real*VAR43,int *SIZVAR43,my_real*VAR44,int *SIZVAR44,my_real*VAR45,int *SIZVAR45,my_real*VAR46,int *SIZVAR46,
277 my_real*VAR47,int *SIZVAR47,my_real*VAR48,int *SIZVAR48,my_real*VAR49,int *SIZVAR49,my_real*VAR50,int *SIZVAR50,
278 my_real*VAR51,int *SIZVAR51,my_real*VAR52,int *SIZVAR52,my_real*VAR53,int *SIZVAR53,my_real*VAR54,int *SIZVAR54,
279 my_real*VAR55,int *SIZVAR55,my_real*VAR56,int *SIZVAR56,my_real*VAR57,int *SIZVAR57,my_real*VAR58,int *SIZVAR58,
280 my_real*VAR59,int *SIZVAR59,my_real*VAR60,int *SIZVAR60,my_real*VAR61,int *SIZVAR61,my_real*VAR62,int *SIZVAR62,
281 my_real*VAR63,int *SIZVAR63,my_real*VAR64,int *SIZVAR64,my_real*VAR65,int *SIZVAR65,my_real*VAR66,int *SIZVAR66,
282 my_real*VAR67,int *SIZVAR67,my_real*VAR68,int *SIZVAR68,my_real*VAR69,int *SIZVAR69,my_real*VAR70,int *SIZVAR70,
283 my_real*VAR71,int *SIZVAR72,my_real*VAR73,int *SIZVAR73,my_real*VAR74,int *SIZVAR74,my_real*VAR75,int *SIZVAR75,
284 my_real*VAR76,int *SIZVAR76,my_real*VAR77,int *SIZVAR77,my_real*VAR78,int *SIZVAR78,my_real*VAR79,int *SIZVAR79,
285 my_real*VAR80,int *SIZVAR80,my_real*VAR81,int *SIZVAR81,my_real*VAR82,int *SIZVAR82,my_real*VAR83,int *SIZVAR83,
286 my_real*VAR84,int *SIZVAR84,my_real*VAR85,int *SIZVAR85,my_real*VAR86,int *SIZVAR86,my_real*VAR87,int *SIZVAR87,
287 my_real*VAR88,int *SIZVAR88,my_real*VAR89,int *SIZVAR89,my_real*VAR90,int *SIZVAR90,my_real*VAR91,int *SIZVAR91,
288 my_real*VAR92,int *SIZVAR92,my_real*VAR93,int *SIZVAR93,my_real*VAR94,int *SIZVAR94,my_real*VAR95,int *SIZVAR95,
289 my_real*VAR96,int *SIZVAR96,my_real*VAR97,int *SIZVAR97,my_real*VAR98,int *SIZVAR98,my_real*VAR99,int *SIZVAR99);
290
291
292/* ------------ */
293/* User strings */
294/* ------------ */
295void (*eng_suser)(int*ITYP,
296 int*NEL ,int*NUVAR ,int*IPROP ,int*IMAT ,int*SOLID_ID,my_real *TIME ,my_real *TIMESTEP,
297 my_real *EINT ,my_real *VOL ,my_real *UVAR ,my_real *FR_WAVE,my_real *OFF ,my_real *RHO ,my_real *SIG ,
298 my_real *XX1 ,my_real *XX2 ,my_real *XX3 ,my_real *XX4 ,my_real *XX5 ,my_real *XX6 ,my_real *XX7 ,my_real *XX8 ,
299 my_real *YY1 ,my_real *YY2 ,my_real *YY3 ,my_real *YY4 ,my_real *YY5 ,my_real *YY6 ,my_real *YY7 ,my_real *YY8 ,
300 my_real *ZZ1 ,my_real *ZZ2 ,my_real *ZZ3 ,my_real *ZZ4 ,my_real *ZZ5 ,my_real *ZZ6 ,my_real *ZZ7 ,my_real *ZZ8 ,
301 my_real *UX1 ,my_real *UX2 ,my_real *UX3 ,my_real *UX4 ,my_real *UX5 ,my_real *UX6 ,my_real *UX7 ,my_real *UX8 ,
302 my_real *UY1 ,my_real *UY2 ,my_real *UY3 ,my_real *UY4 ,my_real *UY5 ,my_real *UY6 ,my_real *UY7 ,my_real *UY8 ,
303 my_real *UZ1 ,my_real *UZ2 ,my_real *UZ3 ,my_real *UZ4 ,my_real *UZ5 ,my_real *UZ6 ,my_real *UZ7 ,my_real *UZ8 ,
304 my_real *VX1 ,my_real *VX2 ,my_real *VX3 ,my_real *VX4 ,my_real *VX5 ,my_real *VX6 ,my_real *VX7 ,my_real *VX8 ,
305 my_real *VY1 ,my_real *VY2 ,my_real *VY3 ,my_real *VY4 ,my_real *VY5 ,my_real *VY6 ,my_real *VY7 ,my_real *VY8 ,
306 my_real *VZ1 ,my_real *VZ2 ,my_real *VZ3 ,my_real *VZ4 ,my_real *VZ5 ,my_real *VZ6 ,my_real *VZ7 ,my_real *VZ8 ,
307 my_real *VRX1 ,my_real *VRX2 ,my_real *VRX3 ,my_real *VRX4 ,my_real *VRX5 ,my_real *VRX6 ,my_real *VRX7 ,my_real *VRX8 ,
308 my_real *VRY1 ,my_real *VRY2 ,my_real *VRY3 ,my_real *VRY4 ,my_real *VRY5 ,my_real *VRY6 ,my_real *VRY7 ,my_real *VRY8 ,
309 my_real *VRZ1 ,my_real *VRZ2 ,my_real *VRZ3 ,my_real *VRZ4 ,my_real *VRZ5 ,my_real *VRZ6 ,my_real *VRZ7 ,my_real *VRZ8 ,
310 my_real *FX1 ,my_real *FX2 ,my_real *FX3 ,my_real *FX4 ,my_real *FX5 ,my_real *FX6 ,my_real *FX7 ,my_real *FX8 ,
311 my_real *FY1 ,my_real *FY2 ,my_real *FY3 ,my_real *FY4 ,my_real *FY5 ,my_real *FY6 ,my_real *FY7 ,my_real *FY8 ,
312 my_real *FZ1 ,my_real *FZ2 ,my_real *FZ3 ,my_real *FZ4 ,my_real *FZ5 ,my_real *FZ6 ,my_real *FZ7 ,my_real *FZ8 ,
313 my_real * MX1 ,my_real *MX2 ,my_real *MX3 ,my_real *MX4 ,my_real *MX5 ,my_real *MX6 ,my_real *MX7 ,my_real *MX8 ,
314 my_real *MY1 ,my_real *MY2 ,my_real *MY3 ,my_real *MY4 ,my_real *MY5 ,my_real *MY6 ,my_real *MY7 ,my_real *MY8 ,
315 my_real *MZ1 ,my_real *MZ2 ,my_real *MZ3 ,my_real *MZ4 ,my_real *MZ5 ,my_real *MZ6 ,my_real *MZ7 ,my_real *MZ8 ,
316 my_real *STIFM ,my_real *STIFR ,my_real *VISCM ,my_real *VISCR );
317
318
319/* ------------------------- */
320/* T2 INTERFACE USER RUPTURE */
321/* ------------------------- */
322void (*eng_userint)(int *IGTYP,
323 int *NSN ,int *II ,int *PID ,int *NUVAR ,
324 my_real * UVAR );
325
326void (*eng_get_uintbuf_var)(int *ISLAVE, my_real *AREA, my_real *DT,my_real *DXN,my_real *DXT,my_real *SIGN,my_real *SIGT,
327 my_real *RUPT, my_real *FACN, my_real *FACT );
328
329void (*eng_userwi)(char *ROOTN ,int *ROOTLEN ,
330 int *NUVAR ,int *NUVARI ,int *NUMNOD ,
331 int *NCYCLE ,int *LENWA ,int *IUVAR ,int *ITAB ,my_real *TT ,
332 my_real *DT1 ,my_real *DT2 ,my_real *USREINT,my_real *EXWORK ,my_real *UVAR ,
333 my_real *D ,my_real *X ,my_real *V ,my_real *VR ,my_real *MASS ,
334 my_real *INER ,my_real *STIFN ,my_real *STIFR ,my_real *A ,my_real *AR ,
335 my_real *WA );
336
337
338void (*eng_user_sens) (int *TYP,int *ID);
339
340/* ----------------------------------------------- */
341void (*engine_user_check) ( int *MY_RANK, double *TSTOP, int *NCYCLE, double *TT, int *MSTOP ) ;
342void (*engine_user_finalize) ( int *MY_RANK ) ;
343void (*engine_user_initialize) (int *NSPMD, int *NTHREAD, int *MY_RANK) ;
344/* ----------------------------------------------- */
345
346void eng_array_init_(){
347 userlibhandle = NULL;
348 userlib_id = NULL;
349 eng_ruser = NULL;
350 eng_sigeps = NULL;
351 eng_sigepsc = NULL;
352 eng_flaw = NULL;
353 eng_flawc = NULL;
354 eng_sigeps99c = NULL;
355 eng_get_lawc_user_var = NULL;
356 eng_set_lawc_user_var = NULL;
357 eng_sigeps99 = NULL;
358 eng_get_law_user_var = NULL;
359 eng_set_law_user_var = NULL;
360 eng_suser = NULL;
361 eng_userint = NULL;
362 eng_get_uintbuf_var = NULL;
363 eng_userwi = NULL;
364 eng_user_sens = NULL;
365 engine_user_check = NULL;
366 engine_user_finalize = NULL;
367 engine_user_initialize= NULL;
368
369}
370
371#if CPP_mach == CPP_w95 || CPP_mach == CPP_win64_spmd || CPP_mach == CPP_p4win64_spmd || CPP_mach == CPP_wnt || CPP_mach == CPP_wmr || CPP_mach == CPP_p4win64 || CPP_mach == CPP_p4win32
372void init_callback(void ** callback_array);
373void userlib_init_callback();
374
375HINSTANCE userlibhandler;
376void (*set_library_callback) (void * callback_array[200]);
377
378void _FCALL DYN_USERLIB_INIT (char * libname, int *size, int * userlib_avail, int * userlib_ver,int * iresp,int * userlib_altname, int * dlib_array){
379
380 char* libn,current_dir;
381 int i;
382 char rname[256];
383 char dllpath[10240];
384 char *dllname;
385 int sz_dllname;
386 int result,dllpath_size;
387 int err;
388 int has_path;
389 err=0;
390 *userlib_avail=0;
391 eng_array_init_();
392
393 if(*userlib_altname==0){
394 libname[*size]='\0';
395
396 if(*iresp==1){
397 strcat_s(libname,2048,"win64_sp.dll"); // libname size set as 2048 in userlib.inc / Fortran
398 *size = *size + 12;
399 }else{
400 strcat_s(libname,2048,"win64.dll"); // libname size set as 2048 in userlib.inc / Fortran
401 *size = *size + 9;
402 }
403 }
404 libn = (char * )malloc(sizeof(char)* *size+1);
405 strcpy_s(libn,*size+1,libname);
406
407
408/* it is possible to set a path when using alternate library names*/
409 has_path=0;
410 for (i=0;i<*size;i++){
411 if (libn[i]==47 || libn[i]==92)has_path=1;
412 }
413
414 userlibhandler=NULL;
415 if (has_path==1){
416 userlibhandler = LoadLibrary(TEXT(libn));
417 }else{
418
419 sz_dllname=15360;
420 dllname=(char*)malloc(sizeof(char)*15360);
421 /* first trial find Environment variable RAD_USERLIB_LIBPATH */
422 dllpath_size=GetEnvironmentVariable("RAD_USERLIB_LIBPATH",dllpath,10240);
423
424 if (dllpath_size > 0){
425 strcpy_s(dllname,sz_dllname,dllpath);
426 strcat_s(dllname,sz_dllname,"\\");
427 strcat_s(dllname,sz_dllname,libn);
428 userlibhandler = LoadLibrary(TEXT(dllname));
429 }
430
431 if (!userlibhandler){
432 /* second trial find Environment variable in local directory */
433 dllpath_size=GetCurrentDirectory(10240,dllpath);
434 strcpy_s(dllname,sz_dllname,dllpath);
435 strcat_s(dllname,sz_dllname,"\\");
436 strcat_s(dllname,sz_dllname,libn);
437 userlibhandler = LoadLibrary(TEXT(dllname));
438 }
439
440 if (!userlibhandler){
441 /* third trial find Environment variable in %PATH% */
442 dllpath_size=GetEnvironmentVariable("PATH",dllpath,10240);
443 SetDllDirectory(dllpath);
444 userlibhandler = LoadLibrary(TEXT(libn));
445 }
446
447 free(dllname);
448 }
449
450
451 if (userlibhandler){
452
453/* Routine ENG_RUSER*/
454 sprintf(rname,"ENG_RUSER");
455 eng_ruser=(void*)GetProcAddress(userlibhandler,rname);
456 if (!eng_ruser) err=err+1;
457
458/* Routine ENG_SIGEPS*/
459 sprintf(rname,"ENG_SIGEPS");
460 eng_sigeps=(void*)GetProcAddress(userlibhandler,rname);
461 if (!eng_sigeps) err=err+1;
462
463/* Routine ENG_SIGEPSC*/
464 sprintf(rname,"ENG_SIGEPSC");
465 eng_sigepsc=(void*)GetProcAddress(userlibhandler,rname);
466 if (!eng_sigepsc) err=err+1;
467
468/* Routine ENG_FLAW*/
469 sprintf(rname,"ENG_FLAW");
470 eng_flaw=(void*)GetProcAddress(userlibhandler,rname);
471 if (!eng_flaw) err=err+1;
472
473
474/* Routine ENG_FLAWC*/
475 sprintf(rname,"ENG_FLAWC");
476 eng_flawc=(void*)GetProcAddress(userlibhandler,rname);
477 if (!eng_flawc) err=err+1;
478
479/* Routine ENG_SUSER*/
480 sprintf(rname,"ENG_SUSER");
481 eng_suser=(void*)GetProcAddress(userlibhandler,rname);
482 if (!eng_suser) err=err+1;
483
484/* Routine ENG_USERINT*/
485 sprintf(rname,"ENG_USERINT");
486 eng_userint=(void*)GetProcAddress(userlibhandler,rname);
487 if (!eng_userint) err=err+1;
488
489/* Routine ENG_GET_UINTBUF_VAR*/
490 sprintf(rname,"ENG_GET_UINTBUF_VAR");
491 eng_get_uintbuf_var=(void*)GetProcAddress(userlibhandler,rname);
492 if (!eng_get_uintbuf_var) err=err+1;
493
494/* Routine ENG_USERWI*/
495 sprintf(rname,"ENG_USERWI");
496 eng_userwi=(void*)GetProcAddress(userlibhandler,rname);
497 if (!eng_userwi) err=err+1;
498
499/* Routine ENG_USER_SENS*/
500 sprintf(rname,"ENG_USER_SENS");
501 eng_user_sens=(void*)GetProcAddress(userlibhandler,rname);
502 if (!eng_user_sens) err=err+1;
503
504/* Routine ENG_GET_LAWC_USERVAR*/
505 sprintf(rname,"ENG_GET_LAWC_USER_VAR");
506 eng_get_lawc_user_var=(void*)GetProcAddress(userlibhandler,rname);
507 if (!eng_get_lawc_user_var) err=err+1;
508
509/* Routine ENG_SIGEPS99C*/
510 sprintf(rname,"ENG_SIGEPS99C");
511 eng_sigeps99c=(void*)GetProcAddress(userlibhandler,rname);
512 if (!eng_sigeps99c) err=err+1;
513
514/* Routine ENG_SET_LAWC_USER_VAR*/
515 sprintf(rname,"ENG_SET_LAWC_USER_VAR");
516 eng_set_lawc_user_var=(void*)GetProcAddress(userlibhandler,rname);
517 if (!eng_set_lawc_user_var) err=err+1;
518
519/* Routine ENG_GET_LAW_USERVAR*/
520 sprintf(rname,"ENG_GET_LAW_USER_VAR");
521 eng_get_law_user_var=(void*)GetProcAddress(userlibhandler,rname);
522 if (!eng_get_law_user_var) err=err+1;
523
524/* Routine ENG_SIGEPS99C*/
525 sprintf(rname,"ENG_SIGEPS99");
526 eng_sigeps99=(void*)GetProcAddress(userlibhandler,rname);
527 if (!eng_sigeps99) err=err+1;
528
529/* Routine ENG_SET_LAW_USER_VAR*/
530 sprintf(rname,"ENG_SET_LAW_USER_VAR");
531 eng_set_law_user_var=(void*)GetProcAddress(userlibhandler,rname);
532 if (!eng_get_law_user_var) err=err+1;
533
534/* System - Library ID Version */
535 sprintf(rname,"userlib_id");
536 userlib_id=(void*)GetProcAddress(userlibhandler,rname);
537 if(userlib_id) {
538 userlib_id(userlib_ver);
539 }else{
540 err = err+1;
541 }
542
543
544
545/* System - Windows Callback Routine */
546 sprintf(rname,"set_callback");
547 set_library_callback=(void*)GetProcAddress(userlibhandler,rname);
548 if(set_library_callback) {
549 userlib_init_callback();
550 }else{
551 err = err+1;
552 }
553
554/* Addtionnal interface calls with Newer SDKs */
555 if (*userlib_ver >=1301501260){
556/* Routine ENG_GET_LAW_USER_VAR*/
557 sprintf(rname,"ENG_GET_LAW_USER_VAR_2");
558 eng_get_law_user_var_2=(void*)GetProcAddress(userlibhandler,rname);
559 if (!eng_get_law_user_var_2) err=err+1;
560
561/* Routine ENG_SET_LAW_USER_VAR*/
562 sprintf(rname,"ENG_SET_LAW_USER_VAR_2");
563 eng_set_law_user_var_2=(void*)GetProcAddress(userlibhandler,rname);
564// if (!eng_set_law_user_var_2) err=err+1;
565
566/* Routine ENG_GET_LAWC_USER_VAR*/
567 sprintf(rname,"ENG_GET_LAWC_USER_VAR_2");
568 eng_get_lawc_user_var_2=(void*)GetProcAddress(userlibhandler,rname);
569 if (!eng_get_lawc_user_var_2) err=err+1;
570
571/* Routine ENG_SET_LAWC_USER_VAR*/
572 sprintf(rname,"ENG_SET_LAWC_USER_VAR_2");
573 eng_set_lawc_user_var_2=(void*)GetProcAddress(userlibhandler,rname);
574 if (!eng_set_lawc_user_var_2) err=err+1;
575
576 }
577
578/* Addtionnal interface calls with Newer SDKs */
579// if (*userlib_ver >=210yymmddx){
580// if (*userlib_ver >=2102011230){
581 if (*userlib_ver >=2102011230){
582/* Routine ENGINE_USER_CHECK*/
583 sprintf(rname,"ENGINE_USER_CHECK");
584 engine_user_check=(void*)GetProcAddress(userlibhandler,rname);
585 if(engine_user_check) dlib_array[0]=1;
586// if (!engine_user_check) err=err+1;
587/* Routine ENGINE_USER_FINALIZE*/
588 sprintf(rname,"ENGINE_USER_FINALIZE");
589 engine_user_finalize=(void*)GetProcAddress(userlibhandler,rname);
590 if(engine_user_finalize) dlib_array[1]=1;
591// if (!engine_user_finalize) err=err+1;
592/* Routine ENGINE_USER_INITIALIZE*/
593 sprintf(rname,"ENGINE_USER_INITIALIZE");
594 engine_user_initialize=(void*)GetProcAddress(userlibhandler,rname);
595 if(engine_user_initialize) dlib_array[2]=1;
596// if (!engine_user_initialize) err=err+1;
597 }
598
599
600
601 if (err==0)*userlib_avail = 1;
602
603 }else{
604/* printf("load unsuccessful\n");*/
605 }
606}
607
608void userlib_init_callback()
609{
610void * callback_array[200];
611
612init_callback(callback_array);
613set_library_callback(callback_array);
614}
615
616#elif 1
617void *userlibhandle;
618
619
620#if CPP_mach==CPP_macosx64
621
622void dyn_userlib_init_(char * libname, int *size, int * userlib_avail, int * userlib_ver ,int * iresp,int * userlib_altname, int * dlib_array){
623 char* libn;
624 int i;
625 char rname[256];
626 int err;
627 err=0;
628 *userlib_avail=0;
629 *userlib_ver=0;
630}
631
632#elif 1
633
634void dyn_userlib_init_(char * libname, int *size, int * userlib_avail, int * userlib_ver ,int * iresp,int * userlib_altname, int * dlib_array){
635 char* libn;
636 int i,has_path,sz;
637 char rname[256],load_libname[15000];
638 char libname_c[256];
639 char * rad_userlib_libpath;
640 int err;
641 err=0;
642
643 eng_array_init_();
644
645 if(*userlib_altname==0){
646
647#ifdef __aarch64__
648 if(*iresp==1){
649 strcpy(libname_c,"linuxa64_sp.so");
650 }else{
651 strcpy(libname_c,"linuxa64.so");
652 }
653 sz=strlen(libname_c);
654 for (i=0;i<sz;i++) { libname[*size + i ] = libname_c[i]; }
655 *size = *size + sz;
656
657
658#else
659 if (*iresp ==0){
660 libname[*size ]='l';
661 libname[*size+1]='i';
662 libname[*size+2]='n';
663 libname[*size+3]='u';
664 libname[*size+4]='x';
665 libname[*size+5]='6';
666 libname[*size+6]='4';
667 libname[*size+7]='.';
668 libname[*size+8]='s';
669 libname[*size+9]='o';
670 *size = *size + 10;
671 }else{
672 libname[*size ]='l';
673 libname[*size+ 1]='i';
674 libname[*size+ 2]='n';
675 libname[*size+ 3]='u';
676 libname[*size+ 4]='x';
677 libname[*size+ 5]='6';
678 libname[*size+ 6]='4';
679 libname[*size+ 7]='_';
680 libname[*size+ 8]='s';
681 libname[*size+ 9]='p';
682 libname[*size+10]='.';
683 libname[*size+11]='s';
684 libname[*size+12]='o';
685 *size = *size + 13;
686 }
687#endif
688 }
689 libn = (char * )malloc(sizeof(char)* *size+1);
690 for (i=0;i<*size;i++)libn[i]=libname[i];
691 libn[*size]='\0';
692
693/* it is possible to set a path when using alternate library names*/
694 has_path=0;
695 for (i=0;i<*size;i++){
696 if (libn[i]==47 || libn[i]==92)has_path=1;
697 }
698
699 userlibhandle = NULL;
700 if (has_path==1){
701#ifdef SANITIZE
702 userlibhandle = dlopen(libn,RTLD_LAZY|RTLD_GLOBAL);
703#else
704 userlibhandle = dlopen(libn,RTLD_LAZY|RTLD_GLOBAL|RTLD_DEEPBIND);
705#endif
706
707
708 }else{
709
710 /* first trial find Environment variable RAD_USERLIB_LIBPATH */
711 rad_userlib_libpath=getenv("RAD_USERLIB_LIBPATH");
712 if (rad_userlib_libpath){
713 strcpy(load_libname,rad_userlib_libpath);
714 strcat(load_libname,"/");
715 strcat(load_libname,libn);
716#ifdef SANITIZE
717 userlibhandle = dlopen(load_libname,RTLD_LAZY|RTLD_GLOBAL);
718 #else
719 userlibhandle = dlopen(load_libname,RTLD_LAZY|RTLD_GLOBAL|RTLD_DEEPBIND);
720#endif
721
722 }
723
724 if(userlibhandle==NULL){
725 /* second trial search lib in Current Working directory */
726 getcwd(load_libname,15000);
727 strcat(load_libname,"/");
728 strcat(load_libname,libn);
729#ifdef SANITIZE
730 userlibhandle = dlopen(load_libname,RTLD_LAZY|RTLD_GLOBAL);
731#else
732 userlibhandle = dlopen(load_libname,RTLD_LAZY|RTLD_GLOBAL|RTLD_DEEPBIND);
733#endif
734 }
735
736 if(userlibhandle==NULL){
737 /* Third Trial : Default - LD_LRARY_PATH */
738#ifdef SANITIZE
739 userlibhandle = dlopen(libn,RTLD_LAZY|RTLD_GLOBAL);
740#else
741 userlibhandle = dlopen(libn,RTLD_LAZY|RTLD_GLOBAL|RTLD_DEEPBIND);
742#endif
743
744 }
745
746 }
747
748 /* DLSYM Engine routines in the Dynlib */
749 if (userlibhandle) {
750
751/* Routine ENG_RUSER*/
752 sprintf(rname,"eng_ruser_");
753 eng_ruser=dlsym(userlibhandle,rname);
754 if (!eng_ruser) err=err+1;
755
756/* Routine ENG_SIGEPS*/
757 sprintf(rname,"eng_sigeps_");
758 eng_sigeps=dlsym(userlibhandle,rname);
759 if (!eng_sigeps) err=err+1;
760
761/* Routine ENG_SIGEPSC*/
762 sprintf(rname,"eng_sigepsc_");
763 eng_sigepsc=dlsym(userlibhandle,rname);
764 if (!eng_sigepsc) err=err+1;
765
766/* Routine ENG_FLAW*/
767 sprintf(rname,"eng_flaw_");
768 eng_flaw=dlsym(userlibhandle,rname);
769 if (!eng_flaw) err=err+1;
770
771
772/* Routine ENG_FLAWC*/
773 sprintf(rname,"eng_flawc_");
774 eng_flawc=dlsym(userlibhandle,rname);
775 if (!eng_flawc) err=err+1;
776
777/* Routine ENG_SUSER*/
778 sprintf(rname,"eng_suser_");
779 eng_suser=dlsym(userlibhandle,rname);
780 if (!eng_suser) err=err+1;
781
782/* Routine ENG_USERINT*/
783 sprintf(rname,"eng_userint_");
784 eng_userint=dlsym(userlibhandle,rname);
785 if (!eng_userint) err=err+1;
786
787/* Routine ENG_GET_UINTBUF_VAR*/
788 sprintf(rname,"eng_get_uintbuf_var_");
789 eng_get_uintbuf_var=dlsym(userlibhandle,rname);
790 if (!eng_get_uintbuf_var) err=err+1;
791
792/* Routine ENG_USERWI*/
793 sprintf(rname,"eng_userwi_");
794 eng_userwi=dlsym(userlibhandle,rname);
795 if (!eng_userwi) err=err+1;
796
797/* Routine ENG_USER_SENS*/
798 sprintf(rname,"eng_user_sens_");
799 eng_user_sens=dlsym(userlibhandle,rname);
800 if (!eng_user_sens) err=err+1;
801
802/* Routine ENG_GET_LAWC_USERVAR*/
803 sprintf(rname,"eng_get_lawc_user_var_");
804 eng_get_lawc_user_var=dlsym(userlibhandle,rname);
805 if (!eng_get_lawc_user_var) err=err+1;
806
807/* Routine ENG_SIGEPS99C*/
808 sprintf(rname,"eng_sigeps99c_");
809 eng_sigeps99c=dlsym(userlibhandle,rname);
810 if (!eng_sigeps99c) err=err+1;
811
812/* Routine ENG_GET_LAWC_USERVAR*/
813 sprintf(rname,"eng_set_lawc_user_var_");
814 eng_set_lawc_user_var=dlsym(userlibhandle,rname);
815 if (!eng_set_lawc_user_var) err=err+1;
816
817/* Routine ENG_GET_LAW_USERVAR*/
818 sprintf(rname,"eng_get_law_user_var_");
819 eng_get_law_user_var=dlsym(userlibhandle,rname);
820 if (!eng_get_law_user_var) err=err+1;
821
822/* Routine ENG_SIGEPS99*/
823 sprintf(rname,"eng_sigeps99_");
824 eng_sigeps99=dlsym(userlibhandle,rname);
825 if (!eng_sigeps99) err=err+1;
826
827/* Routine ENG_SET_LAW_USERVAR*/
828 sprintf(rname,"eng_set_law_user_var_");
829 eng_set_law_user_var=dlsym(userlibhandle,rname);
830 if (!eng_set_law_user_var) err=err+1;
831
832/* System - Library ID Version */
833 sprintf(rname,"userlib_id");
834 userlib_id=dlsym(userlibhandle,rname);
835
836 if(userlib_id) {
837 userlib_id(userlib_ver);
838 }else{err = err+1; }
839
840
841 if (*userlib_ver >=1301501260){
842
843/* Routine ENG_SET_LAW_USER_VAR_2*/
844 sprintf(rname,"eng_get_law_user_var_2_");
845 eng_get_law_user_var_2=dlsym(userlibhandle,rname);
846 if (!eng_get_law_user_var_2) err=err+1;
847
848/* Routine ENG_SET_LAW_USER_VAR_2*/
849 sprintf(rname,"eng_set_law_user_var_2_");
850 eng_set_law_user_var_2=dlsym(userlibhandle,rname);
851 if (!eng_set_law_user_var_2) err=err+1;
852
853/* Routine ENG_GET_LAWC_USER_VAR_2*/
854 sprintf(rname,"eng_get_lawc_user_var_2_");
855 eng_get_lawc_user_var_2=dlsym(userlibhandle,rname);
856 if (!eng_get_lawc_user_var_2) err=err+1;
857
858/* Routine ENG_SET_LAWC_USER_VAR_2*/
859 sprintf(rname,"eng_set_lawc_user_var_2_");
860 eng_set_lawc_user_var_2=dlsym(userlibhandle,rname);
861 if (!eng_set_lawc_user_var_2) err=err+1;
862
863
864 }
865
866/* Addtionnal interface calls with Newer SDKs */
867 if (*userlib_ver >=2102011230){
868/* Routine ENGINE_USER_CHECK*/
869 sprintf(rname,"engine_user_check_");
870 engine_user_check=dlsym(userlibhandle,rname);
871 if(engine_user_check) dlib_array[0]=1;
872/* Routine ENGINE_USER_FINALIZE*/
873 sprintf(rname,"engine_user_finalize_");
874 engine_user_finalize=dlsym(userlibhandle,rname);
875 if(engine_user_finalize) dlib_array[1]=1;
876/* Routine ENGINE_USER_INITIALIZE*/
877 sprintf(rname,"engine_user_initialize_");
878 engine_user_initialize=dlsym(userlibhandle,rname);
879 if(engine_user_initialize) dlib_array[2]=1;
880 }
881
882/* printf("err:%i\n",err);*/
883 if (err==0)*userlib_avail = 1;
884
885
886 }else{
887 *userlib_avail = 0;
888 }
889
890}
891#endif
892
893#endif
894
895/* --------------------------------- */
896/* User Material Laws 29-30-31 Brick */
897/* --------------------------------- */
898
899/* WINDOWS */
900void _FCALL ENG_USERLIB_SIGEPS(int* ilaw ,
901 int *NEL ,int* NUPARAM ,int* NUVAR ,int* NFUNC ,int* IFUNC ,
902 int* NPF ,my_real *TF ,my_real *TIME , my_real *TIMESTEP, my_real *UPARAM ,my_real *RHO0 ,
903 my_real *RHO ,my_real *VOLUME ,my_real *EINT ,my_real *EPSPXX ,my_real *EPSPYY ,my_real *EPSPZZ ,
904 my_real *EPSPXY ,my_real *EPSPYZ ,my_real *EPSPZX ,my_real *DEPSXX ,my_real *DEPSYY ,my_real *DEPSZZ ,
905 my_real *DEPSXY ,my_real *DEPSYZ ,my_real *DEPSZX ,my_real *EPSXX ,my_real *EPSYY ,my_real *EPSZZ ,
906 my_real *EPSXY ,my_real *EPSYZ ,my_real *EPSZX ,
907 my_real *IGOXX ,my_real *SIGOYY ,my_real *SIGOZZ ,my_real *SIGOXY ,my_real *SIGOYZ ,my_real *SIGOZX ,
908 my_real *SIGNXX ,my_real *SIGNYY ,my_real *SIGNZZ ,my_real *SIGNXY ,my_real *SIGNYZ ,my_real *SIGNZX ,
909 my_real *SIGVXX ,my_real *SIGVYY ,my_real *SIGVZZ ,my_real *SIGVXY ,my_real *SIGVYZ ,my_real *SIGVZX ,
910 my_real *SOUNDSP,my_real *VISCMAX,my_real *UVAR ,my_real *OFF )
911{
912 if(eng_sigeps){
913 (*eng_sigeps)(ilaw ,
914 NEL ,NUPARAM ,NUVAR ,NFUNC ,IFUNC ,
915 NPF ,TF ,TIME ,TIMESTEP ,UPARAM ,RHO0 ,
916 RHO ,VOLUME ,EINT ,EPSPXX ,EPSPYY ,EPSPZZ ,
917 EPSPXY ,EPSPYZ ,EPSPZX ,DEPSXX ,DEPSYY ,DEPSZZ ,
918 DEPSXY ,DEPSYZ ,DEPSZX ,EPSXX ,EPSYY ,EPSZZ ,
919 EPSXY ,EPSYZ ,EPSZX ,
920 IGOXX ,SIGOYY ,SIGOZZ ,SIGOXY ,SIGOYZ ,SIGOZX ,
921 SIGNXX ,SIGNYY ,SIGNZZ ,SIGNXY ,SIGNYZ ,SIGNZX ,
922 SIGVXX ,SIGVYY ,SIGVZZ ,SIGVXY ,SIGVYZ ,SIGVZX ,
923 SOUNDSP ,VISCMAX ,UVAR ,OFF );
924 }
925
926}
927
928
929/* LINUX */
930void eng_userlib_sigeps_(int* ilaw ,
931 int *NEL ,int* NUPARAM ,int* NUVAR ,int* NFUNC ,int* IFUNC ,
932 int* NPF ,my_real *TF ,my_real *TIME , my_real *TIMESTEP, my_real *UPARAM ,my_real *RHO0 ,
933 my_real *RHO ,my_real *VOLUME ,my_real *EINT ,my_real *EPSPXX ,my_real *EPSPYY ,my_real *EPSPZZ ,
934 my_real *EPSPXY ,my_real *EPSPYZ ,my_real *EPSPZX ,my_real *DEPSXX ,my_real *DEPSYY ,my_real *DEPSZZ ,
935 my_real *DEPSXY ,my_real *DEPSYZ ,my_real *DEPSZX ,my_real *EPSXX ,my_real *EPSYY ,my_real *EPSZZ ,
936 my_real *EPSXY ,my_real *EPSYZ ,my_real *EPSZX ,
937 my_real *IGOXX ,my_real *SIGOYY ,my_real *SIGOZZ ,my_real *SIGOXY ,my_real *SIGOYZ ,my_real *SIGOZX ,
938 my_real *SIGNXX ,my_real *SIGNYY ,my_real *SIGNZZ ,my_real *SIGNXY ,my_real *SIGNYZ ,my_real *SIGNZX ,
939 my_real *SIGVXX ,my_real *SIGVYY ,my_real *SIGVZZ ,my_real *SIGVXY ,my_real *SIGVYZ ,my_real *SIGVZX ,
940 my_real *SOUNDSP,my_real *VISCMAX,my_real *UVAR ,my_real *OFF )
941{
942 if(eng_sigeps){
943 (*eng_sigeps)(ilaw ,
944 NEL ,NUPARAM ,NUVAR ,NFUNC ,IFUNC ,
945 NPF ,TF ,TIME ,TIMESTEP ,UPARAM ,RHO0 ,
946 RHO ,VOLUME ,EINT ,EPSPXX ,EPSPYY ,EPSPZZ ,
947 EPSPXY ,EPSPYZ ,EPSPZX ,DEPSXX ,DEPSYY ,DEPSZZ ,
948 DEPSXY ,DEPSYZ ,DEPSZX ,EPSXX ,EPSYY ,EPSZZ ,
949 EPSXY ,EPSYZ ,EPSZX ,
950 IGOXX ,SIGOYY ,SIGOZZ ,SIGOXY ,SIGOYZ ,SIGOZX ,
951 SIGNXX ,SIGNYY ,SIGNZZ ,SIGNXY ,SIGNYZ ,SIGNZX ,
952 SIGVXX ,SIGVYY ,SIGVZZ ,SIGVXY ,SIGVYZ ,SIGVZX ,
953 SOUNDSP ,VISCMAX ,UVAR ,OFF );
954 }
955
956}
957
958
959
960/* --------------------------------- */
961/* User Material Laws 29-30-31 Shell */
962/* --------------------------------- */
963
964/* WINDOWS */
965void _FCALL ENG_USERLIB_SIGEPSC(int* ilaw ,
966 int* NEL ,int*NUPARAM ,int*NUVAR ,int*NFUNC ,int*IFUNC ,
967 int*NPF ,int*NPT ,int*IPT ,int*IFLAG ,
968 my_real *TF ,my_real *TIME ,my_real *TIMESTEP , my_real *UPARAM , my_real *RHO0 ,
969 my_real *AREA ,my_real *EINT ,my_real *THKLY ,
970 my_real *EPSPXX ,my_real *EPSPYY ,my_real *EPSPXY ,my_real *EPSPYZ ,my_real *EPSPZX ,
971 my_real *DEPSXX ,my_real *DEPSYY ,my_real *DEPSXY ,my_real *DEPSYZ ,my_real *DEPSZX ,
972 my_real *EPSXX ,my_real *EPSYY ,my_real *EPSXY ,my_real *EPSYZ ,my_real *EPSZX ,
973 my_real *SIGOXX ,my_real *SIGOYY ,my_real *SIGOXY ,my_real *SIGOYZ ,my_real *SIGOZX ,
974 my_real *SIGNXX ,my_real *SIGNYY ,my_real *SIGNXY ,my_real *SIGNYZ ,my_real *SIGNZX ,
975 my_real *SIGVXX ,my_real *SIGVYY ,my_real *SIGVXY ,my_real *SIGVYZ ,my_real *SIGVZX ,
976 my_real *SOUNDSP,my_real *VISCMAX,my_real *THK ,my_real *PLA ,my_real *UVAR ,
977 my_real *OFF ,int *NGL ,int *SHF){
978
979 if(eng_sigepsc){
980 (*eng_sigepsc)(ilaw ,
981 NEL ,NUPARAM ,NUVAR ,NFUNC ,IFUNC ,
982 NPF ,NPT ,IPT ,IFLAG ,
983 TF ,TIME ,TIMESTEP ,UPARAM ,RHO0 ,
984 AREA ,EINT ,THKLY ,
985 EPSPXX ,EPSPYY ,EPSPXY ,EPSPYZ ,EPSPZX ,
986 DEPSXX ,DEPSYY ,DEPSXY ,DEPSYZ ,DEPSZX ,
987 EPSXX ,EPSYY ,EPSXY ,EPSYZ ,EPSZX ,
988 SIGOXX ,SIGOYY ,SIGOXY ,SIGOYZ ,SIGOZX ,
989 SIGNXX ,SIGNYY ,SIGNXY ,SIGNYZ ,SIGNZX ,
990 SIGVXX ,SIGVYY ,SIGVXY ,SIGVYZ ,SIGVZX ,
991 SOUNDSP,VISCMAX,THK ,PLA ,UVAR ,
992 OFF ,NGL ,SHF);
993 }
994
995}
996
997
998/* LINUX */
999void eng_userlib_sigepsc_(int* ilaw ,
1000 int* NEL ,int*NUPARAM ,int*NUVAR ,int*NFUNC ,int*IFUNC ,
1001 int*NPF ,int*NPT ,int*IPT ,int*IFLAG ,
1002 my_real *TF ,my_real *TIME ,my_real *TIMESTEP , my_real *UPARAM , my_real *RHO0 ,
1003 my_real *AREA ,my_real *EINT ,my_real *THKLY ,
1004 my_real *EPSPXX ,my_real *EPSPYY ,my_real *EPSPXY ,my_real *EPSPYZ ,my_real *EPSPZX ,
1005 my_real *DEPSXX ,my_real *DEPSYY ,my_real *DEPSXY ,my_real *DEPSYZ ,my_real *DEPSZX ,
1006 my_real *EPSXX ,my_real *EPSYY ,my_real *EPSXY ,my_real *EPSYZ ,my_real *EPSZX ,
1007 my_real *SIGOXX ,my_real *SIGOYY ,my_real *SIGOXY ,my_real *SIGOYZ ,my_real *SIGOZX ,
1008 my_real *SIGNXX ,my_real *SIGNYY ,my_real *SIGNXY ,my_real *SIGNYZ ,my_real *SIGNZX ,
1009 my_real *SIGVXX ,my_real *SIGVYY ,my_real *SIGVXY ,my_real *SIGVYZ ,my_real *SIGVZX ,
1010 my_real *SOUNDSP,my_real *VISCMAX,my_real *THK ,my_real *PLA ,my_real *UVAR ,
1011 my_real *OFF ,int *NGL ,int *SHF){
1012
1013 if(eng_sigepsc){
1014 (*eng_sigepsc)(ilaw ,
1015 NEL ,NUPARAM ,NUVAR ,NFUNC ,IFUNC ,
1016 NPF ,NPT ,IPT ,IFLAG ,
1017 TF ,TIME ,TIMESTEP ,UPARAM ,RHO0 ,
1018 AREA ,EINT ,THKLY ,
1019 EPSPXX ,EPSPYY ,EPSPXY ,EPSPYZ ,EPSPZX ,
1020 DEPSXX ,DEPSYY ,DEPSXY ,DEPSYZ ,DEPSZX ,
1021 EPSXX ,EPSYY ,EPSXY ,EPSYZ ,EPSZX ,
1022 SIGOXX ,SIGOYY ,SIGOXY ,SIGOYZ ,SIGOZX ,
1023 SIGNXX ,SIGNYY ,SIGNXY ,SIGNYZ ,SIGNZX ,
1024 SIGVXX ,SIGVYY ,SIGVXY ,SIGVYZ ,SIGVZX ,
1025 SOUNDSP,VISCMAX,THK ,PLA ,UVAR ,
1026 OFF ,NGL ,SHF);
1027 }
1028}
1029
1030/* --------------------------------- */
1031/* User Material law 1-99 SHELL */
1032/* --------------------------------- */
1033
1034/* ------------------- */
1035/* WINDOWS - SIGEPS99C */
1036/* ------------------- */
1037void _FCALL ENG_USERLIB_SIGEPS99C(int*NEL ,int*NUPARAM ,int*NUVAR ,int*ILAW_USER ,int*NFUNC ,
1038 int*IFUNC ,int *NPF ,int*NGL ,my_real *TF ,my_real *TIME ,
1039 my_real *TIMESTEP ,my_real *UPARAM ,my_real *RHO ,my_real *AREA ,my_real *EINT ,
1040 my_real *SHF ,my_real *SOUNDSP ,my_real *VISCMAX ,my_real *PLA ,my_real *UVAR ,
1041 my_real *OFF ,my_real *SIGY ){
1042
1043 if (eng_sigeps99c){
1044 (eng_sigeps99c)( NEL ,NUPARAM ,NUVAR ,ILAW_USER ,NFUNC ,
1045 IFUNC ,NPF ,NGL ,TF ,TIME ,
1046 TIMESTEP ,UPARAM ,RHO ,AREA ,EINT ,
1047 SHF ,SOUNDSP ,VISCMAX,PLA ,UVAR ,
1048 OFF ,SIGY );
1049 }
1050}
1051
1052/* ----------------- */
1053/* LINUX - SIGEPS99C */
1054/* ----------------- */
1055void eng_userlib_sigeps99c_(int*NEL ,int*NUPARAM ,int*NUVAR ,int*ILAW_USER ,int*NFUNC ,
1056 int*IFUNC ,int*NPF ,int*NGL ,my_real *TF ,my_real *TIME ,
1057 my_real *TIMESTEP ,my_real *UPARAM ,my_real *RHO ,my_real *AREA ,my_real *EINT ,
1058 my_real *SHF ,my_real *SOUNDSP ,my_real *VISCMAX ,my_real *PLA ,my_real *UVAR ,
1059 my_real *OFF ,my_real *SIGY ){
1060
1061 if (eng_sigeps99c){
1062 (eng_sigeps99c)( NEL ,NUPARAM ,NUVAR ,ILAW_USER ,NFUNC ,
1063 IFUNC ,NPF ,NGL ,TF ,TIME ,
1064 TIMESTEP ,UPARAM ,RHO ,AREA ,EINT ,
1065 SHF ,SOUNDSP ,VISCMAX,PLA ,UVAR ,
1066 OFF ,SIGY );
1067 }
1068}
1069
1070
1071void _FCALL ENG_USERLIB_GET_LAWC_VAR( int*NCYCLE, int*IMAT, int*ILAYER, int*NPTA, int*IFLAG,
1072 my_real* R11, my_real*R12, my_real*R13, my_real*R21, my_real*R22,
1073 my_real* R23, my_real*R31, my_real*R32, my_real*R33, my_real*SIGOXX,
1074 my_real* SIGOYY, my_real*SIGOXY, my_real*SIGOYZ, my_real*SIGOZX, my_real*EPSPXX,
1075 my_real* EPSPYY, my_real*EPSPXY, my_real*EPSPYZ, my_real*EPSPZX, my_real*EPSXX,
1076 my_real* EPSYY, my_real*EPSXY, my_real*EPSYZ, my_real*EPSZX, my_real*DEPSXX,
1077 my_real* DEPSYY, my_real*DEPSXY, my_real*DEPSYZ, my_real*DEPSZX, my_real*THKLYL,
1078 my_real* THKN, my_real*SIGNXX, my_real*SIGNYY, my_real*SIGNXY, my_real*SIGNYZ,
1079 my_real* SIGNZX, my_real*SIGVXX, my_real*SIGVYY, my_real*SIGVXY, my_real*SIGVYZ,
1080 my_real* SIGVZX, my_real*DPLA ){
1081 if (eng_get_lawc_user_var){
1082 (eng_get_lawc_user_var)( NCYCLE, IMAT, ILAYER, NPTA, IFLAG,
1083 R11, R12, R13, R21, R22,
1084 R23, R31, R32, R33, SIGOXX,
1085 SIGOYY, SIGOXY, SIGOYZ, SIGOZX, EPSPXX,
1086 EPSPYY, EPSPXY, EPSPYZ, EPSPZX, EPSXX,
1087 EPSYY, EPSXY, EPSYZ, EPSZX, DEPSXX,
1088 DEPSYY, DEPSXY, DEPSYZ, DEPSZX, THKLYL,
1089 THKN, SIGNXX, SIGNYY, SIGNXY, SIGNYZ,
1090 SIGNZX, SIGVXX, SIGVYY, SIGVXY, SIGVYZ,
1091 SIGVZX, DPLA ); }
1092}
1093
1094
1095void eng_userlib_get_lawc_var_( int*NCYCLE, int*IMAT, int*ILAYER, int*NPTA, int*IFLAG,
1096 my_real* R11, my_real*R12, my_real*R13, my_real*R21, my_real*R22,
1097 my_real* R23, my_real*R31, my_real*R32, my_real*R33, my_real*SIGOXX,
1098 my_real* SIGOYY, my_real*SIGOXY, my_real*SIGOYZ, my_real*SIGOZX, my_real*EPSPXX,
1099 my_real* EPSPYY, my_real*EPSPXY, my_real*EPSPYZ, my_real*EPSPZX, my_real*EPSXX,
1100 my_real* EPSYY, my_real*EPSXY, my_real*EPSYZ, my_real*EPSZX, my_real*DEPSXX,
1101 my_real* DEPSYY, my_real*DEPSXY, my_real*DEPSYZ, my_real*DEPSZX, my_real*THKLYL,
1102 my_real* THKN, my_real*SIGNXX, my_real*SIGNYY, my_real*SIGNXY, my_real*SIGNYZ,
1103 my_real* SIGNZX, my_real*SIGVXX, my_real*SIGVYY, my_real*SIGVXY, my_real*SIGVYZ,
1104 my_real* SIGVZX, my_real*DPLA ){
1105 if (eng_get_lawc_user_var){
1106 (eng_get_lawc_user_var)( NCYCLE, IMAT, ILAYER, NPTA, IFLAG,
1107 R11, R12, R13, R21, R22,
1108 R23, R31, R32, R33, SIGOXX,
1109 SIGOYY, SIGOXY, SIGOYZ, SIGOZX, EPSPXX,
1110 EPSPYY, EPSPXY, EPSPYZ, EPSPZX, EPSXX,
1111 EPSYY, EPSXY, EPSYZ, EPSZX, DEPSXX,
1112 DEPSYY, DEPSXY, DEPSYZ, DEPSZX, THKLYL,
1113 THKN, SIGNXX, SIGNYY, SIGNXY, SIGNYZ,
1114 SIGNZX, SIGVXX, SIGVYY, SIGVXY, SIGVYZ,
1115 SIGVZX, DPLA ); }
1116}
1117
1118
1119
1120void eng_userlib_get_lawc_var_2_(my_real* VAR01,int*SIZVAR01,my_real* VAR02,int*SIZVAR02,
1121 my_real* VAR03,int*SIZVAR03,my_real* VAR04,int*SIZVAR04,my_real* VAR05,int*SIZVAR05,my_real* VAR06,int*SIZVAR06,
1122 my_real* VAR07,int*SIZVAR07,my_real* VAR08,int*SIZVAR08,my_real* VAR09,int*SIZVAR09,my_real* VAR10,int*SIZVAR10,
1123 my_real* VAR11,int*SIZVAR11,my_real* VAR12,int*SIZVAR12,my_real* VAR13,int*SIZVAR13,my_real* VAR14,int*SIZVAR14,
1124 my_real* VAR15,int*SIZVAR15,my_real* VAR16,int*SIZVAR16,my_real* VAR17,int*SIZVAR17,my_real* VAR18,int*SIZVAR18,
1125 my_real* VAR19,int*SIZVAR19,my_real* VAR20,int*SIZVAR20,my_real* VAR21,int*SIZVAR21,my_real* VAR22,int*SIZVAR22,
1126 my_real* VAR23,int*SIZVAR23,my_real* VAR24,int*SIZVAR24,my_real* VAR25,int*SIZVAR25,my_real* VAR26,int*SIZVAR26,
1127 my_real* VAR27,int*SIZVAR27,my_real* VAR28,int*SIZVAR28,my_real* VAR29,int*SIZVAR29,my_real* VAR30,int*SIZVAR30,
1128 my_real* VAR31,int*SIZVAR31,my_real* VAR32,int*SIZVAR32,my_real* VAR33,int*SIZVAR33,my_real* VAR34,int*SIZVAR34,
1129 my_real* VAR35,int*SIZVAR35,my_real* VAR36,int*SIZVAR36,my_real* VAR37,int*SIZVAR37,my_real* VAR38,int*SIZVAR38,
1130 my_real* VAR39,int*SIZVAR39,my_real* VAR40,int*SIZVAR40,my_real* VAR41,int*SIZVAR41,my_real* VAR42,int*SIZVAR42,
1131 my_real* VAR43,int*SIZVAR43,my_real* VAR44,int*SIZVAR44,my_real* VAR45,int*SIZVAR45,my_real* VAR46,int*SIZVAR46,
1132 my_real* VAR47,int*SIZVAR47,my_real* VAR48,int*SIZVAR48,my_real* VAR49,int*SIZVAR49,my_real* VAR50,int*SIZVAR50,
1133 my_real* VAR51,int*SIZVAR51,my_real* VAR52,int*SIZVAR52,my_real* VAR53,int*SIZVAR53,my_real* VAR54,int*SIZVAR54,
1134 my_real* VAR55,int*SIZVAR55,my_real* VAR56,int*SIZVAR56,my_real* VAR57,int*SIZVAR57,my_real* VAR58,int*SIZVAR58,
1135 my_real* VAR59,int*SIZVAR59,my_real* VAR60,int*SIZVAR60,my_real* VAR61,int*SIZVAR61,my_real* VAR62,int*SIZVAR62,
1136 my_real* VAR63,int*SIZVAR63,my_real* VAR64,int*SIZVAR64,my_real* VAR65,int*SIZVAR65,my_real* VAR66,int*SIZVAR66,
1137 my_real* VAR67,int*SIZVAR67,my_real* VAR68,int*SIZVAR68,my_real* VAR69,int*SIZVAR69,my_real* VAR70,int*SIZVAR70,
1138 my_real* VAR71,int*SIZVAR72,my_real* VAR73,int*SIZVAR73,my_real* VAR74,int*SIZVAR74,my_real* VAR75,int*SIZVAR75,
1139 my_real* VAR76,int*SIZVAR76,my_real* VAR77,int*SIZVAR77,my_real* VAR78,int*SIZVAR78,my_real* VAR79,int*SIZVAR79,
1140 my_real* VAR80,int*SIZVAR80,my_real* VAR81,int*SIZVAR81,my_real* VAR82,int*SIZVAR82,my_real* VAR83,int*SIZVAR83,
1141 my_real* VAR84,int*SIZVAR84,my_real* VAR85,int*SIZVAR85,my_real* VAR86,int*SIZVAR86,my_real* VAR87,int*SIZVAR87,
1142 my_real* VAR88,int*SIZVAR88,my_real* VAR89,int*SIZVAR89,my_real* VAR90,int*SIZVAR90,my_real* VAR91,int*SIZVAR91,
1143 my_real* VAR92,int*SIZVAR92,my_real* VAR93,int*SIZVAR93,my_real* VAR94,int*SIZVAR94,my_real* VAR95,int*SIZVAR95,
1144 my_real* VAR96,int*SIZVAR96,my_real* VAR97,int*SIZVAR97,my_real* VAR98,int*SIZVAR98,my_real* VAR99,int*SIZVAR99){
1145
1146 if (eng_get_lawc_user_var_2){
1147 (eng_get_lawc_user_var_2) ( VAR01, SIZVAR01, VAR02, SIZVAR02,
1148 VAR03,SIZVAR03,VAR04,SIZVAR04,VAR05,SIZVAR05,VAR06,SIZVAR06,
1149 VAR07,SIZVAR07,VAR08,SIZVAR08,VAR09,SIZVAR09,VAR10,SIZVAR10,
1150 VAR11,SIZVAR11,VAR12,SIZVAR12,VAR13,SIZVAR13,VAR14,SIZVAR14,
1151 VAR15,SIZVAR15,VAR16,SIZVAR16,VAR17,SIZVAR17,VAR18,SIZVAR18,
1152 VAR19,SIZVAR19,VAR20,SIZVAR20,VAR21,SIZVAR21,VAR22,SIZVAR22,
1153 VAR23,SIZVAR23,VAR24,SIZVAR24,VAR25,SIZVAR25,VAR26,SIZVAR26,
1154 VAR27,SIZVAR27,VAR28,SIZVAR28,VAR29,SIZVAR29,VAR30,SIZVAR30,
1155 VAR31,SIZVAR31,VAR32,SIZVAR32,VAR33,SIZVAR33,VAR34,SIZVAR34,
1156 VAR35,SIZVAR35,VAR36,SIZVAR36,VAR37,SIZVAR37,VAR38,SIZVAR38,
1157 VAR39,SIZVAR39,VAR40,SIZVAR40,VAR41,SIZVAR41,VAR42,SIZVAR42,
1158 VAR43,SIZVAR43,VAR44,SIZVAR44,VAR45,SIZVAR45,VAR46,SIZVAR46,
1159 VAR47,SIZVAR47,VAR48,SIZVAR48,VAR49,SIZVAR49,VAR50,SIZVAR50,
1160 VAR51,SIZVAR51,VAR52,SIZVAR52,VAR53,SIZVAR53,VAR54,SIZVAR54,
1161 VAR55,SIZVAR55,VAR56,SIZVAR56,VAR57,SIZVAR57,VAR58,SIZVAR58,
1162 VAR59,SIZVAR59,VAR60,SIZVAR60,VAR61,SIZVAR61,VAR62,SIZVAR62,
1163 VAR63,SIZVAR63,VAR64,SIZVAR64,VAR65,SIZVAR65,VAR66,SIZVAR66,
1164 VAR67,SIZVAR67,VAR68,SIZVAR68,VAR69,SIZVAR69,VAR70,SIZVAR70,
1165 VAR71,SIZVAR72,VAR73,SIZVAR73,VAR74,SIZVAR74,VAR75,SIZVAR75,
1166 VAR76,SIZVAR76,VAR77,SIZVAR77,VAR78,SIZVAR78,VAR79,SIZVAR79,
1167 VAR80,SIZVAR80,VAR81,SIZVAR81,VAR82,SIZVAR82,VAR83,SIZVAR83,
1168 VAR84,SIZVAR84,VAR85,SIZVAR85,VAR86,SIZVAR86,VAR87,SIZVAR87,
1169 VAR88,SIZVAR88,VAR89,SIZVAR89,VAR90,SIZVAR90,VAR91,SIZVAR91,
1170 VAR92,SIZVAR92,VAR93,SIZVAR93,VAR94,SIZVAR94,VAR95,SIZVAR95,
1171 VAR96,SIZVAR96,VAR97,SIZVAR97,VAR98,SIZVAR98,VAR99,SIZVAR99);
1172 }
1173 }
1174
1175
1176void _FCALL ENG_USERLIB_GET_LAWC_VAR_2(my_real* VAR01,int*SIZVAR01,my_real* VAR02,int*SIZVAR02,
1177 my_real* VAR03,int*SIZVAR03,my_real* VAR04,int*SIZVAR04,my_real* VAR05,int*SIZVAR05,my_real* VAR06,int*SIZVAR06,
1178 my_real* VAR07,int*SIZVAR07,my_real* VAR08,int*SIZVAR08,my_real* VAR09,int*SIZVAR09,my_real* VAR10,int*SIZVAR10,
1179 my_real* VAR11,int*SIZVAR11,my_real* VAR12,int*SIZVAR12,my_real* VAR13,int*SIZVAR13,my_real* VAR14,int*SIZVAR14,
1180 my_real* VAR15,int*SIZVAR15,my_real* VAR16,int*SIZVAR16,my_real* VAR17,int*SIZVAR17,my_real* VAR18,int*SIZVAR18,
1181 my_real* VAR19,int*SIZVAR19,my_real* VAR20,int*SIZVAR20,my_real* VAR21,int*SIZVAR21,my_real* VAR22,int*SIZVAR22,
1182 my_real* VAR23,int*SIZVAR23,my_real* VAR24,int*SIZVAR24,my_real* VAR25,int*SIZVAR25,my_real* VAR26,int*SIZVAR26,
1183 my_real* VAR27,int*SIZVAR27,my_real* VAR28,int*SIZVAR28,my_real* VAR29,int*SIZVAR29,my_real* VAR30,int*SIZVAR30,
1184 my_real* VAR31,int*SIZVAR31,my_real* VAR32,int*SIZVAR32,my_real* VAR33,int*SIZVAR33,my_real* VAR34,int*SIZVAR34,
1185 my_real* VAR35,int*SIZVAR35,my_real* VAR36,int*SIZVAR36,my_real* VAR37,int*SIZVAR37,my_real* VAR38,int*SIZVAR38,
1186 my_real* VAR39,int*SIZVAR39,my_real* VAR40,int*SIZVAR40,my_real* VAR41,int*SIZVAR41,my_real* VAR42,int*SIZVAR42,
1187 my_real* VAR43,int*SIZVAR43,my_real* VAR44,int*SIZVAR44,my_real* VAR45,int*SIZVAR45,my_real* VAR46,int*SIZVAR46,
1188 my_real* VAR47,int*SIZVAR47,my_real* VAR48,int*SIZVAR48,my_real* VAR49,int*SIZVAR49,my_real* VAR50,int*SIZVAR50,
1189 my_real* VAR51,int*SIZVAR51,my_real* VAR52,int*SIZVAR52,my_real* VAR53,int*SIZVAR53,my_real* VAR54,int*SIZVAR54,
1190 my_real* VAR55,int*SIZVAR55,my_real* VAR56,int*SIZVAR56,my_real* VAR57,int*SIZVAR57,my_real* VAR58,int*SIZVAR58,
1191 my_real* VAR59,int*SIZVAR59,my_real* VAR60,int*SIZVAR60,my_real* VAR61,int*SIZVAR61,my_real* VAR62,int*SIZVAR62,
1192 my_real* VAR63,int*SIZVAR63,my_real* VAR64,int*SIZVAR64,my_real* VAR65,int*SIZVAR65,my_real* VAR66,int*SIZVAR66,
1193 my_real* VAR67,int*SIZVAR67,my_real* VAR68,int*SIZVAR68,my_real* VAR69,int*SIZVAR69,my_real* VAR70,int*SIZVAR70,
1194 my_real* VAR71,int*SIZVAR72,my_real* VAR73,int*SIZVAR73,my_real* VAR74,int*SIZVAR74,my_real* VAR75,int*SIZVAR75,
1195 my_real* VAR76,int*SIZVAR76,my_real* VAR77,int*SIZVAR77,my_real* VAR78,int*SIZVAR78,my_real* VAR79,int*SIZVAR79,
1196 my_real* VAR80,int*SIZVAR80,my_real* VAR81,int*SIZVAR81,my_real* VAR82,int*SIZVAR82,my_real* VAR83,int*SIZVAR83,
1197 my_real* VAR84,int*SIZVAR84,my_real* VAR85,int*SIZVAR85,my_real* VAR86,int*SIZVAR86,my_real* VAR87,int*SIZVAR87,
1198 my_real* VAR88,int*SIZVAR88,my_real* VAR89,int*SIZVAR89,my_real* VAR90,int*SIZVAR90,my_real* VAR91,int*SIZVAR91,
1199 my_real* VAR92,int*SIZVAR92,my_real* VAR93,int*SIZVAR93,my_real* VAR94,int*SIZVAR94,my_real* VAR95,int*SIZVAR95,
1200 my_real* VAR96,int*SIZVAR96,my_real* VAR97,int*SIZVAR97,my_real* VAR98,int*SIZVAR98,my_real* VAR99,int*SIZVAR99){
1201
1202 if (eng_get_lawc_user_var_2){
1203 (eng_get_lawc_user_var_2) ( VAR01, SIZVAR01, VAR02, SIZVAR02,
1204 VAR03,SIZVAR03,VAR04,SIZVAR04,VAR05,SIZVAR05,VAR06,SIZVAR06,
1205 VAR07,SIZVAR07,VAR08,SIZVAR08,VAR09,SIZVAR09,VAR10,SIZVAR10,
1206 VAR11,SIZVAR11,VAR12,SIZVAR12,VAR13,SIZVAR13,VAR14,SIZVAR14,
1207 VAR15,SIZVAR15,VAR16,SIZVAR16,VAR17,SIZVAR17,VAR18,SIZVAR18,
1208 VAR19,SIZVAR19,VAR20,SIZVAR20,VAR21,SIZVAR21,VAR22,SIZVAR22,
1209 VAR23,SIZVAR23,VAR24,SIZVAR24,VAR25,SIZVAR25,VAR26,SIZVAR26,
1210 VAR27,SIZVAR27,VAR28,SIZVAR28,VAR29,SIZVAR29,VAR30,SIZVAR30,
1211 VAR31,SIZVAR31,VAR32,SIZVAR32,VAR33,SIZVAR33,VAR34,SIZVAR34,
1212 VAR35,SIZVAR35,VAR36,SIZVAR36,VAR37,SIZVAR37,VAR38,SIZVAR38,
1213 VAR39,SIZVAR39,VAR40,SIZVAR40,VAR41,SIZVAR41,VAR42,SIZVAR42,
1214 VAR43,SIZVAR43,VAR44,SIZVAR44,VAR45,SIZVAR45,VAR46,SIZVAR46,
1215 VAR47,SIZVAR47,VAR48,SIZVAR48,VAR49,SIZVAR49,VAR50,SIZVAR50,
1216 VAR51,SIZVAR51,VAR52,SIZVAR52,VAR53,SIZVAR53,VAR54,SIZVAR54,
1217 VAR55,SIZVAR55,VAR56,SIZVAR56,VAR57,SIZVAR57,VAR58,SIZVAR58,
1218 VAR59,SIZVAR59,VAR60,SIZVAR60,VAR61,SIZVAR61,VAR62,SIZVAR62,
1219 VAR63,SIZVAR63,VAR64,SIZVAR64,VAR65,SIZVAR65,VAR66,SIZVAR66,
1220 VAR67,SIZVAR67,VAR68,SIZVAR68,VAR69,SIZVAR69,VAR70,SIZVAR70,
1221 VAR71,SIZVAR72,VAR73,SIZVAR73,VAR74,SIZVAR74,VAR75,SIZVAR75,
1222 VAR76,SIZVAR76,VAR77,SIZVAR77,VAR78,SIZVAR78,VAR79,SIZVAR79,
1223 VAR80,SIZVAR80,VAR81,SIZVAR81,VAR82,SIZVAR82,VAR83,SIZVAR83,
1224 VAR84,SIZVAR84,VAR85,SIZVAR85,VAR86,SIZVAR86,VAR87,SIZVAR87,
1225 VAR88,SIZVAR88,VAR89,SIZVAR89,VAR90,SIZVAR90,VAR91,SIZVAR91,
1226 VAR92,SIZVAR92,VAR93,SIZVAR93,VAR94,SIZVAR94,VAR95,SIZVAR95,
1227 VAR96,SIZVAR96,VAR97,SIZVAR97,VAR98,SIZVAR98,VAR99,SIZVAR99);
1228 }
1229 }
1230
1231void _FCALL ENG_USERLIB_SET_LAWC( my_real *SIGNXX, my_real *SIGNYY, my_real *SIGNXY, my_real *SIGNYZ, my_real *SIGNZX,
1232 my_real *SIGVXX, my_real *SIGVYY, my_real *SIGVXY, my_real *SIGVYZ, my_real *SIGVZX,
1233 my_real* DPLA, my_real *ETSE, my_real* THKN ){
1234 if (eng_set_lawc_user_var){
1235 (eng_set_lawc_user_var)( SIGNXX, SIGNYY, SIGNXY, SIGNYZ, SIGNZX,
1236 SIGVXX, SIGVYY, SIGVXY, SIGVYZ, SIGVZX,
1237 DPLA, ETSE, THKN ); }
1238}
1239
1240void eng_userlib_set_lawc_ ( my_real*SIGNXX, my_real*SIGNYY, my_real*SIGNXY, my_real* SIGNYZ, my_real*SIGNZX,
1241 my_real* SIGVXX, my_real*SIGVYY, my_real*SIGVXY, my_real*SIGVYZ, my_real*SIGVZX,
1242 my_real* DPLA, my_real*ETSE, my_real* THKN ){
1243 if (eng_set_lawc_user_var){
1244 (eng_set_lawc_user_var)( SIGNXX, SIGNYY, SIGNXY, SIGNYZ, SIGNZX,
1245 SIGVXX, SIGVYY, SIGVXY, SIGVYZ, SIGVZX,
1246 DPLA, ETSE, THKN ); }
1247}
1248
1249void _FCALL ENG_USERLIB_SET_LAWC_VAR_2(my_real* VAR01,int*SIZVAR01,my_real* VAR02,int*SIZVAR02,
1250 my_real* VAR03,int*SIZVAR03,my_real* VAR04,int*SIZVAR04,my_real* VAR05,int*SIZVAR05,my_real* VAR06,int*SIZVAR06,
1251 my_real* VAR07,int*SIZVAR07,my_real* VAR08,int*SIZVAR08,my_real* VAR09,int*SIZVAR09,my_real* VAR10,int*SIZVAR10,
1252 my_real* VAR11,int*SIZVAR11,my_real* VAR12,int*SIZVAR12,my_real* VAR13,int*SIZVAR13,my_real* VAR14,int*SIZVAR14,
1253 my_real* VAR15,int*SIZVAR15,my_real* VAR16,int*SIZVAR16,my_real* VAR17,int*SIZVAR17,my_real* VAR18,int*SIZVAR18,
1254 my_real* VAR19,int*SIZVAR19,my_real* VAR20,int*SIZVAR20,my_real* VAR21,int*SIZVAR21,my_real* VAR22,int*SIZVAR22,
1255 my_real* VAR23,int*SIZVAR23,my_real* VAR24,int*SIZVAR24,my_real* VAR25,int*SIZVAR25,my_real* VAR26,int*SIZVAR26,
1256 my_real* VAR27,int*SIZVAR27,my_real* VAR28,int*SIZVAR28,my_real* VAR29,int*SIZVAR29,my_real* VAR30,int*SIZVAR30,
1257 my_real* VAR31,int*SIZVAR31,my_real* VAR32,int*SIZVAR32,my_real* VAR33,int*SIZVAR33,my_real* VAR34,int*SIZVAR34,
1258 my_real* VAR35,int*SIZVAR35,my_real* VAR36,int*SIZVAR36,my_real* VAR37,int*SIZVAR37,my_real* VAR38,int*SIZVAR38,
1259 my_real* VAR39,int*SIZVAR39,my_real* VAR40,int*SIZVAR40,my_real* VAR41,int*SIZVAR41,my_real* VAR42,int*SIZVAR42,
1260 my_real* VAR43,int*SIZVAR43,my_real* VAR44,int*SIZVAR44,my_real* VAR45,int*SIZVAR45,my_real* VAR46,int*SIZVAR46,
1261 my_real* VAR47,int*SIZVAR47,my_real* VAR48,int*SIZVAR48,my_real* VAR49,int*SIZVAR49,my_real* VAR50,int*SIZVAR50,
1262 my_real* VAR51,int*SIZVAR51,my_real* VAR52,int*SIZVAR52,my_real* VAR53,int*SIZVAR53,my_real* VAR54,int*SIZVAR54,
1263 my_real* VAR55,int*SIZVAR55,my_real* VAR56,int*SIZVAR56,my_real* VAR57,int*SIZVAR57,my_real* VAR58,int*SIZVAR58,
1264 my_real* VAR59,int*SIZVAR59,my_real* VAR60,int*SIZVAR60,my_real* VAR61,int*SIZVAR61,my_real* VAR62,int*SIZVAR62,
1265 my_real* VAR63,int*SIZVAR63,my_real* VAR64,int*SIZVAR64,my_real* VAR65,int*SIZVAR65,my_real* VAR66,int*SIZVAR66,
1266 my_real* VAR67,int*SIZVAR67,my_real* VAR68,int*SIZVAR68,my_real* VAR69,int*SIZVAR69,my_real* VAR70,int*SIZVAR70,
1267 my_real* VAR71,int*SIZVAR72,my_real* VAR73,int*SIZVAR73,my_real* VAR74,int*SIZVAR74,my_real* VAR75,int*SIZVAR75,
1268 my_real* VAR76,int*SIZVAR76,my_real* VAR77,int*SIZVAR77,my_real* VAR78,int*SIZVAR78,my_real* VAR79,int*SIZVAR79,
1269 my_real* VAR80,int*SIZVAR80,my_real* VAR81,int*SIZVAR81,my_real* VAR82,int*SIZVAR82,my_real* VAR83,int*SIZVAR83,
1270 my_real* VAR84,int*SIZVAR84,my_real* VAR85,int*SIZVAR85,my_real* VAR86,int*SIZVAR86,my_real* VAR87,int*SIZVAR87,
1271 my_real* VAR88,int*SIZVAR88,my_real* VAR89,int*SIZVAR89,my_real* VAR90,int*SIZVAR90,my_real* VAR91,int*SIZVAR91,
1272 my_real* VAR92,int*SIZVAR92,my_real* VAR93,int*SIZVAR93,my_real* VAR94,int*SIZVAR94,my_real* VAR95,int*SIZVAR95,
1273 my_real* VAR96,int*SIZVAR96,my_real* VAR97,int*SIZVAR97,my_real* VAR98,int*SIZVAR98,my_real* VAR99,int*SIZVAR99){
1274
1275 if (eng_set_lawc_user_var_2){
1276 (eng_set_lawc_user_var_2) ( VAR01, SIZVAR01, VAR02, SIZVAR02,
1277 VAR03,SIZVAR03,VAR04,SIZVAR04,VAR05,SIZVAR05,VAR06,SIZVAR06,
1278 VAR07,SIZVAR07,VAR08,SIZVAR08,VAR09,SIZVAR09,VAR10,SIZVAR10,
1279 VAR11,SIZVAR11,VAR12,SIZVAR12,VAR13,SIZVAR13,VAR14,SIZVAR14,
1280 VAR15,SIZVAR15,VAR16,SIZVAR16,VAR17,SIZVAR17,VAR18,SIZVAR18,
1281 VAR19,SIZVAR19,VAR20,SIZVAR20,VAR21,SIZVAR21,VAR22,SIZVAR22,
1282 VAR23,SIZVAR23,VAR24,SIZVAR24,VAR25,SIZVAR25,VAR26,SIZVAR26,
1283 VAR27,SIZVAR27,VAR28,SIZVAR28,VAR29,SIZVAR29,VAR30,SIZVAR30,
1284 VAR31,SIZVAR31,VAR32,SIZVAR32,VAR33,SIZVAR33,VAR34,SIZVAR34,
1285 VAR35,SIZVAR35,VAR36,SIZVAR36,VAR37,SIZVAR37,VAR38,SIZVAR38,
1286 VAR39,SIZVAR39,VAR40,SIZVAR40,VAR41,SIZVAR41,VAR42,SIZVAR42,
1287 VAR43,SIZVAR43,VAR44,SIZVAR44,VAR45,SIZVAR45,VAR46,SIZVAR46,
1288 VAR47,SIZVAR47,VAR48,SIZVAR48,VAR49,SIZVAR49,VAR50,SIZVAR50,
1289 VAR51,SIZVAR51,VAR52,SIZVAR52,VAR53,SIZVAR53,VAR54,SIZVAR54,
1290 VAR55,SIZVAR55,VAR56,SIZVAR56,VAR57,SIZVAR57,VAR58,SIZVAR58,
1291 VAR59,SIZVAR59,VAR60,SIZVAR60,VAR61,SIZVAR61,VAR62,SIZVAR62,
1292 VAR63,SIZVAR63,VAR64,SIZVAR64,VAR65,SIZVAR65,VAR66,SIZVAR66,
1293 VAR67,SIZVAR67,VAR68,SIZVAR68,VAR69,SIZVAR69,VAR70,SIZVAR70,
1294 VAR71,SIZVAR72,VAR73,SIZVAR73,VAR74,SIZVAR74,VAR75,SIZVAR75,
1295 VAR76,SIZVAR76,VAR77,SIZVAR77,VAR78,SIZVAR78,VAR79,SIZVAR79,
1296 VAR80,SIZVAR80,VAR81,SIZVAR81,VAR82,SIZVAR82,VAR83,SIZVAR83,
1297 VAR84,SIZVAR84,VAR85,SIZVAR85,VAR86,SIZVAR86,VAR87,SIZVAR87,
1298 VAR88,SIZVAR88,VAR89,SIZVAR89,VAR90,SIZVAR90,VAR91,SIZVAR91,
1299 VAR92,SIZVAR92,VAR93,SIZVAR93,VAR94,SIZVAR94,VAR95,SIZVAR95,
1300 VAR96,SIZVAR96,VAR97,SIZVAR97,VAR98,SIZVAR98,VAR99,SIZVAR99);
1301 }
1302 }
1303
1304
1305void eng_userlib_set_lawc_var_2_(my_real* VAR01,int*SIZVAR01,my_real* VAR02,int*SIZVAR02,
1306 my_real* VAR03,int*SIZVAR03,my_real* VAR04,int*SIZVAR04,my_real* VAR05,int*SIZVAR05,my_real* VAR06,int*SIZVAR06,
1307 my_real* VAR07,int*SIZVAR07,my_real* VAR08,int*SIZVAR08,my_real* VAR09,int*SIZVAR09,my_real* VAR10,int*SIZVAR10,
1308 my_real* VAR11,int*SIZVAR11,my_real* VAR12,int*SIZVAR12,my_real* VAR13,int*SIZVAR13,my_real* VAR14,int*SIZVAR14,
1309 my_real* VAR15,int*SIZVAR15,my_real* VAR16,int*SIZVAR16,my_real* VAR17,int*SIZVAR17,my_real* VAR18,int*SIZVAR18,
1310 my_real* VAR19,int*SIZVAR19,my_real* VAR20,int*SIZVAR20,my_real* VAR21,int*SIZVAR21,my_real* VAR22,int*SIZVAR22,
1311 my_real* VAR23,int*SIZVAR23,my_real* VAR24,int*SIZVAR24,my_real* VAR25,int*SIZVAR25,my_real* VAR26,int*SIZVAR26,
1312 my_real* VAR27,int*SIZVAR27,my_real* VAR28,int*SIZVAR28,my_real* VAR29,int*SIZVAR29,my_real* VAR30,int*SIZVAR30,
1313 my_real* VAR31,int*SIZVAR31,my_real* VAR32,int*SIZVAR32,my_real* VAR33,int*SIZVAR33,my_real* VAR34,int*SIZVAR34,
1314 my_real* VAR35,int*SIZVAR35,my_real* VAR36,int*SIZVAR36,my_real* VAR37,int*SIZVAR37,my_real* VAR38,int*SIZVAR38,
1315 my_real* VAR39,int*SIZVAR39,my_real* VAR40,int*SIZVAR40,my_real* VAR41,int*SIZVAR41,my_real* VAR42,int*SIZVAR42,
1316 my_real* VAR43,int*SIZVAR43,my_real* VAR44,int*SIZVAR44,my_real* VAR45,int*SIZVAR45,my_real* VAR46,int*SIZVAR46,
1317 my_real* VAR47,int*SIZVAR47,my_real* VAR48,int*SIZVAR48,my_real* VAR49,int*SIZVAR49,my_real* VAR50,int*SIZVAR50,
1318 my_real* VAR51,int*SIZVAR51,my_real* VAR52,int*SIZVAR52,my_real* VAR53,int*SIZVAR53,my_real* VAR54,int*SIZVAR54,
1319 my_real* VAR55,int*SIZVAR55,my_real* VAR56,int*SIZVAR56,my_real* VAR57,int*SIZVAR57,my_real* VAR58,int*SIZVAR58,
1320 my_real* VAR59,int*SIZVAR59,my_real* VAR60,int*SIZVAR60,my_real* VAR61,int*SIZVAR61,my_real* VAR62,int*SIZVAR62,
1321 my_real* VAR63,int*SIZVAR63,my_real* VAR64,int*SIZVAR64,my_real* VAR65,int*SIZVAR65,my_real* VAR66,int*SIZVAR66,
1322 my_real* VAR67,int*SIZVAR67,my_real* VAR68,int*SIZVAR68,my_real* VAR69,int*SIZVAR69,my_real* VAR70,int*SIZVAR70,
1323 my_real* VAR71,int*SIZVAR72,my_real* VAR73,int*SIZVAR73,my_real* VAR74,int*SIZVAR74,my_real* VAR75,int*SIZVAR75,
1324 my_real* VAR76,int*SIZVAR76,my_real* VAR77,int*SIZVAR77,my_real* VAR78,int*SIZVAR78,my_real* VAR79,int*SIZVAR79,
1325 my_real* VAR80,int*SIZVAR80,my_real* VAR81,int*SIZVAR81,my_real* VAR82,int*SIZVAR82,my_real* VAR83,int*SIZVAR83,
1326 my_real* VAR84,int*SIZVAR84,my_real* VAR85,int*SIZVAR85,my_real* VAR86,int*SIZVAR86,my_real* VAR87,int*SIZVAR87,
1327 my_real* VAR88,int*SIZVAR88,my_real* VAR89,int*SIZVAR89,my_real* VAR90,int*SIZVAR90,my_real* VAR91,int*SIZVAR91,
1328 my_real* VAR92,int*SIZVAR92,my_real* VAR93,int*SIZVAR93,my_real* VAR94,int*SIZVAR94,my_real* VAR95,int*SIZVAR95,
1329 my_real* VAR96,int*SIZVAR96,my_real* VAR97,int*SIZVAR97,my_real* VAR98,int*SIZVAR98,my_real* VAR99,int*SIZVAR99){
1330
1331 if (eng_set_lawc_user_var_2){
1332 (eng_set_lawc_user_var_2) ( VAR01, SIZVAR01, VAR02, SIZVAR02,
1333 VAR03,SIZVAR03,VAR04,SIZVAR04,VAR05,SIZVAR05,VAR06,SIZVAR06,
1334 VAR07,SIZVAR07,VAR08,SIZVAR08,VAR09,SIZVAR09,VAR10,SIZVAR10,
1335 VAR11,SIZVAR11,VAR12,SIZVAR12,VAR13,SIZVAR13,VAR14,SIZVAR14,
1336 VAR15,SIZVAR15,VAR16,SIZVAR16,VAR17,SIZVAR17,VAR18,SIZVAR18,
1337 VAR19,SIZVAR19,VAR20,SIZVAR20,VAR21,SIZVAR21,VAR22,SIZVAR22,
1338 VAR23,SIZVAR23,VAR24,SIZVAR24,VAR25,SIZVAR25,VAR26,SIZVAR26,
1339 VAR27,SIZVAR27,VAR28,SIZVAR28,VAR29,SIZVAR29,VAR30,SIZVAR30,
1340 VAR31,SIZVAR31,VAR32,SIZVAR32,VAR33,SIZVAR33,VAR34,SIZVAR34,
1341 VAR35,SIZVAR35,VAR36,SIZVAR36,VAR37,SIZVAR37,VAR38,SIZVAR38,
1342 VAR39,SIZVAR39,VAR40,SIZVAR40,VAR41,SIZVAR41,VAR42,SIZVAR42,
1343 VAR43,SIZVAR43,VAR44,SIZVAR44,VAR45,SIZVAR45,VAR46,SIZVAR46,
1344 VAR47,SIZVAR47,VAR48,SIZVAR48,VAR49,SIZVAR49,VAR50,SIZVAR50,
1345 VAR51,SIZVAR51,VAR52,SIZVAR52,VAR53,SIZVAR53,VAR54,SIZVAR54,
1346 VAR55,SIZVAR55,VAR56,SIZVAR56,VAR57,SIZVAR57,VAR58,SIZVAR58,
1347 VAR59,SIZVAR59,VAR60,SIZVAR60,VAR61,SIZVAR61,VAR62,SIZVAR62,
1348 VAR63,SIZVAR63,VAR64,SIZVAR64,VAR65,SIZVAR65,VAR66,SIZVAR66,
1349 VAR67,SIZVAR67,VAR68,SIZVAR68,VAR69,SIZVAR69,VAR70,SIZVAR70,
1350 VAR71,SIZVAR72,VAR73,SIZVAR73,VAR74,SIZVAR74,VAR75,SIZVAR75,
1351 VAR76,SIZVAR76,VAR77,SIZVAR77,VAR78,SIZVAR78,VAR79,SIZVAR79,
1352 VAR80,SIZVAR80,VAR81,SIZVAR81,VAR82,SIZVAR82,VAR83,SIZVAR83,
1353 VAR84,SIZVAR84,VAR85,SIZVAR85,VAR86,SIZVAR86,VAR87,SIZVAR87,
1354 VAR88,SIZVAR88,VAR89,SIZVAR89,VAR90,SIZVAR90,VAR91,SIZVAR91,
1355 VAR92,SIZVAR92,VAR93,SIZVAR93,VAR94,SIZVAR94,VAR95,SIZVAR95,
1356 VAR96,SIZVAR96,VAR97,SIZVAR97,VAR98,SIZVAR98,VAR99,SIZVAR99);
1357 }
1358 }
1359
1360
1361/* --------------------------------- */
1362/* User Material law 1-99 SOLID */
1363/* --------------------------------- */
1364
1365/* ------------------- */
1366/* WINDOWS - SIGEPS99 */
1367/* ------------------- */
1368void _FCALL ENG_USERLIB_SIGEPS99( int*NEL ,int*NUPARAM ,int*NUVAR ,int*ILAW_USER ,int*NFUNC ,
1369 int*IFUNC ,int*NPF ,my_real*TF ,my_real*TIME ,my_real*TIMESTEP,
1370 my_real*UPARAM ,my_real*RHO ,my_real*VOLUME ,my_real*EINT ,int*NGL ,
1371 my_real*SOUNDSP ,my_real*VISCMAX ,my_real*UVAR ,my_real*OFF ,my_real*SIGY ,
1372 my_real*PLA ){
1373
1374 if (eng_sigeps99){
1375 (eng_sigeps99)( NEL ,NUPARAM ,NUVAR ,ILAW_USER ,NFUNC ,
1376 IFUNC ,NPF ,TF ,TIME ,TIMESTEP,
1377 UPARAM ,RHO ,VOLUME ,EINT ,NGL ,
1378 SOUNDSP ,VISCMAX ,UVAR ,OFF ,SIGY ,
1379 PLA );
1380 }
1381}
1382/* ----------------- */
1383/* LINUX - SIGEPS99C */
1384/* ----------------- */
1385void eng_userlib_sigeps99_( int*NEL ,int*NUPARAM ,int*NUVAR ,int*ILAW_USER ,int*NFUNC ,
1386 int*IFUNC ,int*NPF ,my_real*TF ,my_real*TIME ,my_real*TIMESTEP,
1387 my_real*UPARAM ,my_real*RHO ,my_real*VOLUME ,my_real*EINT ,int*NGL ,
1388 my_real*SOUNDSP ,my_real*VISCMAX ,my_real*UVAR ,my_real*OFF ,my_real*SIGY ,
1389 my_real*PLA ){
1390
1391 if (eng_sigeps99){
1392 (eng_sigeps99)( NEL ,NUPARAM ,NUVAR ,ILAW_USER ,NFUNC ,
1393 IFUNC ,NPF ,TF ,TIME ,TIMESTEP,
1394 UPARAM ,RHO ,VOLUME ,EINT ,NGL ,
1395 SOUNDSP ,VISCMAX ,UVAR ,OFF ,SIGY ,
1396 PLA );
1397 }
1398}
1399
1400/* ------------------------------ */
1401/* WINDOWS - eng_get_law_user_var */
1402/* ------------------------------ */
1403void _FCALL ENG_USERLIB_GET_LAW_VAR( int*NCYCLE, int*IMAT, int*IPTR, int*IPTS, int*IPTT,
1404 my_real*R11,my_real*R12, my_real*R13, my_real*R21, my_real*R22, my_real*R23, my_real*R31,
1405 my_real*R32,my_real*R33, my_real*SO1, my_real*SO2, my_real*SO3, my_real*SO4, my_real*SO5,
1406 my_real*SO6, my_real*EP1, my_real*EP2, my_real*EP3, my_real*EP4, my_real*EP5, my_real*EP6,
1407 my_real*ES1, my_real*ES2, my_real*ES3, my_real*ES4, my_real*ES5, my_real*ES6, my_real*DE1,
1408 my_real*DE2, my_real*DE3, my_real*DE4, my_real*DE5, my_real*DE6, my_real*RHO0, my_real*S1,
1409 my_real*S2, my_real*S3, my_real*S4, my_real*S5, my_real*S6, my_real*SV1, my_real*SV2,
1410 my_real*SV3, my_real*SV4, my_real*SV5, my_real*SV6 ){
1411 if (eng_get_law_user_var){
1412 (eng_get_law_user_var)( NCYCLE, IMAT,IPTR, IPTS,IPTT,
1413 R11,R12, R13, R21, R22, R23, R31,
1414 R32,R33, SO1, SO2, SO3, SO4, SO5,
1415 SO6, EP1, EP2, EP3, EP4, EP5, EP6,
1416 ES1, ES2, ES3, ES4, ES5, ES6, DE1,
1417 DE2, DE3, DE4, DE5, DE6, RHO0, S1,
1418 S2, S3, S4, S5, S6, SV1, SV2,
1419 SV3, SV4, SV5, SV6 );
1420 }
1421
1422}
1423
1424/* ---------------------------- */
1425/* LINUX - eng_get_law_user_var */
1426/* ---------------------------- */
1427void eng_userlib_get_law_var_( int*NCYCLE, int*IMAT, int*IPTR, int*IPTS, int*IPTT,
1428 my_real*R11,my_real*R12, my_real*R13, my_real*R21, my_real*R22, my_real*R23, my_real*R31,
1429 my_real*R32,my_real*R33, my_real*SO1, my_real*SO2, my_real*SO3, my_real*SO4, my_real*SO5,
1430 my_real*SO6, my_real*EP1, my_real*EP2, my_real*EP3, my_real*EP4, my_real*EP5, my_real*EP6,
1431 my_real*ES1, my_real*ES2, my_real*ES3, my_real*ES4, my_real*ES5, my_real*ES6, my_real*DE1,
1432 my_real*DE2, my_real*DE3, my_real*DE4, my_real*DE5, my_real*DE6, my_real*RHO0, my_real*S1,
1433 my_real*S2, my_real*S3, my_real*S4, my_real*S5, my_real*S6, my_real*SV1, my_real*SV2,
1434 my_real*SV3, my_real*SV4, my_real*SV5, my_real*SV6 ){
1435
1436 if (eng_get_law_user_var){
1437 (eng_get_law_user_var)( NCYCLE, IMAT,IPTR, IPTS,IPTT,
1438 R11,R12, R13, R21, R22, R23, R31,
1439 R32,R33, SO1, SO2, SO3, SO4, SO5,
1440 SO6, EP1, EP2, EP3, EP4, EP5, EP6,
1441 ES1, ES2, ES3, ES4, ES5, ES6, DE1,
1442 DE2, DE3, DE4, DE5, DE6, RHO0, S1,
1443 S2, S3, S4, S5, S6, SV1, SV2,
1444 SV3, SV4, SV5, SV6 );
1445 }
1446
1447}
1448/* ---------------------------- */
1449/* LINUX - eng_userlib_get_law_user_var_2 */
1450/* ---------------------------- */
1451void eng_userlib_get_law_var_2_ ( my_real*FPSXX,int*SIZFPSXX,my_real*FPSYY,int *SIZFPSYY,
1452 my_real*FPSZZ,int *SIZFPSZZ,my_real*FPSXY,int *SIZFPSXY,my_real*FPSYZ,int *SIZFPSYZ,my_real*FPSZX,int *SIZFPSZX,
1453 my_real*FPSYX,int *SIZFPSYX,my_real*FPSZY,int *SIZFPSZY,my_real*FPSXZ,int *SIZFPSXZ,my_real*VAR10,int *SIZVAR10,
1454 my_real*VAR11,int *SIZVAR11,my_real*VAR12,int *SIZVAR12,my_real*VAR13,int *SIZVAR13,my_real*VAR14,int *SIZVAR14,
1455 my_real*VAR15,int *SIZVAR15,my_real*VAR16,int *SIZVAR16,my_real*VAR17,int *SIZVAR17,my_real*VAR18,int *SIZVAR18,
1456 my_real*VAR19,int *SIZVAR19,my_real*VAR20,int *SIZVAR20,my_real*VAR21,int *SIZVAR21,my_real*VAR22,int *SIZVAR22,
1457 my_real*VAR23,int *SIZVAR23,my_real*VAR24,int *SIZVAR24,my_real*VAR25,int *SIZVAR25,my_real*VAR26,int *SIZVAR26,
1458 my_real*VAR27,int *SIZVAR27,my_real*VAR28,int *SIZVAR28,my_real*VAR29,int *SIZVAR29,my_real*VAR30,int *SIZVAR30,
1459 my_real*VAR31,int *SIZVAR31,my_real*VAR32,int *SIZVAR32,my_real*VAR33,int *SIZVAR33,my_real*VAR34,int *SIZVAR34,
1460 my_real*VAR35,int *SIZVAR35,my_real*VAR36,int *SIZVAR36,my_real*VAR37,int *SIZVAR37,my_real*VAR38,int *SIZVAR38,
1461 my_real*VAR39,int *SIZVAR39,my_real*VAR40,int *SIZVAR40,my_real*VAR41,int *SIZVAR41,my_real*VAR42,int *SIZVAR42,
1462 my_real*VAR43,int *SIZVAR43,my_real*VAR44,int *SIZVAR44,my_real*VAR45,int *SIZVAR45,my_real*VAR46,int *SIZVAR46,
1463 my_real*VAR47,int *SIZVAR47,my_real*VAR48,int *SIZVAR48,my_real*VAR49,int *SIZVAR49,my_real*VAR50,int *SIZVAR50,
1464 my_real*VAR51,int *SIZVAR51,my_real*VAR52,int *SIZVAR52,my_real*VAR53,int *SIZVAR53,my_real*VAR54,int *SIZVAR54,
1465 my_real*VAR55,int *SIZVAR55,my_real*VAR56,int *SIZVAR56,my_real*VAR57,int *SIZVAR57,my_real*VAR58,int *SIZVAR58,
1466 my_real*VAR59,int *SIZVAR59,my_real*VAR60,int *SIZVAR60,my_real*VAR61,int *SIZVAR61,my_real*VAR62,int *SIZVAR62,
1467 my_real*VAR63,int *SIZVAR63,my_real*VAR64,int *SIZVAR64,my_real*VAR65,int *SIZVAR65,my_real*VAR66,int *SIZVAR66,
1468 my_real*VAR67,int *SIZVAR67,my_real*VAR68,int *SIZVAR68,my_real*VAR69,int *SIZVAR69,my_real*VAR70,int *SIZVAR70,
1469 my_real*VAR71,int *SIZVAR72,my_real*VAR73,int *SIZVAR73,my_real*VAR74,int *SIZVAR74,my_real*VAR75,int *SIZVAR75,
1470 my_real*VAR76,int *SIZVAR76,my_real*VAR77,int *SIZVAR77,my_real*VAR78,int *SIZVAR78,my_real*VAR79,int *SIZVAR79,
1471 my_real*VAR80,int *SIZVAR80,my_real*VAR81,int *SIZVAR81,my_real*VAR82,int *SIZVAR82,my_real*VAR83,int *SIZVAR83,
1472 my_real*VAR84,int *SIZVAR84,my_real*VAR85,int *SIZVAR85,my_real*VAR86,int *SIZVAR86,my_real*VAR87,int *SIZVAR87,
1473 my_real*VAR88,int *SIZVAR88,my_real*VAR89,int *SIZVAR89,my_real*VAR90,int *SIZVAR90,my_real*VAR91,int *SIZVAR91,
1474 my_real*VAR92,int *SIZVAR92,my_real*VAR93,int *SIZVAR93,my_real*VAR94,int *SIZVAR94,my_real*VAR95,int *SIZVAR95,
1475 my_real*VAR96,int *SIZVAR96,my_real*VAR97,int *SIZVAR97,my_real*VAR98,int *SIZVAR98,my_real*VAR99,int *SIZVAR99){
1476
1477 if(eng_get_law_user_var_2){
1478 eng_get_law_user_var_2 ( FPSXX,SIZFPSXX,FPSYY,SIZFPSYY,
1479 FPSZZ,SIZFPSZZ,FPSXY,SIZFPSXY,FPSYZ,SIZFPSYZ,FPSZX,SIZFPSZX,
1480 FPSYX,SIZFPSYX,FPSZY,SIZFPSZY,FPSXZ,SIZFPSXZ,VAR10,SIZVAR10,
1481 VAR11,SIZVAR11,VAR12,SIZVAR12,VAR13,SIZVAR13,VAR14,SIZVAR14,
1482 VAR15,SIZVAR15,VAR16,SIZVAR16,VAR17,SIZVAR17,VAR18,SIZVAR18,
1483 VAR19,SIZVAR19,VAR20,SIZVAR20,VAR21,SIZVAR21,VAR22,SIZVAR22,
1484 VAR23,SIZVAR23,VAR24,SIZVAR24,VAR25,SIZVAR25,VAR26,SIZVAR26,
1485 VAR27,SIZVAR27,VAR28,SIZVAR28,VAR29,SIZVAR29,VAR30,SIZVAR30,
1486 VAR31,SIZVAR31,VAR32,SIZVAR32,VAR33,SIZVAR33,VAR34,SIZVAR34,
1487 VAR35,SIZVAR35,VAR36,SIZVAR36,VAR37,SIZVAR37,VAR38,SIZVAR38,
1488 VAR39,SIZVAR39,VAR40,SIZVAR40,VAR41,SIZVAR41,VAR42,SIZVAR42,
1489 VAR43,SIZVAR43,VAR44,SIZVAR44,VAR45,SIZVAR45,VAR46,SIZVAR46,
1490 VAR47,SIZVAR47,VAR48,SIZVAR48,VAR49,SIZVAR49,VAR50,SIZVAR50,
1491 VAR51,SIZVAR51,VAR52,SIZVAR52,VAR53,SIZVAR53,VAR54,SIZVAR54,
1492 VAR55,SIZVAR55,VAR56,SIZVAR56,VAR57,SIZVAR57,VAR58,SIZVAR58,
1493 VAR59,SIZVAR59,VAR60,SIZVAR60,VAR61,SIZVAR61,VAR62,SIZVAR62,
1494 VAR63,SIZVAR63,VAR64,SIZVAR64,VAR65,SIZVAR65,VAR66,SIZVAR66,
1495 VAR67,SIZVAR67,VAR68,SIZVAR68,VAR69,SIZVAR69,VAR70,SIZVAR70,
1496 VAR71,SIZVAR72,VAR73,SIZVAR73,VAR74,SIZVAR74,VAR75,SIZVAR75,
1497 VAR76,SIZVAR76,VAR77,SIZVAR77,VAR78,SIZVAR78,VAR79,SIZVAR79,
1498 VAR80,SIZVAR80,VAR81,SIZVAR81,VAR82,SIZVAR82,VAR83,SIZVAR83,
1499 VAR84,SIZVAR84,VAR85,SIZVAR85,VAR86,SIZVAR86,VAR87,SIZVAR87,
1500 VAR88,SIZVAR88,VAR89,SIZVAR89,VAR90,SIZVAR90,VAR91,SIZVAR91,
1501 VAR92,SIZVAR92,VAR93,SIZVAR93,VAR94,SIZVAR94,VAR95,SIZVAR95,
1502 VAR96,SIZVAR96,VAR97,SIZVAR97,VAR98,SIZVAR98,VAR99,SIZVAR99);}
1503 }
1504
1505/* ---------------------------- */
1506/* WINDOWS - eng_userlib_get_law_user_var_2 */
1507/* ---------------------------- */
1508void _FCALL ENG_USERLIB_GET_LAW_VAR_2 ( my_real*FPSXX,int*SIZFPSXX,my_real*FPSYY,int *SIZFPSYY,
1509 my_real*FPSZZ,int *SIZFPSZZ,my_real*FPSXY,int *SIZFPSXY,my_real*FPSYZ,int *SIZFPSYZ,my_real*FPSZX,int *SIZFPSZX,
1510 my_real*FPSYX,int *SIZFPSYX,my_real*FPSZY,int *SIZFPSZY,my_real*FPSXZ,int *SIZFPSXZ,my_real*VAR10,int *SIZVAR10,
1511 my_real*VAR11,int *SIZVAR11,my_real*VAR12,int *SIZVAR12,my_real*VAR13,int *SIZVAR13,my_real*VAR14,int *SIZVAR14,
1512 my_real*VAR15,int *SIZVAR15,my_real*VAR16,int *SIZVAR16,my_real*VAR17,int *SIZVAR17,my_real*VAR18,int *SIZVAR18,
1513 my_real*VAR19,int *SIZVAR19,my_real*VAR20,int *SIZVAR20,my_real*VAR21,int *SIZVAR21,my_real*VAR22,int *SIZVAR22,
1514 my_real*VAR23,int *SIZVAR23,my_real*VAR24,int *SIZVAR24,my_real*VAR25,int *SIZVAR25,my_real*VAR26,int *SIZVAR26,
1515 my_real*VAR27,int *SIZVAR27,my_real*VAR28,int *SIZVAR28,my_real*VAR29,int *SIZVAR29,my_real*VAR30,int *SIZVAR30,
1516 my_real*VAR31,int *SIZVAR31,my_real*VAR32,int *SIZVAR32,my_real*VAR33,int *SIZVAR33,my_real*VAR34,int *SIZVAR34,
1517 my_real*VAR35,int *SIZVAR35,my_real*VAR36,int *SIZVAR36,my_real*VAR37,int *SIZVAR37,my_real*VAR38,int *SIZVAR38,
1518 my_real*VAR39,int *SIZVAR39,my_real*VAR40,int *SIZVAR40,my_real*VAR41,int *SIZVAR41,my_real*VAR42,int *SIZVAR42,
1519 my_real*VAR43,int *SIZVAR43,my_real*VAR44,int *SIZVAR44,my_real*VAR45,int *SIZVAR45,my_real*VAR46,int *SIZVAR46,
1520 my_real*VAR47,int *SIZVAR47,my_real*VAR48,int *SIZVAR48,my_real*VAR49,int *SIZVAR49,my_real*VAR50,int *SIZVAR50,
1521 my_real*VAR51,int *SIZVAR51,my_real*VAR52,int *SIZVAR52,my_real*VAR53,int *SIZVAR53,my_real*VAR54,int *SIZVAR54,
1522 my_real*VAR55,int *SIZVAR55,my_real*VAR56,int *SIZVAR56,my_real*VAR57,int *SIZVAR57,my_real*VAR58,int *SIZVAR58,
1523 my_real*VAR59,int *SIZVAR59,my_real*VAR60,int *SIZVAR60,my_real*VAR61,int *SIZVAR61,my_real*VAR62,int *SIZVAR62,
1524 my_real*VAR63,int *SIZVAR63,my_real*VAR64,int *SIZVAR64,my_real*VAR65,int *SIZVAR65,my_real*VAR66,int *SIZVAR66,
1525 my_real*VAR67,int *SIZVAR67,my_real*VAR68,int *SIZVAR68,my_real*VAR69,int *SIZVAR69,my_real*VAR70,int *SIZVAR70,
1526 my_real*VAR71,int *SIZVAR72,my_real*VAR73,int *SIZVAR73,my_real*VAR74,int *SIZVAR74,my_real*VAR75,int *SIZVAR75,
1527 my_real*VAR76,int *SIZVAR76,my_real*VAR77,int *SIZVAR77,my_real*VAR78,int *SIZVAR78,my_real*VAR79,int *SIZVAR79,
1528 my_real*VAR80,int *SIZVAR80,my_real*VAR81,int *SIZVAR81,my_real*VAR82,int *SIZVAR82,my_real*VAR83,int *SIZVAR83,
1529 my_real*VAR84,int *SIZVAR84,my_real*VAR85,int *SIZVAR85,my_real*VAR86,int *SIZVAR86,my_real*VAR87,int *SIZVAR87,
1530 my_real*VAR88,int *SIZVAR88,my_real*VAR89,int *SIZVAR89,my_real*VAR90,int *SIZVAR90,my_real*VAR91,int *SIZVAR91,
1531 my_real*VAR92,int *SIZVAR92,my_real*VAR93,int *SIZVAR93,my_real*VAR94,int *SIZVAR94,my_real*VAR95,int *SIZVAR95,
1532 my_real*VAR96,int *SIZVAR96,my_real*VAR97,int *SIZVAR97,my_real*VAR98,int *SIZVAR98,my_real*VAR99,int *SIZVAR99){
1533
1534 if(eng_get_law_user_var_2){
1535 (eng_get_law_user_var_2) ( FPSXX,SIZFPSXX,FPSYY,SIZFPSYY,
1536 FPSZZ,SIZFPSZZ,FPSXY,SIZFPSXY,FPSYZ,SIZFPSYZ,FPSZX,SIZFPSZX,
1537 FPSYX,SIZFPSYX,FPSZY,SIZFPSZY,FPSXZ,SIZFPSXZ,VAR10,SIZVAR10,
1538 VAR11,SIZVAR11,VAR12,SIZVAR12,VAR13,SIZVAR13,VAR14,SIZVAR14,
1539 VAR15,SIZVAR15,VAR16,SIZVAR16,VAR17,SIZVAR17,VAR18,SIZVAR18,
1540 VAR19,SIZVAR19,VAR20,SIZVAR20,VAR21,SIZVAR21,VAR22,SIZVAR22,
1541 VAR23,SIZVAR23,VAR24,SIZVAR24,VAR25,SIZVAR25,VAR26,SIZVAR26,
1542 VAR27,SIZVAR27,VAR28,SIZVAR28,VAR29,SIZVAR29,VAR30,SIZVAR30,
1543 VAR31,SIZVAR31,VAR32,SIZVAR32,VAR33,SIZVAR33,VAR34,SIZVAR34,
1544 VAR35,SIZVAR35,VAR36,SIZVAR36,VAR37,SIZVAR37,VAR38,SIZVAR38,
1545 VAR39,SIZVAR39,VAR40,SIZVAR40,VAR41,SIZVAR41,VAR42,SIZVAR42,
1546 VAR43,SIZVAR43,VAR44,SIZVAR44,VAR45,SIZVAR45,VAR46,SIZVAR46,
1547 VAR47,SIZVAR47,VAR48,SIZVAR48,VAR49,SIZVAR49,VAR50,SIZVAR50,
1548 VAR51,SIZVAR51,VAR52,SIZVAR52,VAR53,SIZVAR53,VAR54,SIZVAR54,
1549 VAR55,SIZVAR55,VAR56,SIZVAR56,VAR57,SIZVAR57,VAR58,SIZVAR58,
1550 VAR59,SIZVAR59,VAR60,SIZVAR60,VAR61,SIZVAR61,VAR62,SIZVAR62,
1551 VAR63,SIZVAR63,VAR64,SIZVAR64,VAR65,SIZVAR65,VAR66,SIZVAR66,
1552 VAR67,SIZVAR67,VAR68,SIZVAR68,VAR69,SIZVAR69,VAR70,SIZVAR70,
1553 VAR71,SIZVAR72,VAR73,SIZVAR73,VAR74,SIZVAR74,VAR75,SIZVAR75,
1554 VAR76,SIZVAR76,VAR77,SIZVAR77,VAR78,SIZVAR78,VAR79,SIZVAR79,
1555 VAR80,SIZVAR80,VAR81,SIZVAR81,VAR82,SIZVAR82,VAR83,SIZVAR83,
1556 VAR84,SIZVAR84,VAR85,SIZVAR85,VAR86,SIZVAR86,VAR87,SIZVAR87,
1557 VAR88,SIZVAR88,VAR89,SIZVAR89,VAR90,SIZVAR90,VAR91,SIZVAR91,
1558 VAR92,SIZVAR92,VAR93,SIZVAR93,VAR94,SIZVAR94,VAR95,SIZVAR95,
1559 VAR96,SIZVAR96,VAR97,SIZVAR97,VAR98,SIZVAR98,VAR99,SIZVAR99);}
1560 }
1561
1562
1563/* ------------------------------ */
1564/* WINDOWS - eng_set_law_user_var */
1565/* ------------------------------ */
1566void _FCALL ENG_USERLIB_SET_LAW_VAR( my_real*S1, my_real*S2, my_real*S3, my_real*S4, my_real*S5, my_real*S6,
1567 my_real*SV1, my_real*SV2, my_real*SV3, my_real*SV4, my_real*SV5, my_real*SV6,
1568 my_real*DPLA ) {
1569 if(eng_set_law_user_var){
1570 (eng_set_law_user_var)( S1, S2, S3, S4, S5, S6,
1571 SV1, SV2, SV3,SV4, SV5, SV6,
1572 DPLA );
1573 }
1574}
1575
1576/* ------------------------------ */
1577/* LINUX - eng_set_law_user_var */
1578/* ------------------------------ */
1579void eng_userlib_set_law_var_( my_real*S1, my_real*S2, my_real*S3, my_real*S4, my_real*S5, my_real*S6,
1580 my_real*SV1, my_real*SV2, my_real*SV3, my_real*SV4, my_real*SV5, my_real*SV6,
1581 my_real*DPLA ) {
1582 if(eng_set_law_user_var){
1583 (eng_set_law_user_var)( S1, S2, S3, S4, S5, S6,
1584 SV1, SV2, SV3,SV4, SV5, SV6,
1585 DPLA );
1586 }
1587}
1588
1589/* ------------------------------ */
1590/* WINDOWS - eng_set_law_user_var_2 */
1591/* ------------------------------ */
1592void _FCALL ENG_USERLIB_SET_LAW_VAR_2( my_real*VAR01,int *SIZVAR01,my_real*VAR02,int *SIZVAR02,
1593 my_real*VAR03,int *SIZVAR03,my_real*VAR04,int *SIZVAR04,my_real*VAR05,int *SIZVAR05,my_real*VAR06,int *SIZVAR06,
1594 my_real*VAR07,int *SIZVAR07,my_real*VAR08,int *SIZVAR08,my_real*VAR09,int *SIZVAR09,my_real*VAR10,int *SIZVAR10,
1595 my_real*VAR11,int *SIZVAR11,my_real*VAR12,int *SIZVAR12,my_real*VAR13,int *SIZVAR13,my_real*VAR14,int *SIZVAR14,
1596 my_real*VAR15,int *SIZVAR15,my_real*VAR16,int *SIZVAR16,my_real*VAR17,int *SIZVAR17,my_real*VAR18,int *SIZVAR18,
1597 my_real*VAR19,int *SIZVAR19,my_real*VAR20,int *SIZVAR20,my_real*VAR21,int *SIZVAR21,my_real*VAR22,int *SIZVAR22,
1598 my_real*VAR23,int *SIZVAR23,my_real*VAR24,int *SIZVAR24,my_real*VAR25,int *SIZVAR25,my_real*VAR26,int *SIZVAR26,
1599 my_real*VAR27,int *SIZVAR27,my_real*VAR28,int *SIZVAR28,my_real*VAR29,int *SIZVAR29,my_real*VAR30,int *SIZVAR30,
1600 my_real*VAR31,int *SIZVAR31,my_real*VAR32,int *SIZVAR32,my_real*VAR33,int *SIZVAR33,my_real*VAR34,int *SIZVAR34,
1601 my_real*VAR35,int *SIZVAR35,my_real*VAR36,int *SIZVAR36,my_real*VAR37,int *SIZVAR37,my_real*VAR38,int *SIZVAR38,
1602 my_real*VAR39,int *SIZVAR39,my_real*VAR40,int *SIZVAR40,my_real*VAR41,int *SIZVAR41,my_real*VAR42,int *SIZVAR42,
1603 my_real*VAR43,int *SIZVAR43,my_real*VAR44,int *SIZVAR44,my_real*VAR45,int *SIZVAR45,my_real*VAR46,int *SIZVAR46,
1604 my_real*VAR47,int *SIZVAR47,my_real*VAR48,int *SIZVAR48,my_real*VAR49,int *SIZVAR49,my_real*VAR50,int *SIZVAR50,
1605 my_real*VAR51,int *SIZVAR51,my_real*VAR52,int *SIZVAR52,my_real*VAR53,int *SIZVAR53,my_real*VAR54,int *SIZVAR54,
1606 my_real*VAR55,int *SIZVAR55,my_real*VAR56,int *SIZVAR56,my_real*VAR57,int *SIZVAR57,my_real*VAR58,int *SIZVAR58,
1607 my_real*VAR59,int *SIZVAR59,my_real*VAR60,int *SIZVAR60,my_real*VAR61,int *SIZVAR61,my_real*VAR62,int *SIZVAR62,
1608 my_real*VAR63,int *SIZVAR63,my_real*VAR64,int *SIZVAR64,my_real*VAR65,int *SIZVAR65,my_real*VAR66,int *SIZVAR66,
1609 my_real*VAR67,int *SIZVAR67,my_real*VAR68,int *SIZVAR68,my_real*VAR69,int *SIZVAR69,my_real*VAR70,int *SIZVAR70,
1610 my_real*VAR71,int *SIZVAR72,my_real*VAR73,int *SIZVAR73,my_real*VAR74,int *SIZVAR74,my_real*VAR75,int *SIZVAR75,
1611 my_real*VAR76,int *SIZVAR76,my_real*VAR77,int *SIZVAR77,my_real*VAR78,int *SIZVAR78,my_real*VAR79,int *SIZVAR79,
1612 my_real*VAR80,int *SIZVAR80,my_real*VAR81,int *SIZVAR81,my_real*VAR82,int *SIZVAR82,my_real*VAR83,int *SIZVAR83,
1613 my_real*VAR84,int *SIZVAR84,my_real*VAR85,int *SIZVAR85,my_real*VAR86,int *SIZVAR86,my_real*VAR87,int *SIZVAR87,
1614 my_real*VAR88,int *SIZVAR88,my_real*VAR89,int *SIZVAR89,my_real*VAR90,int *SIZVAR90,my_real*VAR91,int *SIZVAR91,
1615 my_real*VAR92,int *SIZVAR92,my_real*VAR93,int *SIZVAR93,my_real*VAR94,int *SIZVAR94,my_real*VAR95,int *SIZVAR95,
1616 my_real*VAR96,int *SIZVAR96,my_real*VAR97,int *SIZVAR97,my_real*VAR98,int *SIZVAR98,my_real*VAR99,int *SIZVAR99){
1617 if(eng_set_law_user_var_2){
1618 (eng_set_law_user_var_2) ( VAR01,SIZVAR01,VAR02,SIZVAR02,
1619 VAR03,SIZVAR03,VAR04,SIZVAR04,VAR05,SIZVAR05,VAR06,SIZVAR06,
1620 VAR07,SIZVAR07,VAR08,SIZVAR08,VAR09,SIZVAR09,VAR10,SIZVAR10,
1621 VAR11,SIZVAR11,VAR12,SIZVAR12,VAR13,SIZVAR13,VAR14,SIZVAR14,
1622 VAR15,SIZVAR15,VAR16,SIZVAR16,VAR17,SIZVAR17,VAR18,SIZVAR18,
1623 VAR19,SIZVAR19,VAR20,SIZVAR20,VAR21,SIZVAR21,VAR22,SIZVAR22,
1624 VAR23,SIZVAR23,VAR24,SIZVAR24,VAR25,SIZVAR25,VAR26,SIZVAR26,
1625 VAR27,SIZVAR27,VAR28,SIZVAR28,VAR29,SIZVAR29,VAR30,SIZVAR30,
1626 VAR31,SIZVAR31,VAR32,SIZVAR32,VAR33,SIZVAR33,VAR34,SIZVAR34,
1627 VAR35,SIZVAR35,VAR36,SIZVAR36,VAR37,SIZVAR37,VAR38,SIZVAR38,
1628 VAR39,SIZVAR39,VAR40,SIZVAR40,VAR41,SIZVAR41,VAR42,SIZVAR42,
1629 VAR43,SIZVAR43,VAR44,SIZVAR44,VAR45,SIZVAR45,VAR46,SIZVAR46,
1630 VAR47,SIZVAR47,VAR48,SIZVAR48,VAR49,SIZVAR49,VAR50,SIZVAR50,
1631 VAR51,SIZVAR51,VAR52,SIZVAR52,VAR53,SIZVAR53,VAR54,SIZVAR54,
1632 VAR55,SIZVAR55,VAR56,SIZVAR56,VAR57,SIZVAR57,VAR58,SIZVAR58,
1633 VAR59,SIZVAR59,VAR60,SIZVAR60,VAR61,SIZVAR61,VAR62,SIZVAR62,
1634 VAR63,SIZVAR63,VAR64,SIZVAR64,VAR65,SIZVAR65,VAR66,SIZVAR66,
1635 VAR67,SIZVAR67,VAR68,SIZVAR68,VAR69,SIZVAR69,VAR70,SIZVAR70,
1636 VAR71,SIZVAR72,VAR73,SIZVAR73,VAR74,SIZVAR74,VAR75,SIZVAR75,
1637 VAR76,SIZVAR76,VAR77,SIZVAR77,VAR78,SIZVAR78,VAR79,SIZVAR79,
1638 VAR80,SIZVAR80,VAR81,SIZVAR81,VAR82,SIZVAR82,VAR83,SIZVAR83,
1639 VAR84,SIZVAR84,VAR85,SIZVAR85,VAR86,SIZVAR86,VAR87,SIZVAR87,
1640 VAR88,SIZVAR88,VAR89,SIZVAR89,VAR90,SIZVAR90,VAR91,SIZVAR91,
1641 VAR92,SIZVAR92,VAR93,SIZVAR93,VAR94,SIZVAR94,VAR95,SIZVAR95,
1642 VAR96,SIZVAR96,VAR97,SIZVAR97,VAR98,SIZVAR98,VAR99,SIZVAR99);
1643 }
1644 }
1645
1646
1647void eng_userlib_set_law_var_2_( my_real*VAR01,int *SIZVAR01,my_real*VAR02,int *SIZVAR02,
1648 my_real*VAR03,int *SIZVAR03,my_real*VAR04,int *SIZVAR04,my_real*VAR05,int *SIZVAR05,my_real*VAR06,int *SIZVAR06,
1649 my_real*VAR07,int *SIZVAR07,my_real*VAR08,int *SIZVAR08,my_real*VAR09,int *SIZVAR09,my_real*VAR10,int *SIZVAR10,
1650 my_real*VAR11,int *SIZVAR11,my_real*VAR12,int *SIZVAR12,my_real*VAR13,int *SIZVAR13,my_real*VAR14,int *SIZVAR14,
1651 my_real*VAR15,int *SIZVAR15,my_real*VAR16,int *SIZVAR16,my_real*VAR17,int *SIZVAR17,my_real*VAR18,int *SIZVAR18,
1652 my_real*VAR19,int *SIZVAR19,my_real*VAR20,int *SIZVAR20,my_real*VAR21,int *SIZVAR21,my_real*VAR22,int *SIZVAR22,
1653 my_real*VAR23,int *SIZVAR23,my_real*VAR24,int *SIZVAR24,my_real*VAR25,int *SIZVAR25,my_real*VAR26,int *SIZVAR26,
1654 my_real*VAR27,int *SIZVAR27,my_real*VAR28,int *SIZVAR28,my_real*VAR29,int *SIZVAR29,my_real*VAR30,int *SIZVAR30,
1655 my_real*VAR31,int *SIZVAR31,my_real*VAR32,int *SIZVAR32,my_real*VAR33,int *SIZVAR33,my_real*VAR34,int *SIZVAR34,
1656 my_real*VAR35,int *SIZVAR35,my_real*VAR36,int *SIZVAR36,my_real*VAR37,int *SIZVAR37,my_real*VAR38,int *SIZVAR38,
1657 my_real*VAR39,int *SIZVAR39,my_real*VAR40,int *SIZVAR40,my_real*VAR41,int *SIZVAR41,my_real*VAR42,int *SIZVAR42,
1658 my_real*VAR43,int *SIZVAR43,my_real*VAR44,int *SIZVAR44,my_real*VAR45,int *SIZVAR45,my_real*VAR46,int *SIZVAR46,
1659 my_real*VAR47,int *SIZVAR47,my_real*VAR48,int *SIZVAR48,my_real*VAR49,int *SIZVAR49,my_real*VAR50,int *SIZVAR50,
1660 my_real*VAR51,int *SIZVAR51,my_real*VAR52,int *SIZVAR52,my_real*VAR53,int *SIZVAR53,my_real*VAR54,int *SIZVAR54,
1661 my_real*VAR55,int *SIZVAR55,my_real*VAR56,int *SIZVAR56,my_real*VAR57,int *SIZVAR57,my_real*VAR58,int *SIZVAR58,
1662 my_real*VAR59,int *SIZVAR59,my_real*VAR60,int *SIZVAR60,my_real*VAR61,int *SIZVAR61,my_real*VAR62,int *SIZVAR62,
1663 my_real*VAR63,int *SIZVAR63,my_real*VAR64,int *SIZVAR64,my_real*VAR65,int *SIZVAR65,my_real*VAR66,int *SIZVAR66,
1664 my_real*VAR67,int *SIZVAR67,my_real*VAR68,int *SIZVAR68,my_real*VAR69,int *SIZVAR69,my_real*VAR70,int *SIZVAR70,
1665 my_real*VAR71,int *SIZVAR72,my_real*VAR73,int *SIZVAR73,my_real*VAR74,int *SIZVAR74,my_real*VAR75,int *SIZVAR75,
1666 my_real*VAR76,int *SIZVAR76,my_real*VAR77,int *SIZVAR77,my_real*VAR78,int *SIZVAR78,my_real*VAR79,int *SIZVAR79,
1667 my_real*VAR80,int *SIZVAR80,my_real*VAR81,int *SIZVAR81,my_real*VAR82,int *SIZVAR82,my_real*VAR83,int *SIZVAR83,
1668 my_real*VAR84,int *SIZVAR84,my_real*VAR85,int *SIZVAR85,my_real*VAR86,int *SIZVAR86,my_real*VAR87,int *SIZVAR87,
1669 my_real*VAR88,int *SIZVAR88,my_real*VAR89,int *SIZVAR89,my_real*VAR90,int *SIZVAR90,my_real*VAR91,int *SIZVAR91,
1670 my_real*VAR92,int *SIZVAR92,my_real*VAR93,int *SIZVAR93,my_real*VAR94,int *SIZVAR94,my_real*VAR95,int *SIZVAR95,
1671 my_real*VAR96,int *SIZVAR96,my_real*VAR97,int *SIZVAR97,my_real*VAR98,int *SIZVAR98,my_real*VAR99,int *SIZVAR99){
1672 if(eng_set_law_user_var_2){
1673 (eng_set_law_user_var_2) ( VAR01,SIZVAR01,VAR02,SIZVAR02,
1674 VAR03,SIZVAR03,VAR04,SIZVAR04,VAR05,SIZVAR05,VAR06,SIZVAR06,
1675 VAR07,SIZVAR07,VAR08,SIZVAR08,VAR09,SIZVAR09,VAR10,SIZVAR10,
1676 VAR11,SIZVAR11,VAR12,SIZVAR12,VAR13,SIZVAR13,VAR14,SIZVAR14,
1677 VAR15,SIZVAR15,VAR16,SIZVAR16,VAR17,SIZVAR17,VAR18,SIZVAR18,
1678 VAR19,SIZVAR19,VAR20,SIZVAR20,VAR21,SIZVAR21,VAR22,SIZVAR22,
1679 VAR23,SIZVAR23,VAR24,SIZVAR24,VAR25,SIZVAR25,VAR26,SIZVAR26,
1680 VAR27,SIZVAR27,VAR28,SIZVAR28,VAR29,SIZVAR29,VAR30,SIZVAR30,
1681 VAR31,SIZVAR31,VAR32,SIZVAR32,VAR33,SIZVAR33,VAR34,SIZVAR34,
1682 VAR35,SIZVAR35,VAR36,SIZVAR36,VAR37,SIZVAR37,VAR38,SIZVAR38,
1683 VAR39,SIZVAR39,VAR40,SIZVAR40,VAR41,SIZVAR41,VAR42,SIZVAR42,
1684 VAR43,SIZVAR43,VAR44,SIZVAR44,VAR45,SIZVAR45,VAR46,SIZVAR46,
1685 VAR47,SIZVAR47,VAR48,SIZVAR48,VAR49,SIZVAR49,VAR50,SIZVAR50,
1686 VAR51,SIZVAR51,VAR52,SIZVAR52,VAR53,SIZVAR53,VAR54,SIZVAR54,
1687 VAR55,SIZVAR55,VAR56,SIZVAR56,VAR57,SIZVAR57,VAR58,SIZVAR58,
1688 VAR59,SIZVAR59,VAR60,SIZVAR60,VAR61,SIZVAR61,VAR62,SIZVAR62,
1689 VAR63,SIZVAR63,VAR64,SIZVAR64,VAR65,SIZVAR65,VAR66,SIZVAR66,
1690 VAR67,SIZVAR67,VAR68,SIZVAR68,VAR69,SIZVAR69,VAR70,SIZVAR70,
1691 VAR71,SIZVAR72,VAR73,SIZVAR73,VAR74,SIZVAR74,VAR75,SIZVAR75,
1692 VAR76,SIZVAR76,VAR77,SIZVAR77,VAR78,SIZVAR78,VAR79,SIZVAR79,
1693 VAR80,SIZVAR80,VAR81,SIZVAR81,VAR82,SIZVAR82,VAR83,SIZVAR83,
1694 VAR84,SIZVAR84,VAR85,SIZVAR85,VAR86,SIZVAR86,VAR87,SIZVAR87,
1695 VAR88,SIZVAR88,VAR89,SIZVAR89,VAR90,SIZVAR90,VAR91,SIZVAR91,
1696 VAR92,SIZVAR92,VAR93,SIZVAR93,VAR94,SIZVAR94,VAR95,SIZVAR95,
1697 VAR96,SIZVAR96,VAR97,SIZVAR97,VAR98,SIZVAR98,VAR99,SIZVAR99);
1698 }
1699 }
1700
1701
1702/* ------------------------ */
1703/* User Rupture Model Shell */
1704/* ------------------------ */
1705
1706/* WINDOWS */
1707void _FCALL ENG_USERLIB_FLAWC(int *IRUP,
1708 int *NEL ,int *NUPARAM,int *NUVAR ,int *NFUNC ,int *IFUNC ,int *NPF ,
1709 my_real *TF ,my_real *TIME ,my_real *TIMESTEP,my_real *UPARAM , int *NGL ,int *IPT ,
1710 int *NPT0 ,int *IPM ,int *NPROPMI ,int *MAT ,
1711 my_real *SIGNXX ,my_real *SIGNYY ,my_real *SIGNXY ,my_real *SIGNYZ ,my_real *SIGNZX ,
1712 my_real *EPSPXX ,my_real *EPSPYY ,my_real *EPSPXY ,my_real *EPSPYZ ,my_real *EPSPZX ,
1713 my_real *EPSXX ,my_real *EPSYY ,my_real *EPSXY ,my_real *EPSYZ ,my_real *EPSZX ,
1714 my_real *PLA ,my_real *DPLA ,my_real *EPSP ,my_real *UVAR ,my_real *UEL ,
1715 my_real *OFF ,my_real *BIDON1 ,my_real *BIDON2 ,my_real *BIDON3 ,my_real *BIDON4 ,my_real *BIDON5 ){
1716
1717 if(eng_flawc){
1718 (eng_flawc)(IRUP,
1719 NEL ,NUPARAM,NUVAR ,NFUNC ,IFUNC ,NPF ,
1720 TF ,TIME ,TIMESTEP,UPARAM , NGL ,IPT ,
1721 NPT0 ,IPM ,NPROPMI ,MAT ,
1722 SIGNXX ,SIGNYY ,SIGNXY ,SIGNYZ ,SIGNZX ,
1723 EPSPXX ,EPSPYY ,EPSPXY ,EPSPYZ ,EPSPZX ,
1724 EPSXX ,EPSYY ,EPSXY ,EPSYZ ,EPSZX ,
1725 PLA ,DPLA ,EPSP ,UVAR ,UEL ,
1726 OFF ,BIDON1 ,BIDON2 ,BIDON3 ,BIDON4 ,BIDON5);
1727 }
1728
1729}
1730
1731/* LINUX */
1732void eng_userlib_flawc_(int *IRUP,
1733 int *NEL ,int *NUPARAM,int *NUVAR ,int *NFUNC ,int *IFUNC ,int *NPF ,
1734 my_real *TF ,my_real *TIME ,my_real *TIMESTEP,my_real *UPARAM , int *NGL ,int *IPT ,
1735 int *NPT0 ,int *IPM ,int *NPROPMI ,int *MAT ,
1736 my_real *SIGNXX ,my_real *SIGNYY ,my_real *SIGNXY ,my_real *SIGNYZ ,my_real *SIGNZX ,
1737 my_real *EPSPXX ,my_real *EPSPYY ,my_real *EPSPXY ,my_real *EPSPYZ ,my_real *EPSPZX ,
1738 my_real *EPSXX ,my_real *EPSYY ,my_real *EPSXY ,my_real *EPSYZ ,my_real *EPSZX ,
1739 my_real *PLA ,my_real *DPLA ,my_real *EPSP ,my_real *UVAR ,my_real *UEL ,
1740 my_real *OFF ,my_real *BIDON1 ,my_real *BIDON2 ,my_real *BIDON3 ,my_real *BIDON4 ,my_real *BIDON5 ){
1741
1742 if(eng_flawc){
1743 (*eng_flawc)(IRUP,
1744 NEL ,NUPARAM,NUVAR ,NFUNC ,IFUNC ,NPF ,
1745 TF ,TIME ,TIMESTEP,UPARAM , NGL ,IPT ,
1746 NPT0 ,IPM ,NPROPMI ,MAT ,
1747 SIGNXX ,SIGNYY ,SIGNXY ,SIGNYZ ,SIGNZX ,
1748 EPSPXX ,EPSPYY ,EPSPXY ,EPSPYZ ,EPSPZX ,
1749 EPSXX ,EPSYY ,EPSXY ,EPSYZ ,EPSZX ,
1750 PLA ,DPLA ,EPSP ,UVAR ,UEL ,
1751 OFF ,BIDON1 ,BIDON2 ,BIDON3 ,BIDON4 ,BIDON5); }
1752
1753}
1754
1755
1756/* ------------------------- */
1757/* User Rupture Model Solids */
1758/* ------------------------- */
1759
1760/* WINDOWS */
1761void _FCALL ENG_USERLIB_FLAW(int*IRUP,
1762 int*NEL ,int*NUPARAM,int*NUVAR ,int*NFUNC ,int*IFUNC ,
1763 int*NPF ,my_real *TF ,my_real *TIME ,my_real *TIMESTEP ,my_real *UPARAM ,
1764 int*NGL ,int*IPM ,int*NPROPMI,int*MAT,int*IDEL7NOK,
1765 my_real *EPSPXX ,my_real *EPSPYY ,my_real *EPSPZZ ,my_real *EPSPXY,my_real *EPSPYZ,my_real *EPSPZX ,
1766 my_real *EPSXX ,my_real *EPSYY ,my_real *EPSZZ ,my_real *EPSXY ,my_real *EPSYZ ,my_real *EPSZX ,
1767 my_real *SIGNXX ,my_real *SIGNYY ,my_real *SIGNZZ ,my_real *SIGNXY,my_real *SIGNYZ,my_real *SIGNZX ,
1768 my_real *PLA ,my_real *DPLA ,my_real *EPSP ,my_real *UVAR ,my_real *OFF ,
1769 my_real *BIDON1 ,my_real *BIDON2 ,my_real *BIDON3 ,my_real *BIDON4,my_real *BIDON5){
1770
1771 if(eng_flaw){
1772 (*eng_flaw)(IRUP,
1773 NEL , NUPARAM,NUVAR ,NFUNC ,IFUNC,
1774 NPF , TF ,TIME ,TIMESTEP ,UPARAM ,
1775 NGL , IPM ,NPROPMI,MAT ,IDEL7NOK,
1776 EPSPXX , EPSPYY ,EPSPZZ ,EPSPXY,EPSPYZ,EPSPZX ,
1777 EPSXX , EPSYY ,EPSZZ ,EPSXY ,EPSYZ ,EPSZX ,
1778 SIGNXX , SIGNYY ,SIGNZZ ,SIGNXY,SIGNYZ,SIGNZX ,
1779 PLA , DPLA ,EPSP ,UVAR ,OFF ,
1780 BIDON1 , BIDON2 ,BIDON3 ,BIDON4,BIDON5);
1781 }
1782
1783}
1784/* Linux */
1785void eng_userlib_flaw_(int*IRUP,
1786 int*NEL ,int*NUPARAM,int*NUVAR ,int*NFUNC ,int*IFUNC ,
1787 int*NPF ,my_real *TF ,my_real *TIME ,my_real *TIMESTEP ,my_real *UPARAM ,
1788 int*NGL ,int*IPM ,int*NPROPMI,int*MAT,int*IDEL7NOK,
1789 my_real *EPSPXX ,my_real *EPSPYY ,my_real *EPSPZZ ,my_real *EPSPXY,my_real *EPSPYZ,my_real *EPSPZX ,
1790 my_real *EPSXX ,my_real *EPSYY ,my_real *EPSZZ ,my_real *EPSXY ,my_real *EPSYZ ,my_real *EPSZX ,
1791 my_real *SIGNXX ,my_real *SIGNYY ,my_real *SIGNZZ ,my_real *SIGNXY,my_real *SIGNYZ,my_real *SIGNZX ,
1792 my_real *PLA ,my_real *DPLA ,my_real *EPSP ,my_real *UVAR ,my_real *OFF ,
1793 my_real *BIDON1 ,my_real *BIDON2 ,my_real *BIDON3 ,my_real *BIDON4,my_real *BIDON5){
1794
1795 if(eng_flaw){
1796 (*eng_flaw)(IRUP,
1797 NEL , NUPARAM,NUVAR ,NFUNC ,IFUNC,
1798 NPF , TF ,TIME ,TIMESTEP ,UPARAM ,
1799 NGL , IPM ,NPROPMI,MAT ,IDEL7NOK,
1800 EPSPXX , EPSPYY ,EPSPZZ ,EPSPXY,EPSPYZ,EPSPZX ,
1801 EPSXX , EPSYY ,EPSZZ ,EPSXY ,EPSYZ ,EPSZX ,
1802 SIGNXX , SIGNYY ,SIGNZZ ,SIGNXY,SIGNYZ,SIGNZX ,
1803 PLA , DPLA ,EPSP ,UVAR ,OFF ,
1804 BIDON1 , BIDON2 ,BIDON3 ,BIDON4,BIDON5);
1805 }
1806
1807}
1808
1809
1810/* --------------------------------- */
1811/* User Spring 29-30-31 Shell */
1812/* --------------------------------- */
1813
1814/* WINDOWS */
1815void _FCALL ENG_USERLIB_RUSER(int *ITYP,
1816 int * NEL ,int *IPROP ,my_real *UVAR ,int *NUVAR ,
1817 my_real *FX ,my_real *FY ,my_real *FZ ,my_real *XMOM ,my_real *YMOM ,
1818 my_real *ZMOM ,my_real *E ,my_real *OFF ,my_real *STIFM ,my_real *STIFR ,
1819 my_real *VISCM ,my_real *VISCR ,my_real *MASS ,my_real *XINER ,my_real *DT ,
1820 my_real *XL ,my_real *VX ,my_real *RY1 ,my_real *RZ1 ,my_real *RX ,
1821 my_real *RY2 ,my_real *RZ2 ,my_real *FR_WAVE){
1822
1823 if(eng_ruser){
1824 (*eng_ruser)(ITYP,NEL ,IPROP ,UVAR ,NUVAR ,
1825 FX ,FY ,FZ ,XMOM ,YMOM ,
1826 ZMOM ,E ,OFF ,STIFM ,STIFR ,
1827 VISCM ,VISCR ,MASS ,XINER ,DT ,
1828 XL ,VX ,RY1 ,RZ1 ,RX ,
1829 RY2 ,RZ2 ,FR_WAVE);
1830 }
1831
1832}
1833
1834/* LINUX */
1835void eng_userlib_ruser_(int *ITYP,
1836 int * NEL ,int *IPROP ,my_real *UVAR ,int *NUVAR ,
1837 my_real *FX ,my_real *FY ,my_real *FZ ,my_real *XMOM ,my_real *YMOM ,
1838 my_real *ZMOM ,my_real *E ,my_real *OFF ,my_real *STIFM ,my_real *STIFR ,
1839 my_real *VISCM ,my_real *VISCR ,my_real *MASS ,my_real *XINER ,my_real *DT ,
1840 my_real *XL ,my_real *VX ,my_real *RY1 ,my_real *RZ1 ,my_real *RX ,
1841 my_real *RY2 ,my_real *RZ2 ,my_real *FR_WAVE){
1842
1843 if(eng_ruser){
1844 (*eng_ruser)(ITYP,
1845 NEL ,IPROP ,UVAR ,NUVAR ,
1846 FX ,FY ,FZ ,XMOM ,YMOM ,
1847 ZMOM ,E ,OFF ,STIFM ,STIFR ,
1848 VISCM ,VISCR ,MASS ,XINER ,DT ,
1849 XL ,VX ,RY1 ,RZ1 ,RX ,
1850 RY2 ,RZ2 ,FR_WAVE);
1851 }
1852}
1853
1854
1855void _FCALL ENG_USERLIB_SUSER(int*ITYP,
1856 int*NEL ,int*NUVAR ,int*IPROP ,int*IMAT ,int*SOLID_ID,my_real *TIME ,my_real *TIMESTEP,
1857 my_real *EINT ,my_real *VOL ,my_real *UVAR ,my_real *FR_WAVE,my_real *OFF ,my_real *RHO ,my_real *SIG ,
1858 my_real *XX1 ,my_real *XX2 ,my_real *XX3 ,my_real *XX4 ,my_real *XX5 ,my_real *XX6 ,my_real *XX7 ,my_real *XX8 ,
1859 my_real *YY1 ,my_real *YY2 ,my_real *YY3 ,my_real *YY4 ,my_real *YY5 ,my_real *YY6 ,my_real *YY7 ,my_real *YY8 ,
1860 my_real *ZZ1 ,my_real *ZZ2 ,my_real *ZZ3 ,my_real *ZZ4 ,my_real *ZZ5 ,my_real *ZZ6 ,my_real *ZZ7 ,my_real *ZZ8 ,
1861 my_real *UX1 ,my_real *UX2 ,my_real *UX3 ,my_real *UX4 ,my_real *UX5 ,my_real *UX6 ,my_real *UX7 ,my_real *UX8 ,
1862 my_real *UY1 ,my_real *UY2 ,my_real *UY3 ,my_real *UY4 ,my_real *UY5 ,my_real *UY6 ,my_real *UY7 ,my_real *UY8 ,
1863 my_real *UZ1 ,my_real *UZ2 ,my_real *UZ3 ,my_real *UZ4 ,my_real *UZ5 ,my_real *UZ6 ,my_real *UZ7 ,my_real *UZ8 ,
1864 my_real *VX1 ,my_real *VX2 ,my_real *VX3 ,my_real *VX4 ,my_real *VX5 ,my_real *VX6 ,my_real *VX7 ,my_real *VX8 ,
1865 my_real *VY1 ,my_real *VY2 ,my_real *VY3 ,my_real *VY4 ,my_real *VY5 ,my_real *VY6 ,my_real *VY7 ,my_real *VY8 ,
1866 my_real *VZ1 ,my_real *VZ2 ,my_real *VZ3 ,my_real *VZ4 ,my_real *VZ5 ,my_real *VZ6 ,my_real *VZ7 ,my_real *VZ8 ,
1867 my_real *VRX1 ,my_real *VRX2 ,my_real *VRX3 ,my_real *VRX4 ,my_real *VRX5 ,my_real *VRX6 ,my_real *VRX7 ,my_real *VRX8 ,
1868 my_real *VRY1 ,my_real *VRY2 ,my_real *VRY3 ,my_real *VRY4 ,my_real *VRY5 ,my_real *VRY6 ,my_real *VRY7 ,my_real *VRY8 ,
1869 my_real *VRZ1 ,my_real *VRZ2 ,my_real *VRZ3 ,my_real *VRZ4 ,my_real *VRZ5 ,my_real *VRZ6 ,my_real *VRZ7 ,my_real *VRZ8 ,
1870 my_real *FX1 ,my_real *FX2 ,my_real *FX3 ,my_real *FX4 ,my_real *FX5 ,my_real *FX6 ,my_real *FX7 ,my_real *FX8 ,
1871 my_real *FY1 ,my_real *FY2 ,my_real *FY3 ,my_real *FY4 ,my_real *FY5 ,my_real *FY6 ,my_real *FY7 ,my_real *FY8 ,
1872 my_real *FZ1 ,my_real *FZ2 ,my_real *FZ3 ,my_real *FZ4 ,my_real *FZ5 ,my_real *FZ6 ,my_real *FZ7 ,my_real *FZ8 ,
1873 my_real * MX1 ,my_real *MX2 ,my_real *MX3 ,my_real *MX4 ,my_real *MX5 ,my_real *MX6 ,my_real *MX7 ,my_real *MX8 ,
1874 my_real *MY1 ,my_real *MY2 ,my_real *MY3 ,my_real *MY4 ,my_real *MY5 ,my_real *MY6 ,my_real *MY7 ,my_real *MY8 ,
1875 my_real *MZ1 ,my_real *MZ2 ,my_real *MZ3 ,my_real *MZ4 ,my_real *MZ5 ,my_real *MZ6 ,my_real *MZ7 ,my_real *MZ8 ,
1876 my_real *STIFM ,my_real *STIFR ,my_real *VISCM ,my_real *VISCR ){
1877
1878 if (eng_suser){
1879 (*eng_suser)(ITYP,
1880 NEL ,NUVAR ,IPROP ,IMAT ,SOLID_ID,TIME ,TIMESTEP,
1881 EINT ,VOL ,UVAR ,FR_WAVE,OFF ,RHO ,SIG ,
1882 XX1 ,XX2 ,XX3 ,XX4 ,XX5 ,XX6 ,XX7 ,XX8 ,
1883 YY1 ,YY2 ,YY3 ,YY4 ,YY5 ,YY6 ,YY7 ,YY8 ,
1884 ZZ1 ,ZZ2 ,ZZ3 ,ZZ4 ,ZZ5 ,ZZ6 ,ZZ7 ,ZZ8 ,
1885 UX1 ,UX2 ,UX3 ,UX4 ,UX5 ,UX6 ,UX7 ,UX8 ,
1886 UY1 ,UY2 ,UY3 ,UY4 ,UY5 ,UY6 ,UY7 ,UY8 ,
1887 UZ1 ,UZ2 ,UZ3 ,UZ4 ,UZ5 ,UZ6 ,UZ7 ,UZ8 ,
1888 VX1 ,VX2 ,VX3 ,VX4 ,VX5 ,VX6 ,VX7 ,VX8 ,
1889 VY1 ,VY2 ,VY3 ,VY4 ,VY5 ,VY6 ,VY7 ,VY8 ,
1890 VZ1 ,VZ2 ,VZ3 ,VZ4 ,VZ5 ,VZ6 ,VZ7 ,VZ8 ,
1891 VRX1 ,VRX2 ,VRX3 ,VRX4 ,VRX5 ,VRX6 ,VRX7 ,VRX8 ,
1892 VRY1 ,VRY2 ,VRY3 ,VRY4 ,VRY5 ,VRY6 ,VRY7 ,VRY8 ,
1893 VRZ1 ,VRZ2 ,VRZ3 ,VRZ4 ,VRZ5 ,VRZ6 ,VRZ7 ,VRZ8 ,
1894 FX1 ,FX2 ,FX3 ,FX4 ,FX5 ,FX6 ,FX7 ,FX8 ,
1895 FY1 ,FY2 ,FY3 ,FY4 ,FY5 ,FY6 ,FY7 ,FY8 ,
1896 FZ1 ,FZ2 ,FZ3 ,FZ4 ,FZ5 ,FZ6 ,FZ7 ,FZ8 ,
1897 MX1 ,MX2 ,MX3 ,MX4 ,MX5 ,MX6 ,MX7 ,MX8 ,
1898 MY1 ,MY2 ,MY3 ,MY4 ,MY5 ,MY6 ,MY7 ,MY8 ,
1899 MZ1 ,MZ2 ,MZ3 ,MZ4 ,MZ5 ,MZ6 ,MZ7 ,MZ8 ,
1900 STIFM ,STIFR ,VISCM ,VISCR );
1901 }
1902}
1903
1904
1905void eng_userlib_suser_(int*ITYP,
1906 int*NEL ,int*NUVAR ,int*IPROP ,int*IMAT ,int*SOLID_ID,my_real *TIME ,my_real *TIMESTEP,
1907 my_real *EINT ,my_real *VOL ,my_real *UVAR ,my_real *FR_WAVE,my_real *OFF ,my_real *RHO ,my_real *SIG ,
1908 my_real *XX1 ,my_real *XX2 ,my_real *XX3 ,my_real *XX4 ,my_real *XX5 ,my_real *XX6 ,my_real *XX7 ,my_real *XX8 ,
1909 my_real *YY1 ,my_real *YY2 ,my_real *YY3 ,my_real *YY4 ,my_real *YY5 ,my_real *YY6 ,my_real *YY7 ,my_real *YY8 ,
1910 my_real *ZZ1 ,my_real *ZZ2 ,my_real *ZZ3 ,my_real *ZZ4 ,my_real *ZZ5 ,my_real *ZZ6 ,my_real *ZZ7 ,my_real *ZZ8 ,
1911 my_real *UX1 ,my_real *UX2 ,my_real *UX3 ,my_real *UX4 ,my_real *UX5 ,my_real *UX6 ,my_real *UX7 ,my_real *UX8 ,
1912 my_real *UY1 ,my_real *UY2 ,my_real *UY3 ,my_real *UY4 ,my_real *UY5 ,my_real *UY6 ,my_real *UY7 ,my_real *UY8 ,
1913 my_real *UZ1 ,my_real *UZ2 ,my_real *UZ3 ,my_real *UZ4 ,my_real *UZ5 ,my_real *UZ6 ,my_real *UZ7 ,my_real *UZ8 ,
1914 my_real *VX1 ,my_real *VX2 ,my_real *VX3 ,my_real *VX4 ,my_real *VX5 ,my_real *VX6 ,my_real *VX7 ,my_real *VX8 ,
1915 my_real *VY1 ,my_real *VY2 ,my_real *VY3 ,my_real *VY4 ,my_real *VY5 ,my_real *VY6 ,my_real *VY7 ,my_real *VY8 ,
1916 my_real *VZ1 ,my_real *VZ2 ,my_real *VZ3 ,my_real *VZ4 ,my_real *VZ5 ,my_real *VZ6 ,my_real *VZ7 ,my_real *VZ8 ,
1917 my_real *VRX1 ,my_real *VRX2 ,my_real *VRX3 ,my_real *VRX4 ,my_real *VRX5 ,my_real *VRX6 ,my_real *VRX7 ,my_real *VRX8 ,
1918 my_real *VRY1 ,my_real *VRY2 ,my_real *VRY3 ,my_real *VRY4 ,my_real *VRY5 ,my_real *VRY6 ,my_real *VRY7 ,my_real *VRY8 ,
1919 my_real *VRZ1 ,my_real *VRZ2 ,my_real *VRZ3 ,my_real *VRZ4 ,my_real *VRZ5 ,my_real *VRZ6 ,my_real *VRZ7 ,my_real *VRZ8 ,
1920 my_real *FX1 ,my_real *FX2 ,my_real *FX3 ,my_real *FX4 ,my_real *FX5 ,my_real *FX6 ,my_real *FX7 ,my_real *FX8 ,
1921 my_real *FY1 ,my_real *FY2 ,my_real *FY3 ,my_real *FY4 ,my_real *FY5 ,my_real *FY6 ,my_real *FY7 ,my_real *FY8 ,
1922 my_real *FZ1 ,my_real *FZ2 ,my_real *FZ3 ,my_real *FZ4 ,my_real *FZ5 ,my_real *FZ6 ,my_real *FZ7 ,my_real *FZ8 ,
1923 my_real * MX1 ,my_real *MX2 ,my_real *MX3 ,my_real *MX4 ,my_real *MX5 ,my_real *MX6 ,my_real *MX7 ,my_real *MX8 ,
1924 my_real *MY1 ,my_real *MY2 ,my_real *MY3 ,my_real *MY4 ,my_real *MY5 ,my_real *MY6 ,my_real *MY7 ,my_real *MY8 ,
1925 my_real *MZ1 ,my_real *MZ2 ,my_real *MZ3 ,my_real *MZ4 ,my_real *MZ5 ,my_real *MZ6 ,my_real *MZ7 ,my_real *MZ8 ,
1926 my_real *STIFM ,my_real *STIFR ,my_real *VISCM ,my_real *VISCR ){
1927
1928 if (eng_suser){
1929 (*eng_suser)(ITYP,
1930 NEL ,NUVAR ,IPROP ,IMAT ,SOLID_ID,TIME ,TIMESTEP,
1931 EINT ,VOL ,UVAR ,FR_WAVE,OFF ,RHO ,SIG ,
1932 XX1 ,XX2 ,XX3 ,XX4 ,XX5 ,XX6 ,XX7 ,XX8 ,
1933 YY1 ,YY2 ,YY3 ,YY4 ,YY5 ,YY6 ,YY7 ,YY8 ,
1934 ZZ1 ,ZZ2 ,ZZ3 ,ZZ4 ,ZZ5 ,ZZ6 ,ZZ7 ,ZZ8 ,
1935 UX1 ,UX2 ,UX3 ,UX4 ,UX5 ,UX6 ,UX7 ,UX8 ,
1936 UY1 ,UY2 ,UY3 ,UY4 ,UY5 ,UY6 ,UY7 ,UY8 ,
1937 UZ1 ,UZ2 ,UZ3 ,UZ4 ,UZ5 ,UZ6 ,UZ7 ,UZ8 ,
1938 VX1 ,VX2 ,VX3 ,VX4 ,VX5 ,VX6 ,VX7 ,VX8 ,
1939 VY1 ,VY2 ,VY3 ,VY4 ,VY5 ,VY6 ,VY7 ,VY8 ,
1940 VZ1 ,VZ2 ,VZ3 ,VZ4 ,VZ5 ,VZ6 ,VZ7 ,VZ8 ,
1941 VRX1 ,VRX2 ,VRX3 ,VRX4 ,VRX5 ,VRX6 ,VRX7 ,VRX8 ,
1942 VRY1 ,VRY2 ,VRY3 ,VRY4 ,VRY5 ,VRY6 ,VRY7 ,VRY8 ,
1943 VRZ1 ,VRZ2 ,VRZ3 ,VRZ4 ,VRZ5 ,VRZ6 ,VRZ7 ,VRZ8 ,
1944 FX1 ,FX2 ,FX3 ,FX4 ,FX5 ,FX6 ,FX7 ,FX8 ,
1945 FY1 ,FY2 ,FY3 ,FY4 ,FY5 ,FY6 ,FY7 ,FY8 ,
1946 FZ1 ,FZ2 ,FZ3 ,FZ4 ,FZ5 ,FZ6 ,FZ7 ,FZ8 ,
1947 MX1 ,MX2 ,MX3 ,MX4 ,MX5 ,MX6 ,MX7 ,MX8 ,
1948 MY1 ,MY2 ,MY3 ,MY4 ,MY5 ,MY6 ,MY7 ,MY8 ,
1949 MZ1 ,MZ2 ,MZ3 ,MZ4 ,MZ5 ,MZ6 ,MZ7 ,MZ8 ,
1950 STIFM ,STIFR ,VISCM ,VISCR );
1951 }
1952}
1953
1954/* ------------------------------ */
1955/* Interface type 2 / USERRUPTURE */
1956/* ------------------------------ */
1957
1958void _FCALL ENG_USERLIB_USERINT(int *IGTYP,
1959 int *NSN ,int *II ,int *PID ,int *NUVAR ,
1960 my_real * UVAR ){
1961
1962 if (eng_userint){
1963 (eng_userint)(IGTYP,
1964 NSN ,II ,PID ,NUVAR ,
1965 UVAR );
1966 }
1967}
1968
1969void eng_userlib_userint_(int *IGTYP,
1970 int *NSN ,int *II ,int *PID ,int *NUVAR ,
1971 my_real * UVAR ){
1972
1973 if (eng_userint){
1974 (eng_userint)(IGTYP,
1975 NSN ,II ,PID ,NUVAR ,
1976 UVAR );
1977 }
1978}
1979
1980
1981void _FCALL ENG_USERLIB_UINTBUF_VAR(int *ISLAVE, my_real *AREA, my_real *DT,my_real *DXN,my_real *DXT,my_real *SIGN,my_real *SIGT,
1982 my_real *RUPT, my_real *FACN, my_real *FACT ){
1983 if (*eng_get_uintbuf_var){
1984 (eng_get_uintbuf_var)( ISLAVE, AREA, DT,DXN,DXT,SIGN,SIGT,
1985 RUPT, FACN, FACT );
1986 }
1987}
1988
1989
1990void eng_userlib_uintbuf_var_(int *ISLAVE, my_real *AREA, my_real *DT,my_real *DXN,my_real *DXT,my_real *SIGN,my_real *SIGT,
1991 my_real *RUPT, my_real *FACN, my_real *FACT ){
1992 if (*eng_get_uintbuf_var){
1993 (eng_get_uintbuf_var)( ISLAVE, AREA, DT,DXN,DXT,SIGN,SIGT,
1994 RUPT, FACN, FACT );
1995 }
1996}
1997
1998void _FCALL ENG_USERLIB_USER_SENS(int *TYP,int *ID ){
1999 if (*eng_user_sens){
2000 (eng_user_sens)( TYP,ID );
2001 }
2002}
2003
2004void _FCALL eng_userlib_user_sens_(int *TYP,int *ID ){
2005 if (*eng_user_sens){
2006 (eng_user_sens)( TYP,ID );
2007 }
2008}
2009
2010
2011
2012void _FCALL ENG_USERLIB_USERWI(char *ROOTN ,int *ROOTLEN ,
2013 int *NUVAR ,int *NUVARI ,int *NUMNOD ,
2014 int *NCYCLE ,int *LENWA ,int *IUVAR ,int *ITAB ,my_real *TT ,
2015 my_real *DT1 ,my_real *DT2 ,my_real *USREINT,my_real *EXWORK ,my_real *UVAR ,
2016 my_real *D ,my_real *X ,my_real *V ,my_real *VR ,my_real *MASS ,
2017 my_real *INER ,my_real *STIFN ,my_real *STIFR ,my_real *A ,my_real *AR ,
2018 my_real *WA ){
2019 if (*eng_userwi){
2020 (eng_userwi)(ROOTN ,ROOTLEN ,
2021 NUVAR ,NUVARI ,NUMNOD ,
2022 NCYCLE ,LENWA ,IUVAR ,ITAB ,TT ,
2023 DT1 ,DT2 ,USREINT,EXWORK ,UVAR ,
2024 D ,X ,V ,VR ,MASS ,
2025 INER ,STIFN ,STIFR ,A ,AR ,
2026 WA );
2027 }
2028}
2029
2030void eng_userlib_userwi_(char *ROOTN ,int *ROOTLEN ,
2031 int *NUVAR ,int *NUVARI ,int *NUMNOD ,
2032 int *NCYCLE ,int *LENWA ,int *IUVAR ,int *ITAB ,my_real *TT ,
2033 my_real *DT1 ,my_real *DT2 ,my_real *USREINT,my_real *EXWORK ,my_real *UVAR ,
2034 my_real *D ,my_real *X ,my_real *V ,my_real *VR ,my_real *MASS ,
2035 my_real *INER ,my_real *STIFN ,my_real *STIFR ,my_real *A ,my_real *AR ,
2036 my_real *WA ){
2037 if (*eng_userwi){
2038 (eng_userwi)(ROOTN ,ROOTLEN ,
2039 NUVAR ,NUVARI ,NUMNOD ,
2040 NCYCLE ,LENWA ,IUVAR ,ITAB ,TT ,
2041 DT1 ,DT2 ,USREINT,EXWORK ,UVAR ,
2042 D ,X ,V ,VR ,MASS ,
2043 INER ,STIFN ,STIFR ,A ,AR ,
2044 WA );
2045 }
2046}
2047/* ----------------------------------------------- */
2048/* Routine ENGINE_USER_CHECK*/
2049// Windows
2050void _FCALL ENGINE_USER_CHECK(int *MY_RANK,double *TSTOP,int *NCYCLE,double *TT,int *MSTOP){
2051
2052 if (*engine_user_check){
2053 (engine_user_check)( MY_RANK,TSTOP,NCYCLE,TT,MSTOP );
2054 }
2055}
2056
2057// Linux
2058void engine_user_check_(int *MY_RANK,double *TSTOP,int *NCYCLE,double *TT,int *MSTOP){
2059
2060 if (*engine_user_check){
2061 (engine_user_check)( MY_RANK,TSTOP,NCYCLE,TT,MSTOP );
2062 }
2063}
2064/* ----------------------------------------------- */
2065/* Routine ENGINE_USER_FINALIZE*/
2066// Windows
2067void _FCALL ENGINE_USER_FINALIZE( int *MY_RANK ){
2068
2069 if (*engine_user_finalize){
2070 (engine_user_finalize)( MY_RANK );
2071 }
2072}
2073
2074// Linux
2075void engine_user_finalize_( int *MY_RANK ){
2076
2077 if (*engine_user_finalize){
2078 (engine_user_finalize)( MY_RANK );
2079 }
2080}
2081/* ----------------------------------------------- */
2082/* Routine ENGINE_USER_INITIALIZE*/
2083// Windows
2084void _FCALL ENGINE_USER_INITIALIZE(int *NSPMD, int *NTHREAD, int *MY_RANK){
2085
2086 if (*engine_user_initialize){
2087 (engine_user_initialize)(NSPMD,NTHREAD,MY_RANK);
2088 }
2089}
2090
2091// Linux
2092void engine_user_initialize_(int *NSPMD, int *NTHREAD, int *MY_RANK){
2093
2094 if (*engine_user_initialize){
2095 (engine_user_initialize)(NSPMD,NTHREAD,MY_RANK);
2096 }
2097}
2098/* ----------------------------------------------- */
2099
2100
2101void delete_user_file_(char * filnam,int * len)
2102{
2103 int i;
2104 char * filn;
2105 filn = (char*)malloc(sizeof(char)* 1+ *len);
2106 for (i=0;i< *len ; i++){
2107 filn[i]=filnam[i];
2108 }
2109 filn[*len]='\0';
2110
2111 remove(filn);
2112 free(filn);
2113}
2114
2115void _FCALL DELETE_USER_FILE(char * filnam,int * len)
2116{
2117 int i;
2118 char * filn;
2119 filn = (char*)malloc(sizeof(char)* 1+ *len);
2120 for (i=0;i< *len ; i++){
2121 filn[i]=filnam[i];
2122 }
2123 filn[*len]='\0';
2124
2125 remove(filn);
2126 free(filn);
2127}
my_real
#define my_real
Definition cppsort.cpp:32
eng_get_law_user_var_2
void(* eng_get_law_user_var_2)(my_real *FPSXX, int *SIZFPSXX, my_real *FPSYY, int *SIZFPSYY, my_real *FPSZZ, int *SIZFPSZZ, my_real *FPSXY, int *SIZFPSXY, my_real *FPSYZ, int *SIZFPSYZ, my_real *FPSZX, int *SIZFPSZX, my_real *FPSYX, int *SIZFPSYX, my_real *FPSZY, int *SIZFPSZY, my_real *FPSXZ, int *SIZFPSXZ, my_real *VAR10, int *SIZVAR10, my_real *VAR11, int *SIZVAR11, my_real *VAR12, int *SIZVAR12, my_real *VAR13, int *SIZVAR13, my_real *VAR14, int *SIZVAR14, my_real *VAR15, int *SIZVAR15, my_real *VAR16, int *SIZVAR16, my_real *VAR17, int *SIZVAR17, my_real *VAR18, int *SIZVAR18, my_real *VAR19, int *SIZVAR19, my_real *VAR20, int *SIZVAR20, my_real *VAR21, int *SIZVAR21, my_real *VAR22, int *SIZVAR22, my_real *VAR23, int *SIZVAR23, my_real *VAR24, int *SIZVAR24, my_real *VAR25, int *SIZVAR25, my_real *VAR26, int *SIZVAR26, my_real *VAR27, int *SIZVAR27, my_real *VAR28, int *SIZVAR28, my_real *VAR29, int *SIZVAR29, my_real *VAR30, int *SIZVAR30, my_real *VAR31, int *SIZVAR31, my_real *VAR32, int *SIZVAR32, my_real *VAR33, int *SIZVAR33, my_real *VAR34, int *SIZVAR34, my_real *VAR35, int *SIZVAR35, my_real *VAR36, int *SIZVAR36, my_real *VAR37, int *SIZVAR37, my_real *VAR38, int *SIZVAR38, my_real *VAR39, int *SIZVAR39, my_real *VAR40, int *SIZVAR40, my_real *VAR41, int *SIZVAR41, my_real *VAR42, int *SIZVAR42, my_real *VAR43, int *SIZVAR43, my_real *VAR44, int *SIZVAR44, my_real *VAR45, int *SIZVAR45, my_real *VAR46, int *SIZVAR46, my_real *VAR47, int *SIZVAR47, my_real *VAR48, int *SIZVAR48, my_real *VAR49, int *SIZVAR49, my_real *VAR50, int *SIZVAR50, my_real *VAR51, int *SIZVAR51, my_real *VAR52, int *SIZVAR52, my_real *VAR53, int *SIZVAR53, my_real *VAR54, int *SIZVAR54, my_real *VAR55, int *SIZVAR55, my_real *VAR56, int *SIZVAR56, my_real *VAR57, int *SIZVAR57, my_real *VAR58, int *SIZVAR58, my_real *VAR59, int *SIZVAR59, my_real *VAR60, int *SIZVAR60, my_real *VAR61, int *SIZVAR61, my_real *VAR62, int *SIZVAR62, my_real *VAR63, int *SIZVAR63, my_real *VAR64, int *SIZVAR64, my_real *VAR65, int *SIZVAR65, my_real *VAR66, int *SIZVAR66, my_real *VAR67, int *SIZVAR67, my_real *VAR68, int *SIZVAR68, my_real *VAR69, int *SIZVAR69, my_real *VAR70, int *SIZVAR70, my_real *VAR71, int *SIZVAR72, my_real *VAR73, int *SIZVAR73, my_real *VAR74, int *SIZVAR74, my_real *VAR75, int *SIZVAR75, my_real *VAR76, int *SIZVAR76, my_real *VAR77, int *SIZVAR77, my_real *VAR78, int *SIZVAR78, my_real *VAR79, int *SIZVAR79, my_real *VAR80, int *SIZVAR80, my_real *VAR81, int *SIZVAR81, my_real *VAR82, int *SIZVAR82, my_real *VAR83, int *SIZVAR83, my_real *VAR84, int *SIZVAR84, my_real *VAR85, int *SIZVAR85, my_real *VAR86, int *SIZVAR86, my_real *VAR87, int *SIZVAR87, my_real *VAR88, int *SIZVAR88, my_real *VAR89, int *SIZVAR89, my_real *VAR90, int *SIZVAR90, my_real *VAR91, int *SIZVAR91, my_real *VAR92, int *SIZVAR92, my_real *VAR93, int *SIZVAR93, my_real *VAR94, int *SIZVAR94, my_real *VAR95, int *SIZVAR95, my_real *VAR96, int *SIZVAR96, my_real *VAR97, int *SIZVAR97, my_real *VAR98, int *SIZVAR98, my_real *VAR99, int *SIZVAR99)
Definition dyn_userlib.c:239
eng_user_sens
void(* eng_user_sens)(int *TYP, int *ID)
Definition dyn_userlib.c:338
eng_set_law_user_var
void(* eng_set_law_user_var)(my_real *S1, my_real *S2, my_real *S3, my_real *S4, my_real *S5, my_real *S6, my_real *SV1, my_real *SV2, my_real *SV3, my_real *SV4, my_real *SV5, my_real *SV6, my_real *DPLA)
Definition dyn_userlib.c:235
ENGINE_USER_INITIALIZE
void _FCALL ENGINE_USER_INITIALIZE(int *NSPMD, int *NTHREAD, int *MY_RANK)
Definition dyn_userlib.c:2084
ENG_USERLIB_SIGEPS
void _FCALL ENG_USERLIB_SIGEPS(int *ilaw, int *NEL, int *NUPARAM, int *NUVAR, int *NFUNC, int *IFUNC, int *NPF, my_real *TF, my_real *TIME, my_real *TIMESTEP, my_real *UPARAM, my_real *RHO0, my_real *RHO, my_real *VOLUME, my_real *EINT, my_real *EPSPXX, my_real *EPSPYY, my_real *EPSPZZ, my_real *EPSPXY, my_real *EPSPYZ, my_real *EPSPZX, my_real *DEPSXX, my_real *DEPSYY, my_real *DEPSZZ, my_real *DEPSXY, my_real *DEPSYZ, my_real *DEPSZX, my_real *EPSXX, my_real *EPSYY, my_real *EPSZZ, my_real *EPSXY, my_real *EPSYZ, my_real *EPSZX, my_real *IGOXX, my_real *SIGOYY, my_real *SIGOZZ, my_real *SIGOXY, my_real *SIGOYZ, my_real *SIGOZX, my_real *SIGNXX, my_real *SIGNYY, my_real *SIGNZZ, my_real *SIGNXY, my_real *SIGNYZ, my_real *SIGNZX, my_real *SIGVXX, my_real *SIGVYY, my_real *SIGVZZ, my_real *SIGVXY, my_real *SIGVYZ, my_real *SIGVZX, my_real *SOUNDSP, my_real *VISCMAX, my_real *UVAR, my_real *OFF)
Definition dyn_userlib.c:900
eng_userlib_set_lawc_var_2_
void eng_userlib_set_lawc_var_2_(my_real *VAR01, int *SIZVAR01, my_real *VAR02, int *SIZVAR02, my_real *VAR03, int *SIZVAR03, my_real *VAR04, int *SIZVAR04, my_real *VAR05, int *SIZVAR05, my_real *VAR06, int *SIZVAR06, my_real *VAR07, int *SIZVAR07, my_real *VAR08, int *SIZVAR08, my_real *VAR09, int *SIZVAR09, my_real *VAR10, int *SIZVAR10, my_real *VAR11, int *SIZVAR11, my_real *VAR12, int *SIZVAR12, my_real *VAR13, int *SIZVAR13, my_real *VAR14, int *SIZVAR14, my_real *VAR15, int *SIZVAR15, my_real *VAR16, int *SIZVAR16, my_real *VAR17, int *SIZVAR17, my_real *VAR18, int *SIZVAR18, my_real *VAR19, int *SIZVAR19, my_real *VAR20, int *SIZVAR20, my_real *VAR21, int *SIZVAR21, my_real *VAR22, int *SIZVAR22, my_real *VAR23, int *SIZVAR23, my_real *VAR24, int *SIZVAR24, my_real *VAR25, int *SIZVAR25, my_real *VAR26, int *SIZVAR26, my_real *VAR27, int *SIZVAR27, my_real *VAR28, int *SIZVAR28, my_real *VAR29, int *SIZVAR29, my_real *VAR30, int *SIZVAR30, my_real *VAR31, int *SIZVAR31, my_real *VAR32, int *SIZVAR32, my_real *VAR33, int *SIZVAR33, my_real *VAR34, int *SIZVAR34, my_real *VAR35, int *SIZVAR35, my_real *VAR36, int *SIZVAR36, my_real *VAR37, int *SIZVAR37, my_real *VAR38, int *SIZVAR38, my_real *VAR39, int *SIZVAR39, my_real *VAR40, int *SIZVAR40, my_real *VAR41, int *SIZVAR41, my_real *VAR42, int *SIZVAR42, my_real *VAR43, int *SIZVAR43, my_real *VAR44, int *SIZVAR44, my_real *VAR45, int *SIZVAR45, my_real *VAR46, int *SIZVAR46, my_real *VAR47, int *SIZVAR47, my_real *VAR48, int *SIZVAR48, my_real *VAR49, int *SIZVAR49, my_real *VAR50, int *SIZVAR50, my_real *VAR51, int *SIZVAR51, my_real *VAR52, int *SIZVAR52, my_real *VAR53, int *SIZVAR53, my_real *VAR54, int *SIZVAR54, my_real *VAR55, int *SIZVAR55, my_real *VAR56, int *SIZVAR56, my_real *VAR57, int *SIZVAR57, my_real *VAR58, int *SIZVAR58, my_real *VAR59, int *SIZVAR59, my_real *VAR60, int *SIZVAR60, my_real *VAR61, int *SIZVAR61, my_real *VAR62, int *SIZVAR62, my_real *VAR63, int *SIZVAR63, my_real *VAR64, int *SIZVAR64, my_real *VAR65, int *SIZVAR65, my_real *VAR66, int *SIZVAR66, my_real *VAR67, int *SIZVAR67, my_real *VAR68, int *SIZVAR68, my_real *VAR69, int *SIZVAR69, my_real *VAR70, int *SIZVAR70, my_real *VAR71, int *SIZVAR72, my_real *VAR73, int *SIZVAR73, my_real *VAR74, int *SIZVAR74, my_real *VAR75, int *SIZVAR75, my_real *VAR76, int *SIZVAR76, my_real *VAR77, int *SIZVAR77, my_real *VAR78, int *SIZVAR78, my_real *VAR79, int *SIZVAR79, my_real *VAR80, int *SIZVAR80, my_real *VAR81, int *SIZVAR81, my_real *VAR82, int *SIZVAR82, my_real *VAR83, int *SIZVAR83, my_real *VAR84, int *SIZVAR84, my_real *VAR85, int *SIZVAR85, my_real *VAR86, int *SIZVAR86, my_real *VAR87, int *SIZVAR87, my_real *VAR88, int *SIZVAR88, my_real *VAR89, int *SIZVAR89, my_real *VAR90, int *SIZVAR90, my_real *VAR91, int *SIZVAR91, my_real *VAR92, int *SIZVAR92, my_real *VAR93, int *SIZVAR93, my_real *VAR94, int *SIZVAR94, my_real *VAR95, int *SIZVAR95, my_real *VAR96, int *SIZVAR96, my_real *VAR97, int *SIZVAR97, my_real *VAR98, int *SIZVAR98, my_real *VAR99, int *SIZVAR99)
Definition dyn_userlib.c:1305
eng_userlib_flawc_
void eng_userlib_flawc_(int *IRUP, int *NEL, int *NUPARAM, int *NUVAR, int *NFUNC, int *IFUNC, int *NPF, my_real *TF, my_real *TIME, my_real *TIMESTEP, my_real *UPARAM, int *NGL, int *IPT, int *NPT0, int *IPM, int *NPROPMI, int *MAT, my_real *SIGNXX, my_real *SIGNYY, my_real *SIGNXY, my_real *SIGNYZ, my_real *SIGNZX, my_real *EPSPXX, my_real *EPSPYY, my_real *EPSPXY, my_real *EPSPYZ, my_real *EPSPZX, my_real *EPSXX, my_real *EPSYY, my_real *EPSXY, my_real *EPSYZ, my_real *EPSZX, my_real *PLA, my_real *DPLA, my_real *EPSP, my_real *UVAR, my_real *UEL, my_real *OFF, my_real *BIDON1, my_real *BIDON2, my_real *BIDON3, my_real *BIDON4, my_real *BIDON5)
Definition dyn_userlib.c:1732
eng_userlib_sigepsc_
void eng_userlib_sigepsc_(int *ilaw, int *NEL, int *NUPARAM, int *NUVAR, int *NFUNC, int *IFUNC, int *NPF, int *NPT, int *IPT, int *IFLAG, my_real *TF, my_real *TIME, my_real *TIMESTEP, my_real *UPARAM, my_real *RHO0, my_real *AREA, my_real *EINT, my_real *THKLY, my_real *EPSPXX, my_real *EPSPYY, my_real *EPSPXY, my_real *EPSPYZ, my_real *EPSPZX, my_real *DEPSXX, my_real *DEPSYY, my_real *DEPSXY, my_real *DEPSYZ, my_real *DEPSZX, my_real *EPSXX, my_real *EPSYY, my_real *EPSXY, my_real *EPSYZ, my_real *EPSZX, my_real *SIGOXX, my_real *SIGOYY, my_real *SIGOXY, my_real *SIGOYZ, my_real *SIGOZX, my_real *SIGNXX, my_real *SIGNYY, my_real *SIGNXY, my_real *SIGNYZ, my_real *SIGNZX, my_real *SIGVXX, my_real *SIGVYY, my_real *SIGVXY, my_real *SIGVYZ, my_real *SIGVZX, my_real *SOUNDSP, my_real *VISCMAX, my_real *THK, my_real *PLA, my_real *UVAR, my_real *OFF, int *NGL, int *SHF)
Definition dyn_userlib.c:999
ENGINE_USER_FINALIZE
void _FCALL ENGINE_USER_FINALIZE(int *MY_RANK)
Definition dyn_userlib.c:2067
ENG_USERLIB_USER_SENS
void _FCALL ENG_USERLIB_USER_SENS(int *TYP, int *ID)
Definition dyn_userlib.c:1998
eng_userwi
void(* eng_userwi)(char *ROOTN, int *ROOTLEN, int *NUVAR, int *NUVARI, int *NUMNOD, int *NCYCLE, int *LENWA, int *IUVAR, int *ITAB, my_real *TT, my_real *DT1, my_real *DT2, my_real *USREINT, my_real *EXWORK, my_real *UVAR, my_real *D, my_real *X, my_real *V, my_real *VR, my_real *MASS, my_real *INER, my_real *STIFN, my_real *STIFR, my_real *A, my_real *AR, my_real *WA)
Definition dyn_userlib.c:329
eng_flaw
void(* eng_flaw)(int *IRUP, int *NEL, int *NUPARAM, int *NUVAR, int *NFUNC, int *IFUNC, int *NPF, my_real *TF, my_real *TIME, my_real *TIMESTEP, my_real *UPARAM, int *NGL, int *IPM, int *NPROPMI, int *MAT, int *IDEL7NOK, my_real *EPSPXX, my_real *EPSPYY, my_real *EPSPZZ, my_real *EPSPXY, my_real *EPSPYZ, my_real *EPSPZX, my_real *EPSXX, my_real *EPSYY, my_real *EPSZZ, my_real *EPSXY, my_real *EPSYZ, my_real *EPSZX, my_real *SIGNXX, my_real *SIGNYY, my_real *SIGNZZ, my_real *SIGNXY, my_real *SIGNYZ, my_real *SIGNZX, my_real *PLA, my_real *DPLA, my_real *EPSP, my_real *UVAR, my_real *OFF, my_real *BIDON1, my_real *BIDON2, my_real *BIDON3, my_real *BIDON4, my_real *BIDON5)
Definition dyn_userlib.c:109
ENG_USERLIB_FLAWC
void _FCALL ENG_USERLIB_FLAWC(int *IRUP, int *NEL, int *NUPARAM, int *NUVAR, int *NFUNC, int *IFUNC, int *NPF, my_real *TF, my_real *TIME, my_real *TIMESTEP, my_real *UPARAM, int *NGL, int *IPT, int *NPT0, int *IPM, int *NPROPMI, int *MAT, my_real *SIGNXX, my_real *SIGNYY, my_real *SIGNXY, my_real *SIGNYZ, my_real *SIGNZX, my_real *EPSPXX, my_real *EPSPYY, my_real *EPSPXY, my_real *EPSPYZ, my_real *EPSPZX, my_real *EPSXX, my_real *EPSYY, my_real *EPSXY, my_real *EPSYZ, my_real *EPSZX, my_real *PLA, my_real *DPLA, my_real *EPSP, my_real *UVAR, my_real *UEL, my_real *OFF, my_real *BIDON1, my_real *BIDON2, my_real *BIDON3, my_real *BIDON4, my_real *BIDON5)
Definition dyn_userlib.c:1707
eng_userlib_userint_
void eng_userlib_userint_(int *IGTYP, int *NSN, int *II, int *PID, int *NUVAR, my_real *UVAR)
Definition dyn_userlib.c:1969
eng_get_lawc_user_var_2
void(* eng_get_lawc_user_var_2)(my_real *VAR01, int *SIZVAR01, my_real *VAR02, int *SIZVAR02, my_real *VAR03, int *SIZVAR03, my_real *VAR04, int *SIZVAR04, my_real *VAR05, int *SIZVAR05, my_real *VAR06, int *SIZVAR06, my_real *VAR07, int *SIZVAR07, my_real *VAR08, int *SIZVAR08, my_real *VAR09, int *SIZVAR09, my_real *VAR10, int *SIZVAR10, my_real *VAR11, int *SIZVAR11, my_real *VAR12, int *SIZVAR12, my_real *VAR13, int *SIZVAR13, my_real *VAR14, int *SIZVAR14, my_real *VAR15, int *SIZVAR15, my_real *VAR16, int *SIZVAR16, my_real *VAR17, int *SIZVAR17, my_real *VAR18, int *SIZVAR18, my_real *VAR19, int *SIZVAR19, my_real *VAR20, int *SIZVAR20, my_real *VAR21, int *SIZVAR21, my_real *VAR22, int *SIZVAR22, my_real *VAR23, int *SIZVAR23, my_real *VAR24, int *SIZVAR24, my_real *VAR25, int *SIZVAR25, my_real *VAR26, int *SIZVAR26, my_real *VAR27, int *SIZVAR27, my_real *VAR28, int *SIZVAR28, my_real *VAR29, int *SIZVAR29, my_real *VAR30, int *SIZVAR30, my_real *VAR31, int *SIZVAR31, my_real *VAR32, int *SIZVAR32, my_real *VAR33, int *SIZVAR33, my_real *VAR34, int *SIZVAR34, my_real *VAR35, int *SIZVAR35, my_real *VAR36, int *SIZVAR36, my_real *VAR37, int *SIZVAR37, my_real *VAR38, int *SIZVAR38, my_real *VAR39, int *SIZVAR39, my_real *VAR40, int *SIZVAR40, my_real *VAR41, int *SIZVAR41, my_real *VAR42, int *SIZVAR42, my_real *VAR43, int *SIZVAR43, my_real *VAR44, int *SIZVAR44, my_real *VAR45, int *SIZVAR45, my_real *VAR46, int *SIZVAR46, my_real *VAR47, int *SIZVAR47, my_real *VAR48, int *SIZVAR48, my_real *VAR49, int *SIZVAR49, my_real *VAR50, int *SIZVAR50, my_real *VAR51, int *SIZVAR51, my_real *VAR52, int *SIZVAR52, my_real *VAR53, int *SIZVAR53, my_real *VAR54, int *SIZVAR54, my_real *VAR55, int *SIZVAR55, my_real *VAR56, int *SIZVAR56, my_real *VAR57, int *SIZVAR57, my_real *VAR58, int *SIZVAR58, my_real *VAR59, int *SIZVAR59, my_real *VAR60, int *SIZVAR60, my_real *VAR61, int *SIZVAR61, my_real *VAR62, int *SIZVAR62, my_real *VAR63, int *SIZVAR63, my_real *VAR64, int *SIZVAR64, my_real *VAR65, int *SIZVAR65, my_real *VAR66, int *SIZVAR66, my_real *VAR67, int *SIZVAR67, my_real *VAR68, int *SIZVAR68, my_real *VAR69, int *SIZVAR69, my_real *VAR70, int *SIZVAR70, my_real *VAR71, int *SIZVAR72, my_real *VAR73, int *SIZVAR73, my_real *VAR74, int *SIZVAR74, my_real *VAR75, int *SIZVAR75, my_real *VAR76, int *SIZVAR76, my_real *VAR77, int *SIZVAR77, my_real *VAR78, int *SIZVAR78, my_real *VAR79, int *SIZVAR79, my_real *VAR80, int *SIZVAR80, my_real *VAR81, int *SIZVAR81, my_real *VAR82, int *SIZVAR82, my_real *VAR83, int *SIZVAR83, my_real *VAR84, int *SIZVAR84, my_real *VAR85, int *SIZVAR85, my_real *VAR86, int *SIZVAR86, my_real *VAR87, int *SIZVAR87, my_real *VAR88, int *SIZVAR88, my_real *VAR89, int *SIZVAR89, my_real *VAR90, int *SIZVAR90, my_real *VAR91, int *SIZVAR91, my_real *VAR92, int *SIZVAR92, my_real *VAR93, int *SIZVAR93, my_real *VAR94, int *SIZVAR94, my_real *VAR95, int *SIZVAR95, my_real *VAR96, int *SIZVAR96, my_real *VAR97, int *SIZVAR97, my_real *VAR98, int *SIZVAR98, my_real *VAR99, int *SIZVAR99)
Definition dyn_userlib.c:157
eng_userlib_get_lawc_var_
void eng_userlib_get_lawc_var_(int *NCYCLE, int *IMAT, int *ILAYER, int *NPTA, int *IFLAG, my_real *R11, my_real *R12, my_real *R13, my_real *R21, my_real *R22, my_real *R23, my_real *R31, my_real *R32, my_real *R33, my_real *SIGOXX, my_real *SIGOYY, my_real *SIGOXY, my_real *SIGOYZ, my_real *SIGOZX, my_real *EPSPXX, my_real *EPSPYY, my_real *EPSPXY, my_real *EPSPYZ, my_real *EPSPZX, my_real *EPSXX, my_real *EPSYY, my_real *EPSXY, my_real *EPSYZ, my_real *EPSZX, my_real *DEPSXX, my_real *DEPSYY, my_real *DEPSXY, my_real *DEPSYZ, my_real *DEPSZX, my_real *THKLYL, my_real *THKN, my_real *SIGNXX, my_real *SIGNYY, my_real *SIGNXY, my_real *SIGNYZ, my_real *SIGNZX, my_real *SIGVXX, my_real *SIGVYY, my_real *SIGVXY, my_real *SIGVYZ, my_real *SIGVZX, my_real *DPLA)
Definition dyn_userlib.c:1095
eng_userlib_get_law_var_
void eng_userlib_get_law_var_(int *NCYCLE, int *IMAT, int *IPTR, int *IPTS, int *IPTT, my_real *R11, my_real *R12, my_real *R13, my_real *R21, my_real *R22, my_real *R23, my_real *R31, my_real *R32, my_real *R33, my_real *SO1, my_real *SO2, my_real *SO3, my_real *SO4, my_real *SO5, my_real *SO6, my_real *EP1, my_real *EP2, my_real *EP3, my_real *EP4, my_real *EP5, my_real *EP6, my_real *ES1, my_real *ES2, my_real *ES3, my_real *ES4, my_real *ES5, my_real *ES6, my_real *DE1, my_real *DE2, my_real *DE3, my_real *DE4, my_real *DE5, my_real *DE6, my_real *RHO0, my_real *S1, my_real *S2, my_real *S3, my_real *S4, my_real *S5, my_real *S6, my_real *SV1, my_real *SV2, my_real *SV3, my_real *SV4, my_real *SV5, my_real *SV6)
Definition dyn_userlib.c:1427
ENG_USERLIB_GET_LAWC_VAR_2
void _FCALL ENG_USERLIB_GET_LAWC_VAR_2(my_real *VAR01, int *SIZVAR01, my_real *VAR02, int *SIZVAR02, my_real *VAR03, int *SIZVAR03, my_real *VAR04, int *SIZVAR04, my_real *VAR05, int *SIZVAR05, my_real *VAR06, int *SIZVAR06, my_real *VAR07, int *SIZVAR07, my_real *VAR08, int *SIZVAR08, my_real *VAR09, int *SIZVAR09, my_real *VAR10, int *SIZVAR10, my_real *VAR11, int *SIZVAR11, my_real *VAR12, int *SIZVAR12, my_real *VAR13, int *SIZVAR13, my_real *VAR14, int *SIZVAR14, my_real *VAR15, int *SIZVAR15, my_real *VAR16, int *SIZVAR16, my_real *VAR17, int *SIZVAR17, my_real *VAR18, int *SIZVAR18, my_real *VAR19, int *SIZVAR19, my_real *VAR20, int *SIZVAR20, my_real *VAR21, int *SIZVAR21, my_real *VAR22, int *SIZVAR22, my_real *VAR23, int *SIZVAR23, my_real *VAR24, int *SIZVAR24, my_real *VAR25, int *SIZVAR25, my_real *VAR26, int *SIZVAR26, my_real *VAR27, int *SIZVAR27, my_real *VAR28, int *SIZVAR28, my_real *VAR29, int *SIZVAR29, my_real *VAR30, int *SIZVAR30, my_real *VAR31, int *SIZVAR31, my_real *VAR32, int *SIZVAR32, my_real *VAR33, int *SIZVAR33, my_real *VAR34, int *SIZVAR34, my_real *VAR35, int *SIZVAR35, my_real *VAR36, int *SIZVAR36, my_real *VAR37, int *SIZVAR37, my_real *VAR38, int *SIZVAR38, my_real *VAR39, int *SIZVAR39, my_real *VAR40, int *SIZVAR40, my_real *VAR41, int *SIZVAR41, my_real *VAR42, int *SIZVAR42, my_real *VAR43, int *SIZVAR43, my_real *VAR44, int *SIZVAR44, my_real *VAR45, int *SIZVAR45, my_real *VAR46, int *SIZVAR46, my_real *VAR47, int *SIZVAR47, my_real *VAR48, int *SIZVAR48, my_real *VAR49, int *SIZVAR49, my_real *VAR50, int *SIZVAR50, my_real *VAR51, int *SIZVAR51, my_real *VAR52, int *SIZVAR52, my_real *VAR53, int *SIZVAR53, my_real *VAR54, int *SIZVAR54, my_real *VAR55, int *SIZVAR55, my_real *VAR56, int *SIZVAR56, my_real *VAR57, int *SIZVAR57, my_real *VAR58, int *SIZVAR58, my_real *VAR59, int *SIZVAR59, my_real *VAR60, int *SIZVAR60, my_real *VAR61, int *SIZVAR61, my_real *VAR62, int *SIZVAR62, my_real *VAR63, int *SIZVAR63, my_real *VAR64, int *SIZVAR64, my_real *VAR65, int *SIZVAR65, my_real *VAR66, int *SIZVAR66, my_real *VAR67, int *SIZVAR67, my_real *VAR68, int *SIZVAR68, my_real *VAR69, int *SIZVAR69, my_real *VAR70, int *SIZVAR70, my_real *VAR71, int *SIZVAR72, my_real *VAR73, int *SIZVAR73, my_real *VAR74, int *SIZVAR74, my_real *VAR75, int *SIZVAR75, my_real *VAR76, int *SIZVAR76, my_real *VAR77, int *SIZVAR77, my_real *VAR78, int *SIZVAR78, my_real *VAR79, int *SIZVAR79, my_real *VAR80, int *SIZVAR80, my_real *VAR81, int *SIZVAR81, my_real *VAR82, int *SIZVAR82, my_real *VAR83, int *SIZVAR83, my_real *VAR84, int *SIZVAR84, my_real *VAR85, int *SIZVAR85, my_real *VAR86, int *SIZVAR86, my_real *VAR87, int *SIZVAR87, my_real *VAR88, int *SIZVAR88, my_real *VAR89, int *SIZVAR89, my_real *VAR90, int *SIZVAR90, my_real *VAR91, int *SIZVAR91, my_real *VAR92, int *SIZVAR92, my_real *VAR93, int *SIZVAR93, my_real *VAR94, int *SIZVAR94, my_real *VAR95, int *SIZVAR95, my_real *VAR96, int *SIZVAR96, my_real *VAR97, int *SIZVAR97, my_real *VAR98, int *SIZVAR98, my_real *VAR99, int *SIZVAR99)
Definition dyn_userlib.c:1176
ENG_USERLIB_SET_LAW_VAR
void _FCALL ENG_USERLIB_SET_LAW_VAR(my_real *S1, my_real *S2, my_real *S3, my_real *S4, my_real *S5, my_real *S6, my_real *SV1, my_real *SV2, my_real *SV3, my_real *SV4, my_real *SV5, my_real *SV6, my_real *DPLA)
Definition dyn_userlib.c:1566
eng_userlib_uintbuf_var_
void eng_userlib_uintbuf_var_(int *ISLAVE, my_real *AREA, my_real *DT, my_real *DXN, my_real *DXT, my_real *SIGN, my_real *SIGT, my_real *RUPT, my_real *FACN, my_real *FACT)
Definition dyn_userlib.c:1990
eng_userlib_userwi_
void eng_userlib_userwi_(char *ROOTN, int *ROOTLEN, int *NUVAR, int *NUVARI, int *NUMNOD, int *NCYCLE, int *LENWA, int *IUVAR, int *ITAB, my_real *TT, my_real *DT1, my_real *DT2, my_real *USREINT, my_real *EXWORK, my_real *UVAR, my_real *D, my_real *X, my_real *V, my_real *VR, my_real *MASS, my_real *INER, my_real *STIFN, my_real *STIFR, my_real *A, my_real *AR, my_real *WA)
Definition dyn_userlib.c:2030
ENG_USERLIB_USERINT
void _FCALL ENG_USERLIB_USERINT(int *IGTYP, int *NSN, int *II, int *PID, int *NUVAR, my_real *UVAR)
Definition dyn_userlib.c:1958
engine_user_check
void(* engine_user_check)(int *MY_RANK, double *TSTOP, int *NCYCLE, double *TT, int *MSTOP)
Definition dyn_userlib.c:341
eng_set_lawc_user_var_2
void(* eng_set_lawc_user_var_2)(my_real *VAR01, int *SIZVAR01, my_real *VAR02, int *SIZVAR02, my_real *VAR03, int *SIZVAR03, my_real *VAR04, int *SIZVAR04, my_real *VAR05, int *SIZVAR05, my_real *VAR06, int *SIZVAR06, my_real *VAR07, int *SIZVAR07, my_real *VAR08, int *SIZVAR08, my_real *VAR09, int *SIZVAR09, my_real *VAR10, int *SIZVAR10, my_real *VAR11, int *SIZVAR11, my_real *VAR12, int *SIZVAR12, my_real *VAR13, int *SIZVAR13, my_real *VAR14, int *SIZVAR14, my_real *VAR15, int *SIZVAR15, my_real *VAR16, int *SIZVAR16, my_real *VAR17, int *SIZVAR17, my_real *VAR18, int *SIZVAR18, my_real *VAR19, int *SIZVAR19, my_real *VAR20, int *SIZVAR20, my_real *VAR21, int *SIZVAR21, my_real *VAR22, int *SIZVAR22, my_real *VAR23, int *SIZVAR23, my_real *VAR24, int *SIZVAR24, my_real *VAR25, int *SIZVAR25, my_real *VAR26, int *SIZVAR26, my_real *VAR27, int *SIZVAR27, my_real *VAR28, int *SIZVAR28, my_real *VAR29, int *SIZVAR29, my_real *VAR30, int *SIZVAR30, my_real *VAR31, int *SIZVAR31, my_real *VAR32, int *SIZVAR32, my_real *VAR33, int *SIZVAR33, my_real *VAR34, int *SIZVAR34, my_real *VAR35, int *SIZVAR35, my_real *VAR36, int *SIZVAR36, my_real *VAR37, int *SIZVAR37, my_real *VAR38, int *SIZVAR38, my_real *VAR39, int *SIZVAR39, my_real *VAR40, int *SIZVAR40, my_real *VAR41, int *SIZVAR41, my_real *VAR42, int *SIZVAR42, my_real *VAR43, int *SIZVAR43, my_real *VAR44, int *SIZVAR44, my_real *VAR45, int *SIZVAR45, my_real *VAR46, int *SIZVAR46, my_real *VAR47, int *SIZVAR47, my_real *VAR48, int *SIZVAR48, my_real *VAR49, int *SIZVAR49, my_real *VAR50, int *SIZVAR50, my_real *VAR51, int *SIZVAR51, my_real *VAR52, int *SIZVAR52, my_real *VAR53, int *SIZVAR53, my_real *VAR54, int *SIZVAR54, my_real *VAR55, int *SIZVAR55, my_real *VAR56, int *SIZVAR56, my_real *VAR57, int *SIZVAR57, my_real *VAR58, int *SIZVAR58, my_real *VAR59, int *SIZVAR59, my_real *VAR60, int *SIZVAR60, my_real *VAR61, int *SIZVAR61, my_real *VAR62, int *SIZVAR62, my_real *VAR63, int *SIZVAR63, my_real *VAR64, int *SIZVAR64, my_real *VAR65, int *SIZVAR65, my_real *VAR66, int *SIZVAR66, my_real *VAR67, int *SIZVAR67, my_real *VAR68, int *SIZVAR68, my_real *VAR69, int *SIZVAR69, my_real *VAR70, int *SIZVAR70, my_real *VAR71, int *SIZVAR72, my_real *VAR73, int *SIZVAR73, my_real *VAR74, int *SIZVAR74, my_real *VAR75, int *SIZVAR75, my_real *VAR76, int *SIZVAR76, my_real *VAR77, int *SIZVAR77, my_real *VAR78, int *SIZVAR78, my_real *VAR79, int *SIZVAR79, my_real *VAR80, int *SIZVAR80, my_real *VAR81, int *SIZVAR81, my_real *VAR82, int *SIZVAR82, my_real *VAR83, int *SIZVAR83, my_real *VAR84, int *SIZVAR84, my_real *VAR85, int *SIZVAR85, my_real *VAR86, int *SIZVAR86, my_real *VAR87, int *SIZVAR87, my_real *VAR88, int *SIZVAR88, my_real *VAR89, int *SIZVAR89, my_real *VAR90, int *SIZVAR90, my_real *VAR91, int *SIZVAR91, my_real *VAR92, int *SIZVAR92, my_real *VAR93, int *SIZVAR93, my_real *VAR94, int *SIZVAR94, my_real *VAR95, int *SIZVAR95, my_real *VAR96, int *SIZVAR96, my_real *VAR97, int *SIZVAR97, my_real *VAR98, int *SIZVAR98, my_real *VAR99, int *SIZVAR99)
Definition dyn_userlib.c:190
eng_userlib_set_law_var_
void eng_userlib_set_law_var_(my_real *S1, my_real *S2, my_real *S3, my_real *S4, my_real *S5, my_real *S6, my_real *SV1, my_real *SV2, my_real *SV3, my_real *SV4, my_real *SV5, my_real *SV6, my_real *DPLA)
Definition dyn_userlib.c:1579
eng_array_init_
void eng_array_init_()
Definition dyn_userlib.c:346
ENG_USERLIB_SET_LAW_VAR_2
void _FCALL ENG_USERLIB_SET_LAW_VAR_2(my_real *VAR01, int *SIZVAR01, my_real *VAR02, int *SIZVAR02, my_real *VAR03, int *SIZVAR03, my_real *VAR04, int *SIZVAR04, my_real *VAR05, int *SIZVAR05, my_real *VAR06, int *SIZVAR06, my_real *VAR07, int *SIZVAR07, my_real *VAR08, int *SIZVAR08, my_real *VAR09, int *SIZVAR09, my_real *VAR10, int *SIZVAR10, my_real *VAR11, int *SIZVAR11, my_real *VAR12, int *SIZVAR12, my_real *VAR13, int *SIZVAR13, my_real *VAR14, int *SIZVAR14, my_real *VAR15, int *SIZVAR15, my_real *VAR16, int *SIZVAR16, my_real *VAR17, int *SIZVAR17, my_real *VAR18, int *SIZVAR18, my_real *VAR19, int *SIZVAR19, my_real *VAR20, int *SIZVAR20, my_real *VAR21, int *SIZVAR21, my_real *VAR22, int *SIZVAR22, my_real *VAR23, int *SIZVAR23, my_real *VAR24, int *SIZVAR24, my_real *VAR25, int *SIZVAR25, my_real *VAR26, int *SIZVAR26, my_real *VAR27, int *SIZVAR27, my_real *VAR28, int *SIZVAR28, my_real *VAR29, int *SIZVAR29, my_real *VAR30, int *SIZVAR30, my_real *VAR31, int *SIZVAR31, my_real *VAR32, int *SIZVAR32, my_real *VAR33, int *SIZVAR33, my_real *VAR34, int *SIZVAR34, my_real *VAR35, int *SIZVAR35, my_real *VAR36, int *SIZVAR36, my_real *VAR37, int *SIZVAR37, my_real *VAR38, int *SIZVAR38, my_real *VAR39, int *SIZVAR39, my_real *VAR40, int *SIZVAR40, my_real *VAR41, int *SIZVAR41, my_real *VAR42, int *SIZVAR42, my_real *VAR43, int *SIZVAR43, my_real *VAR44, int *SIZVAR44, my_real *VAR45, int *SIZVAR45, my_real *VAR46, int *SIZVAR46, my_real *VAR47, int *SIZVAR47, my_real *VAR48, int *SIZVAR48, my_real *VAR49, int *SIZVAR49, my_real *VAR50, int *SIZVAR50, my_real *VAR51, int *SIZVAR51, my_real *VAR52, int *SIZVAR52, my_real *VAR53, int *SIZVAR53, my_real *VAR54, int *SIZVAR54, my_real *VAR55, int *SIZVAR55, my_real *VAR56, int *SIZVAR56, my_real *VAR57, int *SIZVAR57, my_real *VAR58, int *SIZVAR58, my_real *VAR59, int *SIZVAR59, my_real *VAR60, int *SIZVAR60, my_real *VAR61, int *SIZVAR61, my_real *VAR62, int *SIZVAR62, my_real *VAR63, int *SIZVAR63, my_real *VAR64, int *SIZVAR64, my_real *VAR65, int *SIZVAR65, my_real *VAR66, int *SIZVAR66, my_real *VAR67, int *SIZVAR67, my_real *VAR68, int *SIZVAR68, my_real *VAR69, int *SIZVAR69, my_real *VAR70, int *SIZVAR70, my_real *VAR71, int *SIZVAR72, my_real *VAR73, int *SIZVAR73, my_real *VAR74, int *SIZVAR74, my_real *VAR75, int *SIZVAR75, my_real *VAR76, int *SIZVAR76, my_real *VAR77, int *SIZVAR77, my_real *VAR78, int *SIZVAR78, my_real *VAR79, int *SIZVAR79, my_real *VAR80, int *SIZVAR80, my_real *VAR81, int *SIZVAR81, my_real *VAR82, int *SIZVAR82, my_real *VAR83, int *SIZVAR83, my_real *VAR84, int *SIZVAR84, my_real *VAR85, int *SIZVAR85, my_real *VAR86, int *SIZVAR86, my_real *VAR87, int *SIZVAR87, my_real *VAR88, int *SIZVAR88, my_real *VAR89, int *SIZVAR89, my_real *VAR90, int *SIZVAR90, my_real *VAR91, int *SIZVAR91, my_real *VAR92, int *SIZVAR92, my_real *VAR93, int *SIZVAR93, my_real *VAR94, int *SIZVAR94, my_real *VAR95, int *SIZVAR95, my_real *VAR96, int *SIZVAR96, my_real *VAR97, int *SIZVAR97, my_real *VAR98, int *SIZVAR98, my_real *VAR99, int *SIZVAR99)
Definition dyn_userlib.c:1592
ENG_USERLIB_SIGEPS99
void _FCALL ENG_USERLIB_SIGEPS99(int *NEL, int *NUPARAM, int *NUVAR, int *ILAW_USER, int *NFUNC, int *IFUNC, int *NPF, my_real *TF, my_real *TIME, my_real *TIMESTEP, my_real *UPARAM, my_real *RHO, my_real *VOLUME, my_real *EINT, int *NGL, my_real *SOUNDSP, my_real *VISCMAX, my_real *UVAR, my_real *OFF, my_real *SIGY, my_real *PLA)
Definition dyn_userlib.c:1368
engine_user_finalize
void(* engine_user_finalize)(int *MY_RANK)
Definition dyn_userlib.c:342
eng_sigepsc
void(* eng_sigepsc)(int *ilaw, int *NEL, int *NUPARAM, int *NUVAR, int *NFUNC, int *IFUNC, int *NPF, int *NPT, int *IPT, int *IFLAG, my_real *TF, my_real *TIME, my_real *TIMESTEP, my_real *UPARAM, my_real *RHO0, my_real *AREA, my_real *EINT, my_real *THKLY, my_real *EPSPXX, my_real *EPSPYY, my_real *EPSPXY, my_real *EPSPYZ, my_real *EPSPZX, my_real *DEPSXX, my_real *DEPSYY, my_real *DEPSXY, my_real *DEPSYZ, my_real *DEPSZX, my_real *EPSXX, my_real *EPSYY, my_real *EPSXY, my_real *EPSYZ, my_real *EPSZX, my_real *SIGOXX, my_real *SIGOYY, my_real *SIGOXY, my_real *SIGOYZ, my_real *SIGOZX, my_real *SIGNXX, my_real *SIGNYY, my_real *SIGNXY, my_real *SIGNYZ, my_real *SIGNZX, my_real *SIGVXX, my_real *SIGVYY, my_real *SIGVXY, my_real *SIGVYZ, my_real *SIGVZX, my_real *SOUNDSP, my_real *VISCMAX, my_real *THK, my_real *PLA, my_real *UVAR, my_real *OFF, int *NGL, int *SHF)
Definition dyn_userlib.c:92
ENG_USERLIB_USERWI
void _FCALL ENG_USERLIB_USERWI(char *ROOTN, int *ROOTLEN, int *NUVAR, int *NUVARI, int *NUMNOD, int *NCYCLE, int *LENWA, int *IUVAR, int *ITAB, my_real *TT, my_real *DT1, my_real *DT2, my_real *USREINT, my_real *EXWORK, my_real *UVAR, my_real *D, my_real *X, my_real *V, my_real *VR, my_real *MASS, my_real *INER, my_real *STIFN, my_real *STIFR, my_real *A, my_real *AR, my_real *WA)
Definition dyn_userlib.c:2012
engine_user_initialize
void(* engine_user_initialize)(int *NSPMD, int *NTHREAD, int *MY_RANK)
Definition dyn_userlib.c:343
eng_get_law_user_var
void(* eng_get_law_user_var)(int *NCYCLE, int *IMAT, int *IPTR, int *IPTS, int *IPTT, my_real *UR11, my_real *R12, my_real *R13, my_real *R21, my_real *R22, my_real *R23, my_real *R31, my_real *UR32, my_real *R33, my_real *SO1, my_real *SO2, my_real *SO3, my_real *SO4, my_real *SO5, my_real *SO6, my_real *EP1, my_real *EP2, my_real *EP3, my_real *EP4, my_real *EP5, my_real *EP6, my_real *ES1, my_real *ES2, my_real *ES3, my_real *ES4, my_real *ES5, my_real *ES6, my_real *DE1, my_real *DE2, my_real *DE3, my_real *DE4, my_real *DE5, my_real *DE6, my_real *RHO0, my_real *S1, my_real *S2, my_real *S3, my_real *S4, my_real *S5, my_real *S6, my_real *SV1, my_real *SV2, my_real *SV3, my_real *SV4, my_real *SV5, my_real *SV6)
Definition dyn_userlib.c:225
eng_get_uintbuf_var
void(* eng_get_uintbuf_var)(int *ISLAVE, my_real *AREA, my_real *DT, my_real *DXN, my_real *DXT, my_real *SIGN, my_real *SIGT, my_real *RUPT, my_real *FACN, my_real *FACT)
Definition dyn_userlib.c:326
eng_set_lawc_user_var
void(* eng_set_lawc_user_var)(my_real *SIGNXX, my_real *SIGNYY, my_real *SIGNXY, my_real *SIGNYZ, my_real *SIGNZX, my_real *SIGVXX, my_real *SIGVYY, my_real *SIGVXY, my_real *SIGVYZ, my_real *SIGVZX, my_real *DPLA, my_real *ETSE, my_real *THKN)
Definition dyn_userlib.c:186
ENGINE_USER_CHECK
void _FCALL ENGINE_USER_CHECK(int *MY_RANK, double *TSTOP, int *NCYCLE, double *TT, int *MSTOP)
Definition dyn_userlib.c:2050
engine_user_initialize_
void engine_user_initialize_(int *NSPMD, int *NTHREAD, int *MY_RANK)
Definition dyn_userlib.c:2092
eng_sigeps99
void(* eng_sigeps99)(int *NEL, int *NUPARAM, int *NUVAR, int *ILAW_USER, int *NFUNC, int *IFUNC, int *NPF, my_real *TF, my_real *TIME, my_real *TIMESTEP, my_real *UPARAM, my_real *RHO, my_real *VOLUME, my_real *EINT, int *NGL, my_real *SOUNDSP, my_real *VISCMAX, my_real *UVAR, my_real *OFF, my_real *SIGY, my_real *PLA)
Definition dyn_userlib.c:218
eng_userlib_ruser_
void eng_userlib_ruser_(int *ITYP, int *NEL, int *IPROP, my_real *UVAR, int *NUVAR, my_real *FX, my_real *FY, my_real *FZ, my_real *XMOM, my_real *YMOM, my_real *ZMOM, my_real *E, my_real *OFF, my_real *STIFM, my_real *STIFR, my_real *VISCM, my_real *VISCR, my_real *MASS, my_real *XINER, my_real *DT, my_real *XL, my_real *VX, my_real *RY1, my_real *RZ1, my_real *RX, my_real *RY2, my_real *RZ2, my_real *FR_WAVE)
Definition dyn_userlib.c:1835
eng_userlib_set_lawc_
void eng_userlib_set_lawc_(my_real *SIGNXX, my_real *SIGNYY, my_real *SIGNXY, my_real *SIGNYZ, my_real *SIGNZX, my_real *SIGVXX, my_real *SIGVYY, my_real *SIGVXY, my_real *SIGVYZ, my_real *SIGVZX, my_real *DPLA, my_real *ETSE, my_real *THKN)
Definition dyn_userlib.c:1240
eng_ruser
void(* eng_ruser)(int *ITYP, int *NEL, int *IPROP, my_real *UVAR, int *NUVAR, my_real *FX, my_real *FY, my_real *FZ, my_real *XMOM, my_real *YMOM, my_real *ZMOM, my_real *E, my_real *OFF, my_real *STIFM, my_real *STIFR, my_real *VISCM, my_real *VISCR, my_real *MASS, my_real *XINER, my_real *DT, my_real *XL, my_real *VX, my_real *RY1, my_real *RZ1, my_real *RX, my_real *RY2, my_real *RZ2, my_real *FR_WAVE)
Definition dyn_userlib.c:67
eng_userlib_sigeps99_
void eng_userlib_sigeps99_(int *NEL, int *NUPARAM, int *NUVAR, int *ILAW_USER, int *NFUNC, int *IFUNC, int *NPF, my_real *TF, my_real *TIME, my_real *TIMESTEP, my_real *UPARAM, my_real *RHO, my_real *VOLUME, my_real *EINT, int *NGL, my_real *SOUNDSP, my_real *VISCMAX, my_real *UVAR, my_real *OFF, my_real *SIGY, my_real *PLA)
Definition dyn_userlib.c:1385
eng_userlib_sigeps_
void eng_userlib_sigeps_(int *ilaw, int *NEL, int *NUPARAM, int *NUVAR, int *NFUNC, int *IFUNC, int *NPF, my_real *TF, my_real *TIME, my_real *TIMESTEP, my_real *UPARAM, my_real *RHO0, my_real *RHO, my_real *VOLUME, my_real *EINT, my_real *EPSPXX, my_real *EPSPYY, my_real *EPSPZZ, my_real *EPSPXY, my_real *EPSPYZ, my_real *EPSPZX, my_real *DEPSXX, my_real *DEPSYY, my_real *DEPSZZ, my_real *DEPSXY, my_real *DEPSYZ, my_real *DEPSZX, my_real *EPSXX, my_real *EPSYY, my_real *EPSZZ, my_real *EPSXY, my_real *EPSYZ, my_real *EPSZX, my_real *IGOXX, my_real *SIGOYY, my_real *SIGOZZ, my_real *SIGOXY, my_real *SIGOYZ, my_real *SIGOZX, my_real *SIGNXX, my_real *SIGNYY, my_real *SIGNZZ, my_real *SIGNXY, my_real *SIGNYZ, my_real *SIGNZX, my_real *SIGVXX, my_real *SIGVYY, my_real *SIGVZZ, my_real *SIGVXY, my_real *SIGVYZ, my_real *SIGVZX, my_real *SOUNDSP, my_real *VISCMAX, my_real *UVAR, my_real *OFF)
Definition dyn_userlib.c:930
ENG_USERLIB_SET_LAWC
void _FCALL ENG_USERLIB_SET_LAWC(my_real *SIGNXX, my_real *SIGNYY, my_real *SIGNXY, my_real *SIGNYZ, my_real *SIGNZX, my_real *SIGVXX, my_real *SIGVYY, my_real *SIGVXY, my_real *SIGVYZ, my_real *SIGVZX, my_real *DPLA, my_real *ETSE, my_real *THKN)
Definition dyn_userlib.c:1231
eng_userlib_flaw_
void eng_userlib_flaw_(int *IRUP, int *NEL, int *NUPARAM, int *NUVAR, int *NFUNC, int *IFUNC, int *NPF, my_real *TF, my_real *TIME, my_real *TIMESTEP, my_real *UPARAM, int *NGL, int *IPM, int *NPROPMI, int *MAT, int *IDEL7NOK, my_real *EPSPXX, my_real *EPSPYY, my_real *EPSPZZ, my_real *EPSPXY, my_real *EPSPYZ, my_real *EPSPZX, my_real *EPSXX, my_real *EPSYY, my_real *EPSZZ, my_real *EPSXY, my_real *EPSYZ, my_real *EPSZX, my_real *SIGNXX, my_real *SIGNYY, my_real *SIGNZZ, my_real *SIGNXY, my_real *SIGNYZ, my_real *SIGNZX, my_real *PLA, my_real *DPLA, my_real *EPSP, my_real *UVAR, my_real *OFF, my_real *BIDON1, my_real *BIDON2, my_real *BIDON3, my_real *BIDON4, my_real *BIDON5)
Definition dyn_userlib.c:1785
eng_sigeps99c
void(* eng_sigeps99c)(int *NEL, int *NUPARAM, int *NUVAR, int *ILAW_USER, int *NFUNC, int *IFUNC, int *NPF, int *NGL, my_real *TF, my_real *TIME, my_real *TIMESTEP, my_real *UPARAM, my_real *RHO, my_real *AREA, my_real *EINT, my_real *SHF, my_real *SOUNDSP, my_real *VISCMAX, my_real *PLA, my_real *UVAR, my_real *OFF, my_real *SIGY)
Definition dyn_userlib.c:136
ENG_USERLIB_SUSER
void _FCALL ENG_USERLIB_SUSER(int *ITYP, int *NEL, int *NUVAR, int *IPROP, int *IMAT, int *SOLID_ID, my_real *TIME, my_real *TIMESTEP, my_real *EINT, my_real *VOL, my_real *UVAR, my_real *FR_WAVE, my_real *OFF, my_real *RHO, my_real *SIG, my_real *XX1, my_real *XX2, my_real *XX3, my_real *XX4, my_real *XX5, my_real *XX6, my_real *XX7, my_real *XX8, my_real *YY1, my_real *YY2, my_real *YY3, my_real *YY4, my_real *YY5, my_real *YY6, my_real *YY7, my_real *YY8, my_real *ZZ1, my_real *ZZ2, my_real *ZZ3, my_real *ZZ4, my_real *ZZ5, my_real *ZZ6, my_real *ZZ7, my_real *ZZ8, my_real *UX1, my_real *UX2, my_real *UX3, my_real *UX4, my_real *UX5, my_real *UX6, my_real *UX7, my_real *UX8, my_real *UY1, my_real *UY2, my_real *UY3, my_real *UY4, my_real *UY5, my_real *UY6, my_real *UY7, my_real *UY8, my_real *UZ1, my_real *UZ2, my_real *UZ3, my_real *UZ4, my_real *UZ5, my_real *UZ6, my_real *UZ7, my_real *UZ8, my_real *VX1, my_real *VX2, my_real *VX3, my_real *VX4, my_real *VX5, my_real *VX6, my_real *VX7, my_real *VX8, my_real *VY1, my_real *VY2, my_real *VY3, my_real *VY4, my_real *VY5, my_real *VY6, my_real *VY7, my_real *VY8, my_real *VZ1, my_real *VZ2, my_real *VZ3, my_real *VZ4, my_real *VZ5, my_real *VZ6, my_real *VZ7, my_real *VZ8, my_real *VRX1, my_real *VRX2, my_real *VRX3, my_real *VRX4, my_real *VRX5, my_real *VRX6, my_real *VRX7, my_real *VRX8, my_real *VRY1, my_real *VRY2, my_real *VRY3, my_real *VRY4, my_real *VRY5, my_real *VRY6, my_real *VRY7, my_real *VRY8, my_real *VRZ1, my_real *VRZ2, my_real *VRZ3, my_real *VRZ4, my_real *VRZ5, my_real *VRZ6, my_real *VRZ7, my_real *VRZ8, my_real *FX1, my_real *FX2, my_real *FX3, my_real *FX4, my_real *FX5, my_real *FX6, my_real *FX7, my_real *FX8, my_real *FY1, my_real *FY2, my_real *FY3, my_real *FY4, my_real *FY5, my_real *FY6, my_real *FY7, my_real *FY8, my_real *FZ1, my_real *FZ2, my_real *FZ3, my_real *FZ4, my_real *FZ5, my_real *FZ6, my_real *FZ7, my_real *FZ8, my_real *MX1, my_real *MX2, my_real *MX3, my_real *MX4, my_real *MX5, my_real *MX6, my_real *MX7, my_real *MX8, my_real *MY1, my_real *MY2, my_real *MY3, my_real *MY4, my_real *MY5, my_real *MY6, my_real *MY7, my_real *MY8, my_real *MZ1, my_real *MZ2, my_real *MZ3, my_real *MZ4, my_real *MZ5, my_real *MZ6, my_real *MZ7, my_real *MZ8, my_real *STIFM, my_real *STIFR, my_real *VISCM, my_real *VISCR)
Definition dyn_userlib.c:1855
eng_flawc
void(* eng_flawc)(int *IRUP, int *NEL, int *NUPARAM, int *NUVAR, int *NFUNC, int *IFUNC, int *NPF, my_real *TF, my_real *TIME, my_real *TIMESTEP, my_real *UPARAM, int *NGL, int *IPT, int *NPT0, int *IPM, int *NPROPMI, int *MAT, my_real *SIGNXX, my_real *SIGNYY, my_real *SIGNXY, my_real *SIGNYZ, my_real *SIGNZX, my_real *EPSPXX, my_real *EPSPYY, my_real *EPSPXY, my_real *EPSPYZ, my_real *EPSPZX, my_real *EPSXX, my_real *EPSYY, my_real *EPSXY, my_real *EPSYZ, my_real *EPSZX, my_real *PLA, my_real *DPLA, my_real *EPSP, my_real *UVAR, my_real *UEL, my_real *OFF, my_real *BIDON1, my_real *BIDON2, my_real *BIDON3, my_real *BIDON4, my_real *BIDON5)
Definition dyn_userlib.c:122
ENG_USERLIB_UINTBUF_VAR
void _FCALL ENG_USERLIB_UINTBUF_VAR(int *ISLAVE, my_real *AREA, my_real *DT, my_real *DXN, my_real *DXT, my_real *SIGN, my_real *SIGT, my_real *RUPT, my_real *FACN, my_real *FACT)
Definition dyn_userlib.c:1981
eng_sigeps
void(* eng_sigeps)(int *ilaw, int *NEL, int *NUPARAM, int *NUVAR, int *NFUNC, int *IFUNC, int *NPF, my_real *TF, my_real *TIME, my_real *TIMESTEP, my_real *UPARAM, my_real *RHO0, my_real *RHO, my_real *VOLUME, my_real *EINT, my_real *EPSPXX, my_real *EPSPYY, my_real *EPSPZZ, my_real *EPSPXY, my_real *EPSPYZ, my_real *EPSPZX, my_real *DEPSXX, my_real *DEPSYY, my_real *DEPSZZ, my_real *DEPSXY, my_real *DEPSYZ, my_real *DEPSZX, my_real *EPSXX, my_real *EPSYY, my_real *EPSZZ, my_real *EPSXY, my_real *EPSYZ, my_real *EPSZX, my_real *IGOXX, my_real *SIGOYY, my_real *SIGOZZ, my_real *SIGOXY, my_real *SIGOYZ, my_real *SIGOZX, my_real *SIGNXX, my_real *SIGNYY, my_real *SIGNZZ, my_real *SIGNXY, my_real *SIGNYZ, my_real *SIGNZX, my_real *SIGVXX, my_real *SIGVYY, my_real *SIGVZZ, my_real *SIGVXY, my_real *SIGVYZ, my_real *SIGVZX, my_real *SOUNDSP, my_real *VISCMAX, my_real *UVAR, my_real *OFF)
Definition dyn_userlib.c:77
ENG_USERLIB_SIGEPS99C
void _FCALL ENG_USERLIB_SIGEPS99C(int *NEL, int *NUPARAM, int *NUVAR, int *ILAW_USER, int *NFUNC, int *IFUNC, int *NPF, int *NGL, my_real *TF, my_real *TIME, my_real *TIMESTEP, my_real *UPARAM, my_real *RHO, my_real *AREA, my_real *EINT, my_real *SHF, my_real *SOUNDSP, my_real *VISCMAX, my_real *PLA, my_real *UVAR, my_real *OFF, my_real *SIGY)
Definition dyn_userlib.c:1037
ENG_USERLIB_SET_LAWC_VAR_2
void _FCALL ENG_USERLIB_SET_LAWC_VAR_2(my_real *VAR01, int *SIZVAR01, my_real *VAR02, int *SIZVAR02, my_real *VAR03, int *SIZVAR03, my_real *VAR04, int *SIZVAR04, my_real *VAR05, int *SIZVAR05, my_real *VAR06, int *SIZVAR06, my_real *VAR07, int *SIZVAR07, my_real *VAR08, int *SIZVAR08, my_real *VAR09, int *SIZVAR09, my_real *VAR10, int *SIZVAR10, my_real *VAR11, int *SIZVAR11, my_real *VAR12, int *SIZVAR12, my_real *VAR13, int *SIZVAR13, my_real *VAR14, int *SIZVAR14, my_real *VAR15, int *SIZVAR15, my_real *VAR16, int *SIZVAR16, my_real *VAR17, int *SIZVAR17, my_real *VAR18, int *SIZVAR18, my_real *VAR19, int *SIZVAR19, my_real *VAR20, int *SIZVAR20, my_real *VAR21, int *SIZVAR21, my_real *VAR22, int *SIZVAR22, my_real *VAR23, int *SIZVAR23, my_real *VAR24, int *SIZVAR24, my_real *VAR25, int *SIZVAR25, my_real *VAR26, int *SIZVAR26, my_real *VAR27, int *SIZVAR27, my_real *VAR28, int *SIZVAR28, my_real *VAR29, int *SIZVAR29, my_real *VAR30, int *SIZVAR30, my_real *VAR31, int *SIZVAR31, my_real *VAR32, int *SIZVAR32, my_real *VAR33, int *SIZVAR33, my_real *VAR34, int *SIZVAR34, my_real *VAR35, int *SIZVAR35, my_real *VAR36, int *SIZVAR36, my_real *VAR37, int *SIZVAR37, my_real *VAR38, int *SIZVAR38, my_real *VAR39, int *SIZVAR39, my_real *VAR40, int *SIZVAR40, my_real *VAR41, int *SIZVAR41, my_real *VAR42, int *SIZVAR42, my_real *VAR43, int *SIZVAR43, my_real *VAR44, int *SIZVAR44, my_real *VAR45, int *SIZVAR45, my_real *VAR46, int *SIZVAR46, my_real *VAR47, int *SIZVAR47, my_real *VAR48, int *SIZVAR48, my_real *VAR49, int *SIZVAR49, my_real *VAR50, int *SIZVAR50, my_real *VAR51, int *SIZVAR51, my_real *VAR52, int *SIZVAR52, my_real *VAR53, int *SIZVAR53, my_real *VAR54, int *SIZVAR54, my_real *VAR55, int *SIZVAR55, my_real *VAR56, int *SIZVAR56, my_real *VAR57, int *SIZVAR57, my_real *VAR58, int *SIZVAR58, my_real *VAR59, int *SIZVAR59, my_real *VAR60, int *SIZVAR60, my_real *VAR61, int *SIZVAR61, my_real *VAR62, int *SIZVAR62, my_real *VAR63, int *SIZVAR63, my_real *VAR64, int *SIZVAR64, my_real *VAR65, int *SIZVAR65, my_real *VAR66, int *SIZVAR66, my_real *VAR67, int *SIZVAR67, my_real *VAR68, int *SIZVAR68, my_real *VAR69, int *SIZVAR69, my_real *VAR70, int *SIZVAR70, my_real *VAR71, int *SIZVAR72, my_real *VAR73, int *SIZVAR73, my_real *VAR74, int *SIZVAR74, my_real *VAR75, int *SIZVAR75, my_real *VAR76, int *SIZVAR76, my_real *VAR77, int *SIZVAR77, my_real *VAR78, int *SIZVAR78, my_real *VAR79, int *SIZVAR79, my_real *VAR80, int *SIZVAR80, my_real *VAR81, int *SIZVAR81, my_real *VAR82, int *SIZVAR82, my_real *VAR83, int *SIZVAR83, my_real *VAR84, int *SIZVAR84, my_real *VAR85, int *SIZVAR85, my_real *VAR86, int *SIZVAR86, my_real *VAR87, int *SIZVAR87, my_real *VAR88, int *SIZVAR88, my_real *VAR89, int *SIZVAR89, my_real *VAR90, int *SIZVAR90, my_real *VAR91, int *SIZVAR91, my_real *VAR92, int *SIZVAR92, my_real *VAR93, int *SIZVAR93, my_real *VAR94, int *SIZVAR94, my_real *VAR95, int *SIZVAR95, my_real *VAR96, int *SIZVAR96, my_real *VAR97, int *SIZVAR97, my_real *VAR98, int *SIZVAR98, my_real *VAR99, int *SIZVAR99)
Definition dyn_userlib.c:1249
engine_user_check_
void engine_user_check_(int *MY_RANK, double *TSTOP, int *NCYCLE, double *TT, int *MSTOP)
Definition dyn_userlib.c:2058
eng_set_law_user_var_2
void(* eng_set_law_user_var_2)(my_real *VAR01, int *SIZVAR01, my_real *VAR02, int *SIZVAR02, my_real *VAR03, int *SIZVAR03, my_real *VAR04, int *SIZVAR04, my_real *VAR05, int *SIZVAR05, my_real *VAR06, int *SIZVAR06, my_real *VAR07, int *SIZVAR07, my_real *VAR08, int *SIZVAR08, my_real *VAR09, int *SIZVAR09, my_real *VAR10, int *SIZVAR10, my_real *VAR11, int *SIZVAR11, my_real *VAR12, int *SIZVAR12, my_real *VAR13, int *SIZVAR13, my_real *VAR14, int *SIZVAR14, my_real *VAR15, int *SIZVAR15, my_real *VAR16, int *SIZVAR16, my_real *VAR17, int *SIZVAR17, my_real *VAR18, int *SIZVAR18, my_real *VAR19, int *SIZVAR19, my_real *VAR20, int *SIZVAR20, my_real *VAR21, int *SIZVAR21, my_real *VAR22, int *SIZVAR22, my_real *VAR23, int *SIZVAR23, my_real *VAR24, int *SIZVAR24, my_real *VAR25, int *SIZVAR25, my_real *VAR26, int *SIZVAR26, my_real *VAR27, int *SIZVAR27, my_real *VAR28, int *SIZVAR28, my_real *VAR29, int *SIZVAR29, my_real *VAR30, int *SIZVAR30, my_real *VAR31, int *SIZVAR31, my_real *VAR32, int *SIZVAR32, my_real *VAR33, int *SIZVAR33, my_real *VAR34, int *SIZVAR34, my_real *VAR35, int *SIZVAR35, my_real *VAR36, int *SIZVAR36, my_real *VAR37, int *SIZVAR37, my_real *VAR38, int *SIZVAR38, my_real *VAR39, int *SIZVAR39, my_real *VAR40, int *SIZVAR40, my_real *VAR41, int *SIZVAR41, my_real *VAR42, int *SIZVAR42, my_real *VAR43, int *SIZVAR43, my_real *VAR44, int *SIZVAR44, my_real *VAR45, int *SIZVAR45, my_real *VAR46, int *SIZVAR46, my_real *VAR47, int *SIZVAR47, my_real *VAR48, int *SIZVAR48, my_real *VAR49, int *SIZVAR49, my_real *VAR50, int *SIZVAR50, my_real *VAR51, int *SIZVAR51, my_real *VAR52, int *SIZVAR52, my_real *VAR53, int *SIZVAR53, my_real *VAR54, int *SIZVAR54, my_real *VAR55, int *SIZVAR55, my_real *VAR56, int *SIZVAR56, my_real *VAR57, int *SIZVAR57, my_real *VAR58, int *SIZVAR58, my_real *VAR59, int *SIZVAR59, my_real *VAR60, int *SIZVAR60, my_real *VAR61, int *SIZVAR61, my_real *VAR62, int *SIZVAR62, my_real *VAR63, int *SIZVAR63, my_real *VAR64, int *SIZVAR64, my_real *VAR65, int *SIZVAR65, my_real *VAR66, int *SIZVAR66, my_real *VAR67, int *SIZVAR67, my_real *VAR68, int *SIZVAR68, my_real *VAR69, int *SIZVAR69, my_real *VAR70, int *SIZVAR70, my_real *VAR71, int *SIZVAR72, my_real *VAR73, int *SIZVAR73, my_real *VAR74, int *SIZVAR74, my_real *VAR75, int *SIZVAR75, my_real *VAR76, int *SIZVAR76, my_real *VAR77, int *SIZVAR77, my_real *VAR78, int *SIZVAR78, my_real *VAR79, int *SIZVAR79, my_real *VAR80, int *SIZVAR80, my_real *VAR81, int *SIZVAR81, my_real *VAR82, int *SIZVAR82, my_real *VAR83, int *SIZVAR83, my_real *VAR84, int *SIZVAR84, my_real *VAR85, int *SIZVAR85, my_real *VAR86, int *SIZVAR86, my_real *VAR87, int *SIZVAR87, my_real *VAR88, int *SIZVAR88, my_real *VAR89, int *SIZVAR89, my_real *VAR90, int *SIZVAR90, my_real *VAR91, int *SIZVAR91, my_real *VAR92, int *SIZVAR92, my_real *VAR93, int *SIZVAR93, my_real *VAR94, int *SIZVAR94, my_real *VAR95, int *SIZVAR95, my_real *VAR96, int *SIZVAR96, my_real *VAR97, int *SIZVAR97, my_real *VAR98, int *SIZVAR98, my_real *VAR99, int *SIZVAR99)
Definition dyn_userlib.c:265
ENG_USERLIB_GET_LAW_VAR
void _FCALL ENG_USERLIB_GET_LAW_VAR(int *NCYCLE, int *IMAT, int *IPTR, int *IPTS, int *IPTT, my_real *R11, my_real *R12, my_real *R13, my_real *R21, my_real *R22, my_real *R23, my_real *R31, my_real *R32, my_real *R33, my_real *SO1, my_real *SO2, my_real *SO3, my_real *SO4, my_real *SO5, my_real *SO6, my_real *EP1, my_real *EP2, my_real *EP3, my_real *EP4, my_real *EP5, my_real *EP6, my_real *ES1, my_real *ES2, my_real *ES3, my_real *ES4, my_real *ES5, my_real *ES6, my_real *DE1, my_real *DE2, my_real *DE3, my_real *DE4, my_real *DE5, my_real *DE6, my_real *RHO0, my_real *S1, my_real *S2, my_real *S3, my_real *S4, my_real *S5, my_real *S6, my_real *SV1, my_real *SV2, my_real *SV3, my_real *SV4, my_real *SV5, my_real *SV6)
Definition dyn_userlib.c:1403
userlib_init_callback
void userlib_init_callback()
Definition dyn_userlib.c:608
eng_suser
void(* eng_suser)(int *ITYP, int *NEL, int *NUVAR, int *IPROP, int *IMAT, int *SOLID_ID, my_real *TIME, my_real *TIMESTEP, my_real *EINT, my_real *VOL, my_real *UVAR, my_real *FR_WAVE, my_real *OFF, my_real *RHO, my_real *SIG, my_real *XX1, my_real *XX2, my_real *XX3, my_real *XX4, my_real *XX5, my_real *XX6, my_real *XX7, my_real *XX8, my_real *YY1, my_real *YY2, my_real *YY3, my_real *YY4, my_real *YY5, my_real *YY6, my_real *YY7, my_real *YY8, my_real *ZZ1, my_real *ZZ2, my_real *ZZ3, my_real *ZZ4, my_real *ZZ5, my_real *ZZ6, my_real *ZZ7, my_real *ZZ8, my_real *UX1, my_real *UX2, my_real *UX3, my_real *UX4, my_real *UX5, my_real *UX6, my_real *UX7, my_real *UX8, my_real *UY1, my_real *UY2, my_real *UY3, my_real *UY4, my_real *UY5, my_real *UY6, my_real *UY7, my_real *UY8, my_real *UZ1, my_real *UZ2, my_real *UZ3, my_real *UZ4, my_real *UZ5, my_real *UZ6, my_real *UZ7, my_real *UZ8, my_real *VX1, my_real *VX2, my_real *VX3, my_real *VX4, my_real *VX5, my_real *VX6, my_real *VX7, my_real *VX8, my_real *VY1, my_real *VY2, my_real *VY3, my_real *VY4, my_real *VY5, my_real *VY6, my_real *VY7, my_real *VY8, my_real *VZ1, my_real *VZ2, my_real *VZ3, my_real *VZ4, my_real *VZ5, my_real *VZ6, my_real *VZ7, my_real *VZ8, my_real *VRX1, my_real *VRX2, my_real *VRX3, my_real *VRX4, my_real *VRX5, my_real *VRX6, my_real *VRX7, my_real *VRX8, my_real *VRY1, my_real *VRY2, my_real *VRY3, my_real *VRY4, my_real *VRY5, my_real *VRY6, my_real *VRY7, my_real *VRY8, my_real *VRZ1, my_real *VRZ2, my_real *VRZ3, my_real *VRZ4, my_real *VRZ5, my_real *VRZ6, my_real *VRZ7, my_real *VRZ8, my_real *FX1, my_real *FX2, my_real *FX3, my_real *FX4, my_real *FX5, my_real *FX6, my_real *FX7, my_real *FX8, my_real *FY1, my_real *FY2, my_real *FY3, my_real *FY4, my_real *FY5, my_real *FY6, my_real *FY7, my_real *FY8, my_real *FZ1, my_real *FZ2, my_real *FZ3, my_real *FZ4, my_real *FZ5, my_real *FZ6, my_real *FZ7, my_real *FZ8, my_real *MX1, my_real *MX2, my_real *MX3, my_real *MX4, my_real *MX5, my_real *MX6, my_real *MX7, my_real *MX8, my_real *MY1, my_real *MY2, my_real *MY3, my_real *MY4, my_real *MY5, my_real *MY6, my_real *MY7, my_real *MY8, my_real *MZ1, my_real *MZ2, my_real *MZ3, my_real *MZ4, my_real *MZ5, my_real *MZ6, my_real *MZ7, my_real *MZ8, my_real *STIFM, my_real *STIFR, my_real *VISCM, my_real *VISCR)
Definition dyn_userlib.c:295
eng_userlib_user_sens_
void _FCALL eng_userlib_user_sens_(int *TYP, int *ID)
Definition dyn_userlib.c:2004
engine_user_finalize_
void engine_user_finalize_(int *MY_RANK)
Definition dyn_userlib.c:2075
ENG_USERLIB_GET_LAW_VAR_2
void _FCALL ENG_USERLIB_GET_LAW_VAR_2(my_real *FPSXX, int *SIZFPSXX, my_real *FPSYY, int *SIZFPSYY, my_real *FPSZZ, int *SIZFPSZZ, my_real *FPSXY, int *SIZFPSXY, my_real *FPSYZ, int *SIZFPSYZ, my_real *FPSZX, int *SIZFPSZX, my_real *FPSYX, int *SIZFPSYX, my_real *FPSZY, int *SIZFPSZY, my_real *FPSXZ, int *SIZFPSXZ, my_real *VAR10, int *SIZVAR10, my_real *VAR11, int *SIZVAR11, my_real *VAR12, int *SIZVAR12, my_real *VAR13, int *SIZVAR13, my_real *VAR14, int *SIZVAR14, my_real *VAR15, int *SIZVAR15, my_real *VAR16, int *SIZVAR16, my_real *VAR17, int *SIZVAR17, my_real *VAR18, int *SIZVAR18, my_real *VAR19, int *SIZVAR19, my_real *VAR20, int *SIZVAR20, my_real *VAR21, int *SIZVAR21, my_real *VAR22, int *SIZVAR22, my_real *VAR23, int *SIZVAR23, my_real *VAR24, int *SIZVAR24, my_real *VAR25, int *SIZVAR25, my_real *VAR26, int *SIZVAR26, my_real *VAR27, int *SIZVAR27, my_real *VAR28, int *SIZVAR28, my_real *VAR29, int *SIZVAR29, my_real *VAR30, int *SIZVAR30, my_real *VAR31, int *SIZVAR31, my_real *VAR32, int *SIZVAR32, my_real *VAR33, int *SIZVAR33, my_real *VAR34, int *SIZVAR34, my_real *VAR35, int *SIZVAR35, my_real *VAR36, int *SIZVAR36, my_real *VAR37, int *SIZVAR37, my_real *VAR38, int *SIZVAR38, my_real *VAR39, int *SIZVAR39, my_real *VAR40, int *SIZVAR40, my_real *VAR41, int *SIZVAR41, my_real *VAR42, int *SIZVAR42, my_real *VAR43, int *SIZVAR43, my_real *VAR44, int *SIZVAR44, my_real *VAR45, int *SIZVAR45, my_real *VAR46, int *SIZVAR46, my_real *VAR47, int *SIZVAR47, my_real *VAR48, int *SIZVAR48, my_real *VAR49, int *SIZVAR49, my_real *VAR50, int *SIZVAR50, my_real *VAR51, int *SIZVAR51, my_real *VAR52, int *SIZVAR52, my_real *VAR53, int *SIZVAR53, my_real *VAR54, int *SIZVAR54, my_real *VAR55, int *SIZVAR55, my_real *VAR56, int *SIZVAR56, my_real *VAR57, int *SIZVAR57, my_real *VAR58, int *SIZVAR58, my_real *VAR59, int *SIZVAR59, my_real *VAR60, int *SIZVAR60, my_real *VAR61, int *SIZVAR61, my_real *VAR62, int *SIZVAR62, my_real *VAR63, int *SIZVAR63, my_real *VAR64, int *SIZVAR64, my_real *VAR65, int *SIZVAR65, my_real *VAR66, int *SIZVAR66, my_real *VAR67, int *SIZVAR67, my_real *VAR68, int *SIZVAR68, my_real *VAR69, int *SIZVAR69, my_real *VAR70, int *SIZVAR70, my_real *VAR71, int *SIZVAR72, my_real *VAR73, int *SIZVAR73, my_real *VAR74, int *SIZVAR74, my_real *VAR75, int *SIZVAR75, my_real *VAR76, int *SIZVAR76, my_real *VAR77, int *SIZVAR77, my_real *VAR78, int *SIZVAR78, my_real *VAR79, int *SIZVAR79, my_real *VAR80, int *SIZVAR80, my_real *VAR81, int *SIZVAR81, my_real *VAR82, int *SIZVAR82, my_real *VAR83, int *SIZVAR83, my_real *VAR84, int *SIZVAR84, my_real *VAR85, int *SIZVAR85, my_real *VAR86, int *SIZVAR86, my_real *VAR87, int *SIZVAR87, my_real *VAR88, int *SIZVAR88, my_real *VAR89, int *SIZVAR89, my_real *VAR90, int *SIZVAR90, my_real *VAR91, int *SIZVAR91, my_real *VAR92, int *SIZVAR92, my_real *VAR93, int *SIZVAR93, my_real *VAR94, int *SIZVAR94, my_real *VAR95, int *SIZVAR95, my_real *VAR96, int *SIZVAR96, my_real *VAR97, int *SIZVAR97, my_real *VAR98, int *SIZVAR98, my_real *VAR99, int *SIZVAR99)
Definition dyn_userlib.c:1508
eng_userlib_sigeps99c_
void eng_userlib_sigeps99c_(int *NEL, int *NUPARAM, int *NUVAR, int *ILAW_USER, int *NFUNC, int *IFUNC, int *NPF, int *NGL, my_real *TF, my_real *TIME, my_real *TIMESTEP, my_real *UPARAM, my_real *RHO, my_real *AREA, my_real *EINT, my_real *SHF, my_real *SOUNDSP, my_real *VISCMAX, my_real *PLA, my_real *UVAR, my_real *OFF, my_real *SIGY)
Definition dyn_userlib.c:1055
ENG_USERLIB_GET_LAWC_VAR
void _FCALL ENG_USERLIB_GET_LAWC_VAR(int *NCYCLE, int *IMAT, int *ILAYER, int *NPTA, int *IFLAG, my_real *R11, my_real *R12, my_real *R13, my_real *R21, my_real *R22, my_real *R23, my_real *R31, my_real *R32, my_real *R33, my_real *SIGOXX, my_real *SIGOYY, my_real *SIGOXY, my_real *SIGOYZ, my_real *SIGOZX, my_real *EPSPXX, my_real *EPSPYY, my_real *EPSPXY, my_real *EPSPYZ, my_real *EPSPZX, my_real *EPSXX, my_real *EPSYY, my_real *EPSXY, my_real *EPSYZ, my_real *EPSZX, my_real *DEPSXX, my_real *DEPSYY, my_real *DEPSXY, my_real *DEPSYZ, my_real *DEPSZX, my_real *THKLYL, my_real *THKN, my_real *SIGNXX, my_real *SIGNYY, my_real *SIGNXY, my_real *SIGNYZ, my_real *SIGNZX, my_real *SIGVXX, my_real *SIGVYY, my_real *SIGVXY, my_real *SIGVYZ, my_real *SIGVZX, my_real *DPLA)
Definition dyn_userlib.c:1071
ENG_USERLIB_SIGEPSC
void _FCALL ENG_USERLIB_SIGEPSC(int *ilaw, int *NEL, int *NUPARAM, int *NUVAR, int *NFUNC, int *IFUNC, int *NPF, int *NPT, int *IPT, int *IFLAG, my_real *TF, my_real *TIME, my_real *TIMESTEP, my_real *UPARAM, my_real *RHO0, my_real *AREA, my_real *EINT, my_real *THKLY, my_real *EPSPXX, my_real *EPSPYY, my_real *EPSPXY, my_real *EPSPYZ, my_real *EPSPZX, my_real *DEPSXX, my_real *DEPSYY, my_real *DEPSXY, my_real *DEPSYZ, my_real *DEPSZX, my_real *EPSXX, my_real *EPSYY, my_real *EPSXY, my_real *EPSYZ, my_real *EPSZX, my_real *SIGOXX, my_real *SIGOYY, my_real *SIGOXY, my_real *SIGOYZ, my_real *SIGOZX, my_real *SIGNXX, my_real *SIGNYY, my_real *SIGNXY, my_real *SIGNYZ, my_real *SIGNZX, my_real *SIGVXX, my_real *SIGVYY, my_real *SIGVXY, my_real *SIGVYZ, my_real *SIGVZX, my_real *SOUNDSP, my_real *VISCMAX, my_real *THK, my_real *PLA, my_real *UVAR, my_real *OFF, int *NGL, int *SHF)
Definition dyn_userlib.c:965
ENG_USERLIB_FLAW
void _FCALL ENG_USERLIB_FLAW(int *IRUP, int *NEL, int *NUPARAM, int *NUVAR, int *NFUNC, int *IFUNC, int *NPF, my_real *TF, my_real *TIME, my_real *TIMESTEP, my_real *UPARAM, int *NGL, int *IPM, int *NPROPMI, int *MAT, int *IDEL7NOK, my_real *EPSPXX, my_real *EPSPYY, my_real *EPSPZZ, my_real *EPSPXY, my_real *EPSPYZ, my_real *EPSPZX, my_real *EPSXX, my_real *EPSYY, my_real *EPSZZ, my_real *EPSXY, my_real *EPSYZ, my_real *EPSZX, my_real *SIGNXX, my_real *SIGNYY, my_real *SIGNZZ, my_real *SIGNXY, my_real *SIGNYZ, my_real *SIGNZX, my_real *PLA, my_real *DPLA, my_real *EPSP, my_real *UVAR, my_real *OFF, my_real *BIDON1, my_real *BIDON2, my_real *BIDON3, my_real *BIDON4, my_real *BIDON5)
Definition dyn_userlib.c:1761
eng_get_lawc_user_var
void(* eng_get_lawc_user_var)(int *NCYCLE, int *IMAT, int *ILAYER, int *NPTA, int *IFLAG, my_real *R11, my_real *R12, my_real *R13, my_real *R21, my_real *R22, my_real *R23, my_real *R31, my_real *R32, my_real *R33, my_real *SIGOXX, my_real *SIGOYY, my_real *SIGOXY, my_real *SIGOYZ, my_real *SIGOZX, my_real *EPSPXX, my_real *EPSPYY, my_real *EPSPXY, my_real *EPSPYZ, my_real *EPSPZX, my_real *EPSXX, my_real *EPSYY, my_real *EPSXY, my_real *EPSYZ, my_real *EPSZX, my_real *DEPSXX, my_real *DEPSYY, my_real *DEPSXY, my_real *DEPSYZ, my_real *DEPSZX, my_real *THKLYL, my_real *THKN, my_real *SIGNXX, my_real *SIGNYY, my_real *SIGNXY, my_real *SIGNYZ, my_real *SIGNZX, my_real *SIGVXX, my_real *SIGVYY, my_real *SIGVXY, my_real *SIGVYZ, my_real *SIGVZX, my_real *DPLA)
Definition dyn_userlib.c:145
eng_userlib_suser_
void eng_userlib_suser_(int *ITYP, int *NEL, int *NUVAR, int *IPROP, int *IMAT, int *SOLID_ID, my_real *TIME, my_real *TIMESTEP, my_real *EINT, my_real *VOL, my_real *UVAR, my_real *FR_WAVE, my_real *OFF, my_real *RHO, my_real *SIG, my_real *XX1, my_real *XX2, my_real *XX3, my_real *XX4, my_real *XX5, my_real *XX6, my_real *XX7, my_real *XX8, my_real *YY1, my_real *YY2, my_real *YY3, my_real *YY4, my_real *YY5, my_real *YY6, my_real *YY7, my_real *YY8, my_real *ZZ1, my_real *ZZ2, my_real *ZZ3, my_real *ZZ4, my_real *ZZ5, my_real *ZZ6, my_real *ZZ7, my_real *ZZ8, my_real *UX1, my_real *UX2, my_real *UX3, my_real *UX4, my_real *UX5, my_real *UX6, my_real *UX7, my_real *UX8, my_real *UY1, my_real *UY2, my_real *UY3, my_real *UY4, my_real *UY5, my_real *UY6, my_real *UY7, my_real *UY8, my_real *UZ1, my_real *UZ2, my_real *UZ3, my_real *UZ4, my_real *UZ5, my_real *UZ6, my_real *UZ7, my_real *UZ8, my_real *VX1, my_real *VX2, my_real *VX3, my_real *VX4, my_real *VX5, my_real *VX6, my_real *VX7, my_real *VX8, my_real *VY1, my_real *VY2, my_real *VY3, my_real *VY4, my_real *VY5, my_real *VY6, my_real *VY7, my_real *VY8, my_real *VZ1, my_real *VZ2, my_real *VZ3, my_real *VZ4, my_real *VZ5, my_real *VZ6, my_real *VZ7, my_real *VZ8, my_real *VRX1, my_real *VRX2, my_real *VRX3, my_real *VRX4, my_real *VRX5, my_real *VRX6, my_real *VRX7, my_real *VRX8, my_real *VRY1, my_real *VRY2, my_real *VRY3, my_real *VRY4, my_real *VRY5, my_real *VRY6, my_real *VRY7, my_real *VRY8, my_real *VRZ1, my_real *VRZ2, my_real *VRZ3, my_real *VRZ4, my_real *VRZ5, my_real *VRZ6, my_real *VRZ7, my_real *VRZ8, my_real *FX1, my_real *FX2, my_real *FX3, my_real *FX4, my_real *FX5, my_real *FX6, my_real *FX7, my_real *FX8, my_real *FY1, my_real *FY2, my_real *FY3, my_real *FY4, my_real *FY5, my_real *FY6, my_real *FY7, my_real *FY8, my_real *FZ1, my_real *FZ2, my_real *FZ3, my_real *FZ4, my_real *FZ5, my_real *FZ6, my_real *FZ7, my_real *FZ8, my_real *MX1, my_real *MX2, my_real *MX3, my_real *MX4, my_real *MX5, my_real *MX6, my_real *MX7, my_real *MX8, my_real *MY1, my_real *MY2, my_real *MY3, my_real *MY4, my_real *MY5, my_real *MY6, my_real *MY7, my_real *MY8, my_real *MZ1, my_real *MZ2, my_real *MZ3, my_real *MZ4, my_real *MZ5, my_real *MZ6, my_real *MZ7, my_real *MZ8, my_real *STIFM, my_real *STIFR, my_real *VISCM, my_real *VISCR)
Definition dyn_userlib.c:1905
eng_userlib_set_law_var_2_
void eng_userlib_set_law_var_2_(my_real *VAR01, int *SIZVAR01, my_real *VAR02, int *SIZVAR02, my_real *VAR03, int *SIZVAR03, my_real *VAR04, int *SIZVAR04, my_real *VAR05, int *SIZVAR05, my_real *VAR06, int *SIZVAR06, my_real *VAR07, int *SIZVAR07, my_real *VAR08, int *SIZVAR08, my_real *VAR09, int *SIZVAR09, my_real *VAR10, int *SIZVAR10, my_real *VAR11, int *SIZVAR11, my_real *VAR12, int *SIZVAR12, my_real *VAR13, int *SIZVAR13, my_real *VAR14, int *SIZVAR14, my_real *VAR15, int *SIZVAR15, my_real *VAR16, int *SIZVAR16, my_real *VAR17, int *SIZVAR17, my_real *VAR18, int *SIZVAR18, my_real *VAR19, int *SIZVAR19, my_real *VAR20, int *SIZVAR20, my_real *VAR21, int *SIZVAR21, my_real *VAR22, int *SIZVAR22, my_real *VAR23, int *SIZVAR23, my_real *VAR24, int *SIZVAR24, my_real *VAR25, int *SIZVAR25, my_real *VAR26, int *SIZVAR26, my_real *VAR27, int *SIZVAR27, my_real *VAR28, int *SIZVAR28, my_real *VAR29, int *SIZVAR29, my_real *VAR30, int *SIZVAR30, my_real *VAR31, int *SIZVAR31, my_real *VAR32, int *SIZVAR32, my_real *VAR33, int *SIZVAR33, my_real *VAR34, int *SIZVAR34, my_real *VAR35, int *SIZVAR35, my_real *VAR36, int *SIZVAR36, my_real *VAR37, int *SIZVAR37, my_real *VAR38, int *SIZVAR38, my_real *VAR39, int *SIZVAR39, my_real *VAR40, int *SIZVAR40, my_real *VAR41, int *SIZVAR41, my_real *VAR42, int *SIZVAR42, my_real *VAR43, int *SIZVAR43, my_real *VAR44, int *SIZVAR44, my_real *VAR45, int *SIZVAR45, my_real *VAR46, int *SIZVAR46, my_real *VAR47, int *SIZVAR47, my_real *VAR48, int *SIZVAR48, my_real *VAR49, int *SIZVAR49, my_real *VAR50, int *SIZVAR50, my_real *VAR51, int *SIZVAR51, my_real *VAR52, int *SIZVAR52, my_real *VAR53, int *SIZVAR53, my_real *VAR54, int *SIZVAR54, my_real *VAR55, int *SIZVAR55, my_real *VAR56, int *SIZVAR56, my_real *VAR57, int *SIZVAR57, my_real *VAR58, int *SIZVAR58, my_real *VAR59, int *SIZVAR59, my_real *VAR60, int *SIZVAR60, my_real *VAR61, int *SIZVAR61, my_real *VAR62, int *SIZVAR62, my_real *VAR63, int *SIZVAR63, my_real *VAR64, int *SIZVAR64, my_real *VAR65, int *SIZVAR65, my_real *VAR66, int *SIZVAR66, my_real *VAR67, int *SIZVAR67, my_real *VAR68, int *SIZVAR68, my_real *VAR69, int *SIZVAR69, my_real *VAR70, int *SIZVAR70, my_real *VAR71, int *SIZVAR72, my_real *VAR73, int *SIZVAR73, my_real *VAR74, int *SIZVAR74, my_real *VAR75, int *SIZVAR75, my_real *VAR76, int *SIZVAR76, my_real *VAR77, int *SIZVAR77, my_real *VAR78, int *SIZVAR78, my_real *VAR79, int *SIZVAR79, my_real *VAR80, int *SIZVAR80, my_real *VAR81, int *SIZVAR81, my_real *VAR82, int *SIZVAR82, my_real *VAR83, int *SIZVAR83, my_real *VAR84, int *SIZVAR84, my_real *VAR85, int *SIZVAR85, my_real *VAR86, int *SIZVAR86, my_real *VAR87, int *SIZVAR87, my_real *VAR88, int *SIZVAR88, my_real *VAR89, int *SIZVAR89, my_real *VAR90, int *SIZVAR90, my_real *VAR91, int *SIZVAR91, my_real *VAR92, int *SIZVAR92, my_real *VAR93, int *SIZVAR93, my_real *VAR94, int *SIZVAR94, my_real *VAR95, int *SIZVAR95, my_real *VAR96, int *SIZVAR96, my_real *VAR97, int *SIZVAR97, my_real *VAR98, int *SIZVAR98, my_real *VAR99, int *SIZVAR99)
Definition dyn_userlib.c:1647
eng_userint
void(* eng_userint)(int *IGTYP, int *NSN, int *II, int *PID, int *NUVAR, my_real *UVAR)
Definition dyn_userlib.c:322
ENG_USERLIB_RUSER
void _FCALL ENG_USERLIB_RUSER(int *ITYP, int *NEL, int *IPROP, my_real *UVAR, int *NUVAR, my_real *FX, my_real *FY, my_real *FZ, my_real *XMOM, my_real *YMOM, my_real *ZMOM, my_real *E, my_real *OFF, my_real *STIFM, my_real *STIFR, my_real *VISCM, my_real *VISCR, my_real *MASS, my_real *XINER, my_real *DT, my_real *XL, my_real *VX, my_real *RY1, my_real *RZ1, my_real *RX, my_real *RY2, my_real *RZ2, my_real *FR_WAVE)
Definition dyn_userlib.c:1815
eng_userlib_get_lawc_var_2_
void eng_userlib_get_lawc_var_2_(my_real *VAR01, int *SIZVAR01, my_real *VAR02, int *SIZVAR02, my_real *VAR03, int *SIZVAR03, my_real *VAR04, int *SIZVAR04, my_real *VAR05, int *SIZVAR05, my_real *VAR06, int *SIZVAR06, my_real *VAR07, int *SIZVAR07, my_real *VAR08, int *SIZVAR08, my_real *VAR09, int *SIZVAR09, my_real *VAR10, int *SIZVAR10, my_real *VAR11, int *SIZVAR11, my_real *VAR12, int *SIZVAR12, my_real *VAR13, int *SIZVAR13, my_real *VAR14, int *SIZVAR14, my_real *VAR15, int *SIZVAR15, my_real *VAR16, int *SIZVAR16, my_real *VAR17, int *SIZVAR17, my_real *VAR18, int *SIZVAR18, my_real *VAR19, int *SIZVAR19, my_real *VAR20, int *SIZVAR20, my_real *VAR21, int *SIZVAR21, my_real *VAR22, int *SIZVAR22, my_real *VAR23, int *SIZVAR23, my_real *VAR24, int *SIZVAR24, my_real *VAR25, int *SIZVAR25, my_real *VAR26, int *SIZVAR26, my_real *VAR27, int *SIZVAR27, my_real *VAR28, int *SIZVAR28, my_real *VAR29, int *SIZVAR29, my_real *VAR30, int *SIZVAR30, my_real *VAR31, int *SIZVAR31, my_real *VAR32, int *SIZVAR32, my_real *VAR33, int *SIZVAR33, my_real *VAR34, int *SIZVAR34, my_real *VAR35, int *SIZVAR35, my_real *VAR36, int *SIZVAR36, my_real *VAR37, int *SIZVAR37, my_real *VAR38, int *SIZVAR38, my_real *VAR39, int *SIZVAR39, my_real *VAR40, int *SIZVAR40, my_real *VAR41, int *SIZVAR41, my_real *VAR42, int *SIZVAR42, my_real *VAR43, int *SIZVAR43, my_real *VAR44, int *SIZVAR44, my_real *VAR45, int *SIZVAR45, my_real *VAR46, int *SIZVAR46, my_real *VAR47, int *SIZVAR47, my_real *VAR48, int *SIZVAR48, my_real *VAR49, int *SIZVAR49, my_real *VAR50, int *SIZVAR50, my_real *VAR51, int *SIZVAR51, my_real *VAR52, int *SIZVAR52, my_real *VAR53, int *SIZVAR53, my_real *VAR54, int *SIZVAR54, my_real *VAR55, int *SIZVAR55, my_real *VAR56, int *SIZVAR56, my_real *VAR57, int *SIZVAR57, my_real *VAR58, int *SIZVAR58, my_real *VAR59, int *SIZVAR59, my_real *VAR60, int *SIZVAR60, my_real *VAR61, int *SIZVAR61, my_real *VAR62, int *SIZVAR62, my_real *VAR63, int *SIZVAR63, my_real *VAR64, int *SIZVAR64, my_real *VAR65, int *SIZVAR65, my_real *VAR66, int *SIZVAR66, my_real *VAR67, int *SIZVAR67, my_real *VAR68, int *SIZVAR68, my_real *VAR69, int *SIZVAR69, my_real *VAR70, int *SIZVAR70, my_real *VAR71, int *SIZVAR72, my_real *VAR73, int *SIZVAR73, my_real *VAR74, int *SIZVAR74, my_real *VAR75, int *SIZVAR75, my_real *VAR76, int *SIZVAR76, my_real *VAR77, int *SIZVAR77, my_real *VAR78, int *SIZVAR78, my_real *VAR79, int *SIZVAR79, my_real *VAR80, int *SIZVAR80, my_real *VAR81, int *SIZVAR81, my_real *VAR82, int *SIZVAR82, my_real *VAR83, int *SIZVAR83, my_real *VAR84, int *SIZVAR84, my_real *VAR85, int *SIZVAR85, my_real *VAR86, int *SIZVAR86, my_real *VAR87, int *SIZVAR87, my_real *VAR88, int *SIZVAR88, my_real *VAR89, int *SIZVAR89, my_real *VAR90, int *SIZVAR90, my_real *VAR91, int *SIZVAR91, my_real *VAR92, int *SIZVAR92, my_real *VAR93, int *SIZVAR93, my_real *VAR94, int *SIZVAR94, my_real *VAR95, int *SIZVAR95, my_real *VAR96, int *SIZVAR96, my_real *VAR97, int *SIZVAR97, my_real *VAR98, int *SIZVAR98, my_real *VAR99, int *SIZVAR99)
Definition dyn_userlib.c:1120
eng_userlib_get_law_var_2_
void eng_userlib_get_law_var_2_(my_real *FPSXX, int *SIZFPSXX, my_real *FPSYY, int *SIZFPSYY, my_real *FPSZZ, int *SIZFPSZZ, my_real *FPSXY, int *SIZFPSXY, my_real *FPSYZ, int *SIZFPSYZ, my_real *FPSZX, int *SIZFPSZX, my_real *FPSYX, int *SIZFPSYX, my_real *FPSZY, int *SIZFPSZY, my_real *FPSXZ, int *SIZFPSXZ, my_real *VAR10, int *SIZVAR10, my_real *VAR11, int *SIZVAR11, my_real *VAR12, int *SIZVAR12, my_real *VAR13, int *SIZVAR13, my_real *VAR14, int *SIZVAR14, my_real *VAR15, int *SIZVAR15, my_real *VAR16, int *SIZVAR16, my_real *VAR17, int *SIZVAR17, my_real *VAR18, int *SIZVAR18, my_real *VAR19, int *SIZVAR19, my_real *VAR20, int *SIZVAR20, my_real *VAR21, int *SIZVAR21, my_real *VAR22, int *SIZVAR22, my_real *VAR23, int *SIZVAR23, my_real *VAR24, int *SIZVAR24, my_real *VAR25, int *SIZVAR25, my_real *VAR26, int *SIZVAR26, my_real *VAR27, int *SIZVAR27, my_real *VAR28, int *SIZVAR28, my_real *VAR29, int *SIZVAR29, my_real *VAR30, int *SIZVAR30, my_real *VAR31, int *SIZVAR31, my_real *VAR32, int *SIZVAR32, my_real *VAR33, int *SIZVAR33, my_real *VAR34, int *SIZVAR34, my_real *VAR35, int *SIZVAR35, my_real *VAR36, int *SIZVAR36, my_real *VAR37, int *SIZVAR37, my_real *VAR38, int *SIZVAR38, my_real *VAR39, int *SIZVAR39, my_real *VAR40, int *SIZVAR40, my_real *VAR41, int *SIZVAR41, my_real *VAR42, int *SIZVAR42, my_real *VAR43, int *SIZVAR43, my_real *VAR44, int *SIZVAR44, my_real *VAR45, int *SIZVAR45, my_real *VAR46, int *SIZVAR46, my_real *VAR47, int *SIZVAR47, my_real *VAR48, int *SIZVAR48, my_real *VAR49, int *SIZVAR49, my_real *VAR50, int *SIZVAR50, my_real *VAR51, int *SIZVAR51, my_real *VAR52, int *SIZVAR52, my_real *VAR53, int *SIZVAR53, my_real *VAR54, int *SIZVAR54, my_real *VAR55, int *SIZVAR55, my_real *VAR56, int *SIZVAR56, my_real *VAR57, int *SIZVAR57, my_real *VAR58, int *SIZVAR58, my_real *VAR59, int *SIZVAR59, my_real *VAR60, int *SIZVAR60, my_real *VAR61, int *SIZVAR61, my_real *VAR62, int *SIZVAR62, my_real *VAR63, int *SIZVAR63, my_real *VAR64, int *SIZVAR64, my_real *VAR65, int *SIZVAR65, my_real *VAR66, int *SIZVAR66, my_real *VAR67, int *SIZVAR67, my_real *VAR68, int *SIZVAR68, my_real *VAR69, int *SIZVAR69, my_real *VAR70, int *SIZVAR70, my_real *VAR71, int *SIZVAR72, my_real *VAR73, int *SIZVAR73, my_real *VAR74, int *SIZVAR74, my_real *VAR75, int *SIZVAR75, my_real *VAR76, int *SIZVAR76, my_real *VAR77, int *SIZVAR77, my_real *VAR78, int *SIZVAR78, my_real *VAR79, int *SIZVAR79, my_real *VAR80, int *SIZVAR80, my_real *VAR81, int *SIZVAR81, my_real *VAR82, int *SIZVAR82, my_real *VAR83, int *SIZVAR83, my_real *VAR84, int *SIZVAR84, my_real *VAR85, int *SIZVAR85, my_real *VAR86, int *SIZVAR86, my_real *VAR87, int *SIZVAR87, my_real *VAR88, int *SIZVAR88, my_real *VAR89, int *SIZVAR89, my_real *VAR90, int *SIZVAR90, my_real *VAR91, int *SIZVAR91, my_real *VAR92, int *SIZVAR92, my_real *VAR93, int *SIZVAR93, my_real *VAR94, int *SIZVAR94, my_real *VAR95, int *SIZVAR95, my_real *VAR96, int *SIZVAR96, my_real *VAR97, int *SIZVAR97, my_real *VAR98, int *SIZVAR98, my_real *VAR99, int *SIZVAR99)
Definition dyn_userlib.c:1451
load_libname
char load_libname[20000]
Definition h3d_dl.c:66
_FCALL
#define _FCALL
Definition memory_use_c.c:25
dynlib_mod::dlib_array
integer, dimension(nbr_dlib) dlib_array
Definition dynlib_mod.F:65
ROOTLEN
#define ROOTLEN
Definition rad2rad_c.c:92
init_callback
void init_callback(void **callback_array)
Definition dyn_userlib_callback.c:128
userlibhandler
HINSTANCE userlibhandler
Definition dyn_userlib.c:117
userlib_id
void(* userlib_id)(int *info)
Definition dyn_userlib.c:97
delete_user_file_
void delete_user_file_(char *filnam, int *len)
Definition dyn_userlib.c:826
set_library_callback
void(* set_library_callback)(void *callback_array[200])
Definition dyn_userlib.c:118
DYN_USERLIB_INIT
void _FCALL DYN_USERLIB_INIT(char *libname, int *size, int *userlib_avail, int *userlib_ver, int *iresp, int *userlib_altname)
Definition dyn_userlib.c:119
DELETE_USER_FILE
void _FCALL DELETE_USER_FILE(char *filnam, int *len)
Definition dyn_userlib.c:840
userlibhandle
void * userlibhandle
Definition dyn_userlib.c:61