OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
dyn_userlib.c File Reference
#include "hardware.inc"
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <math.h>
#include <fcntl.h>
#include <windows.h>
#include <process.h>
#include <io.h>
#include <sys\types.h>
#include <sys/stat.h>

Go to the source code of this file.

Macros

#define _FCALL

Functions

void st_array_init_ ()
void init_callback (void **callback_array)
void dll_init_callback ()
void _FCALL DYN_USERLIB_INIT (char *libname, int *size, int *userlib_avail, int *userlib_ver, int *iresp, int *userlib_altname)
void _FCALL ST_USERLIB_LECG (int *igtyp, char *rootn, int *rootlen, int *nuvar, my_real *pargeo)
void st_userlib_lecg_ (int *igtyp, char *rootn, int *rootlen, int *nuvar, my_real *pargeo)
void _FCALL ST_USERLIB_LECGUSER (int *igtyp, char *rootn, int *rootlen, int *nuvar, my_real *pargeo)
void st_userlib_lecguser_ (int *igtyp, char *rootn, int *rootlen, int *nuvar, my_real *pargeo)
void _FCALL ST_USERLIB_USERMAT (int *MATNUM, char *ROOTN, int *ROOTLEN, my_real *UPARAM, int *MAXUPARAM, int *NUPARAM, int *NUVAR, int *IFUNC, int *MAXFUNC, int *MFUNC, my_real *PARMAT, int *UNITAB)
void st_userlib_usermat_ (int *MATNUM, char *ROOTN, int *ROOTLEN, my_real *UPARAM, int *MAXUPARAM, int *NUPARAM, int *NUVAR, int *IFUNC, int *MAXFUNC, int *MFUNC, my_real *PARMAT, int *UNITAB)
void _FCALL ST_USERLIB_LECM99 (int *ilaw, char *rootn, int *rootlen, int *iuser_law, my_real *uparam, int *maxuparam, int *nuparam, int *nuvar, int *ifunc, int *maxfunc, int *nfunc, my_real *parmat)
void st_userlib_lecm99_ (int *ilaw, char *rootn, int *rootlen, int *iuser_law, my_real *uparam, int *maxuparam, int *nuparam, int *nuvar, int *ifunc, int *maxfunc, int *nfunc, my_real *parmat)
void _FCALL ST_USERLIB_LECR (int *RUPTID, char *ROOTN, int *ROOTLEN, my_real *UPARAM, int *MAXUPARAM, int *NUPARAM, int *NUVAR, int *IFUNC, int *MAXFUNC, int *MFUNC, int *ID)
void st_userlib_lecr_ (int *RUPTID, char *ROOTN, int *ROOTLEN, my_real *UPARAM, int *MAXUPARAM, int *NUPARAM, int *NUVAR, int *IFUNC, int *MAXFUNC, int *MFUNC, int *ID)
void _FCALL ST_USERLIB_LECSEN (int *typ, char *rootn, int *rootlen)
void st_userlib_lecsen_ (int *typ, char *rootn, int *rootlen)
void _FCALL ST_USERLIB_RINIUSER (int *igtyp, char *rootn, int *rootlen, int *nel, int *iprop, int *ix, my_real *xl, my_real *mass, my_real *xiner, my_real *stifn, my_real *stifr, my_real *vism, my_real *visr, my_real *uvar, int *nuvar)
void st_userlib_riniuser_ (int *igtyp, char *rootn, int *rootlen, int *nel, int *iprop, int *ix, my_real *xl, my_real *mass, my_real *xiner, my_real *stifn, my_real *stifr, my_real *vism, my_real *visr, my_real *uvar, int *nuvar)
void _FCALL ST_USERLIB_SINIUSR (int *ITYP, char *ROOTN, int *ROOTLEN, 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 *VVX8, my_real *VY1, my_real *VY2, my_real *VY3, my_real *VY4, my_real *VY5, my_real *VY6, my_real *VY7, my_real *VVY8, my_real *VZ1, my_real *VZ2, my_real *VZ3, my_real *VZ4, my_real *VZ5, my_real *VZ6, my_real *VZ7, my_real *VVZ8, my_real *VRX1, my_real *VRX2, my_real *VRX3, my_real *VRX4, my_real *VRX5, my_real *VRX6, my_real *VRX7, my_real *VVRX8, my_real *VRY1, my_real *VRY2, my_real *VRY3, my_real *VRY4, my_real *VRY5, my_real *VRY6, my_real *VRY7, my_real *VVRY8, my_real *VRZ1, my_real *VRZ2, my_real *VRZ3, my_real *VRZ4, my_real *VRZ5, my_real *VRZ6, my_real *VRZ7, my_real *VVRZ8, my_real *FX1, my_real *FX2, my_real *FX3, my_real *FX4, my_real *FX5, my_real *FX6, my_real *FX7, my_real *VFX8, my_real *FY1, my_real *FY2, my_real *FY3, my_real *FY4, my_real *FY5, my_real *FY6, my_real *FY7, my_real *VFY8, my_real *FZ1, my_real *FZ2, my_real *FZ3, my_real *FZ4, my_real *FZ5, my_real *FZ6, my_real *FZ7, my_real *VFZ8, my_real *MX1, my_real *MX2, my_real *MX3, my_real *MX4, my_real *MX5, my_real *MX6, my_real *MX7, my_real *VMX8, 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)
void st_userlib_siniusr_ (int *ITYP, char *ROOTN, int *ROOTLEN, 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 *VVX8, my_real *VY1, my_real *VY2, my_real *VY3, my_real *VY4, my_real *VY5, my_real *VY6, my_real *VY7, my_real *VVY8, my_real *VZ1, my_real *VZ2, my_real *VZ3, my_real *VZ4, my_real *VZ5, my_real *VZ6, my_real *VZ7, my_real *VVZ8, my_real *VRX1, my_real *VRX2, my_real *VRX3, my_real *VRX4, my_real *VRX5, my_real *VRX6, my_real *VRX7, my_real *VVRX8, my_real *VRY1, my_real *VRY2, my_real *VRY3, my_real *VRY4, my_real *VRY5, my_real *VRY6, my_real *VRY7, my_real *VVRY8, my_real *VRZ1, my_real *VRZ2, my_real *VRZ3, my_real *VRZ4, my_real *VRZ5, my_real *VRZ6, my_real *VRZ7, my_real *VVRZ8, my_real *FX1, my_real *FX2, my_real *FX3, my_real *FX4, my_real *FX5, my_real *FX6, my_real *FX7, my_real *VFX8, my_real *FY1, my_real *FY2, my_real *FY3, my_real *FY4, my_real *FY5, my_real *FY6, my_real *FY7, my_real *VFY8, my_real *FZ1, my_real *FZ2, my_real *FZ3, my_real *FZ4, my_real *FZ5, my_real *FZ6, my_real *FZ7, my_real *VFZ8, my_real *MX1, my_real *MX2, my_real *MX3, my_real *MX4, my_real *MX5, my_real *MX6, my_real *MX7, my_real *VMX8, 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)
void _FCALL ST_USERLIB_USERWIS (char *rootn, int *rootlen, int *numnod, int *itab, my_real *x, my_real *v, my_real *vr, my_real *mass, my_real *iner, int *nuvar, int *nuvari, my_real *uvar, int *iuvar)
void st_userlib_userwis_ (char *rootn, int *rootlen, int *numnod, int *itab, my_real *x, my_real *v, my_real *vr, my_real *mass, my_real *iner, int *nuvar, int *nuvari, my_real *uvar, int *iuvar)
void _FCALL ST_USERLIB_USERWIS_INI (char *rootn, int *rootlen, int *iuparam, int *numnod, int *itab, my_real *x, my_real *v, my_real *vr, my_real *mass, my_real *iner, int *nuvar, int *nuvari, my_real *uvar, int *iuvar)
void st_userlib_userwis_ini_ (char *rootn, int *rootlen, int *iuparam, int *numnod, int *itab, my_real *x, my_real *v, my_real *vr, my_real *mass, my_real *iner, int *nuvar, int *nuvari, my_real *uvar, int *iuvar)
void _FCALL ST_GET_USERBUF_VAR (int *id, char *title)
void st_get_userbuf_var_ (int *id, char *title)
void delete_user_file_ (char *filnam, int *len)
void _FCALL DELETE_USER_FILE (char *filnam, int *len)

Variables

void * userlibhandle
void(* st_lecg )(int *igtyp, char *rootn, int *rootlen, int *nuvar, my_real *pargeo)
void(* st_lecguser )(int *igtyp, char *rootn, int *rootlen, int *nuvar, my_real *pargeo)
void(* st_lecm )(int *ilaw, char *rootn, int *rootlen, my_real *uparam, int *maxuparam, int *nuparam, int *nuvar, int *ifunc, int *maxfunc, int *mfunc, my_real *parmat, int *unitab)
void(* st_lecr )(int *irupt, char *rootn, int *rootlen, my_real *uparam, int *maxuparam, int *nuparam, int *nuvar, int *ifunc, int *maxfunc, int *mfunc, int *id)
void(* st_lecm99 )(int *ilaw, char *rootn, int *rootlen, int *iuser_law, my_real *uparam, int *maxuparam, int *nuparam, int *nuvar, int *ifunc, int *maxfunc, int *nfunc, my_real *parmat)
void(* st_lecsen )(int *typ, char *rootn, int *rootlen)
void(* st_riniuser )(int *igtyp, char *rootn, int *rootlen, int *nel, int *iprop, int *ix, my_real *xl, my_real *mass, my_real *xiner, my_real *stifn, my_real *stifr, my_real *vism, my_real *visr, my_real *uvar, int *nuvar)
void(* st_userwis )(char *rootn, int *rootlen, int *numnod, int *itab, my_real *x, my_real *v, my_real *vr, my_real *mass, my_real *iner, int *nuvar, int *nuvari, my_real *uvar, int *iuvar)
void(* st_userwis_ini )(char *rootn, int *rootlen, int *iuparam, int *numnod, int *itab, my_real *x, my_real *v, my_real *vr, my_real *mass, my_real *iner, int *nuvar, int *nuvari, my_real *uvar, int *iuvar)
void(* st_siniusr )(int *ITYP, char *ROOTN, int *ROOTLEN, 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 *VVX8, my_real *VY1, my_real *VY2, my_real *VY3, my_real *VY4, my_real *VY5, my_real *VY6, my_real *VY7, my_real *VVY8, my_real *VZ1, my_real *VZ2, my_real *VZ3, my_real *VZ4, my_real *VZ5, my_real *VZ6, my_real *VZ7, my_real *VVZ8, my_real *VRX1, my_real *VRX2, my_real *VRX3, my_real *VRX4, my_real *VRX5, my_real *VRX6, my_real *VRX7, my_real *VVRX8, my_real *VRY1, my_real *VRY2, my_real *VRY3, my_real *VRY4, my_real *VRY5, my_real *VRY6, my_real *VRY7, my_real *VVRY8, my_real *VRZ1, my_real *VRZ2, my_real *VRZ3, my_real *VRZ4, my_real *VRZ5, my_real *VRZ6, my_real *VRZ7, my_real *VVRZ8, my_real *FX1, my_real *FX2, my_real *FX3, my_real *FX4, my_real *FX5, my_real *FX6, my_real *FX7, my_real *VFX8, my_real *FY1, my_real *FY2, my_real *FY3, my_real *FY4, my_real *FY5, my_real *FY6, my_real *FY7, my_real *VFY8, my_real *FZ1, my_real *FZ2, my_real *FZ3, my_real *FZ4, my_real *FZ5, my_real *FZ6, my_real *FZ7, my_real *VFZ8, my_real *MX1, my_real *MX2, my_real *MX3, my_real *MX4, my_real *MX5, my_real *MX6, my_real *MX7, my_real *VMX8, 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)
void(* st_get_userbuf_variable )(int *id, char *title)
void(* userlib_id )(int *info)
HINSTANCE userlibhandler
void(* set_library_callback )(void *callback_array[200])

Macro Definition Documentation

◆ _FCALL

#define _FCALL

Definition at line 41 of file dyn_userlib.c.

Function Documentation

◆ DELETE_USER_FILE()

void _FCALL DELETE_USER_FILE ( char * filnam,
int * len )

Definition at line 840 of file dyn_userlib.c.

841{
842 int i;
843 char * filn;
844 filn = (char*)malloc(sizeof(char)* 1+ *len);
845 for (i=0;i< *len ; i++){
846 filn[i]=filnam[i];
847 }
848 filn[*len]='\0';
849
850 remove(filn);
851 free(filn);
852}

◆ delete_user_file_()

void delete_user_file_ ( char * filnam,
int * len )

Definition at line 826 of file dyn_userlib.c.

827{
828 int i;
829 char * filn;
830 filn = (char*)malloc(sizeof(char)* 1+ *len);
831 for (i=0;i< *len ; i++){
832 filn[i]=filnam[i];
833 }
834 filn[*len]='\0';
835
836 remove(filn);
837 free(filn);
838}

◆ dll_init_callback()

void dll_init_callback ( )

Definition at line 286 of file dyn_userlib.c.

286 {
287 void * callback_array[200];
288 init_callback(callback_array);
289 fflush(stdout);
290 set_library_callback(callback_array);
291}
init_callback
void init_callback(void **callback_array)
Definition dyn_userlib_callback.c:128
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 at line 119 of file dyn_userlib.c.

119 {
120
121 char* libn,current_dir;
122 int i;
123 char rname[256];
124 char dllpath[10240],dllname[15000];
125 int result,dllpath_size;
126 int err;
127 int has_path;
128 err=0;
129 *userlib_avail=0;
130 st_array_init_();
131
132 if(*userlib_altname==0){
133 if(*iresp==1){
134 libname[*size ]='w';
135 libname[*size+1 ]='i';
136 libname[*size+2 ]='n';
137 libname[*size+3 ]='6';
138 libname[*size+4 ]='4';
139 libname[*size+5 ]='_';
140 libname[*size+6 ]='s';
141 libname[*size+7 ]='p';
142 libname[*size+8 ]='.';
143 libname[*size+9 ]='d';
144 libname[*size+10]='l';
145 libname[*size+11]='l';
146 *size = *size + 12;
147 }else{
148 libname[*size ]='w';
149 libname[*size+1]='i';
150 libname[*size+2]='n';
151 libname[*size+3]='6';
152 libname[*size+4]='4';
153 libname[*size+5]='.';
154 libname[*size+6]='d';
155 libname[*size+7]='l';
156 libname[*size+8]='l';
157 *size = *size + 9;
158 }
159 }
160 libn = (char * )malloc(sizeof(char)* *size+1);
161 for (i=0;i<*size;i++)libn[i]=libname[i];
162 libn[*size]='\0';
163
164/* it is possible to set a path when using alternate library names*/
165 has_path=0;
166 for (i=0;i<*size;i++){
167 if (libn[i]==47 || libn[i]==92)has_path=1;
168 }
169
170 userlibhandler=NULL;
171 if (has_path==1){
172 userlibhandler = LoadLibrary(TEXT(libn));
173 }else{
174
175 /* first trial find Environment variable RAD_USERLIB_LIBPATH */
176 dllpath_size=GetEnvironmentVariable("RAD_USERLIB_LIBPATH",dllpath,10240);
177 if (dllpath_size > 0){
178 strcpy_s(dllname,15000,dllpath);
179 strcat_s(dllname,15000,"\\");
180 strcat_s(dllname,15000,libn);
181 userlibhandler = LoadLibrary(TEXT(dllname));
182 }
183
184 if (!userlibhandler){
185 /* second trial find Environment variable in local directory */
186 dllpath_size=GetCurrentDirectory(10240,dllpath);
187 strcpy_s(dllname,15000,dllpath);
188 strcat_s(dllname,15000,"\\");
189 strcat_s(dllname,15000,libn);
190 userlibhandler = LoadLibrary(TEXT(dllname));
191 }
192
193 if (!userlibhandler){
194 /* third trial find Environment variable in %PATH% */
195 dllpath_size=GetEnvironmentVariable("PATH",dllpath,10240);
196 SetDllDirectory(dllpath);
197 userlibhandler = LoadLibrary(TEXT(libn));
198 }
199
200 }
201 if (userlibhandler){
202
203/* Routine ST_LECG */
204 sprintf(rname,"ST_LECG");
205 st_lecg=(void*)GetProcAddress(userlibhandler,rname);
206 if (!st_lecg) err=err+1;
207
208/* Routine ST_LECGUSER */
209 sprintf(rname,"ST_LECGUSER");
210 st_lecguser=(void*)GetProcAddress(userlibhandler,rname);
211 if (!st_lecguser) err=err+1;
212
213/* Routine ST_LECM */
214 sprintf(rname,"ST_LECM");
215 st_lecm=(void*)GetProcAddress(userlibhandler,rname);
216 if (!st_lecm) err=err+1;
217
218/* Routine ST_LECR */
219 sprintf(rname,"ST_LECR");
220 st_lecr=(void*)GetProcAddress(userlibhandler,rname);
221 if (!st_lecr) err=err+1;
222
223/* Routine ST_LECM99 */
224 sprintf(rname,"ST_LECM99");
225 st_lecm99=(void*)GetProcAddress(userlibhandler,rname);
226 if (!st_lecm99) err=err+1;
227
228/* Routine ST_LECSEN */
229 sprintf(rname,"ST_LECSEN");
230 st_lecsen=(void*)GetProcAddress(userlibhandler,rname);
231 if (!st_lecsen) err=err+1;
232
233/* Routine ST_RINIUSER */
234 sprintf(rname,"ST_RINIUSER");
235 st_riniuser=(void*)GetProcAddress(userlibhandler,rname);
236 if (!st_riniuser) err=err+1;
237
238/* Routine ST_SINIUSR */
239 sprintf(rname,"ST_SINIUSR");
240 st_siniusr=(void*)GetProcAddress(userlibhandler,rname);
241 if (!st_siniusr) err=err+1;
242
243/* Routine ST_USERWIS */
244 sprintf(rname,"ST_USERWIS");
245 st_userwis=(void*)GetProcAddress(userlibhandler,rname);
246 if (!st_userwis) err=err+1;
247
248/* Routine ST_USERWIS_INI */
249 sprintf(rname,"ST_USERWIS_INI");
250 st_userwis_ini=(void*)GetProcAddress(userlibhandler,rname);
251 if (!st_userwis_ini) err=err+1;
252
253/* Routine ST_GET_USERBUF_VARIABLE */
254 sprintf(rname,"ST_GET_USERBUF_VAR");
255 st_get_userbuf_variable=(void*)GetProcAddress(userlibhandler,rname);
256 if (!st_get_userbuf_variable) err=err+1;
257
258/* System - Library ID Version */
259 sprintf(rname,"userlib_id");
260 userlib_id=(void*)GetProcAddress(userlibhandler,rname);
261 if(userlib_id) {
262 userlib_id(userlib_ver);
263 }else{
264 err = err+1;
265 }
266
267/* System - Windows Callback Routine */
268 sprintf(rname,"set_callback");
269 set_library_callback=(void*)GetProcAddress(userlibhandler,rname);
270 if(set_library_callback) {
271 dll_init_callback();
272 }else{
273 err = err+1;
274 }
275 if (err==0){ *userlib_avail = 1;}
276 else{
277 /* printf("ko : %i \n",err); */
278 }
279
280 }else{
281 /* printf("load unsuccessful\n"); */
282 }
283}
st_array_init_
void st_array_init_()
Definition dyn_userlib.c:99
userlibhandler
HINSTANCE userlibhandler
Definition dyn_userlib.c:117
st_lecm
void(* st_lecm)(int *ilaw, char *rootn, int *rootlen, my_real *uparam, int *maxuparam, int *nuparam, int *nuvar, int *ifunc, int *maxfunc, int *mfunc, my_real *parmat, int *unitab)
Definition dyn_userlib.c:65
userlib_id
void(* userlib_id)(int *info)
Definition dyn_userlib.c:97
st_lecg
void(* st_lecg)(int *igtyp, char *rootn, int *rootlen, int *nuvar, my_real *pargeo)
Definition dyn_userlib.c:63
st_riniuser
void(* st_riniuser)(int *igtyp, char *rootn, int *rootlen, int *nel, int *iprop, int *ix, my_real *xl, my_real *mass, my_real *xiner, my_real *stifn, my_real *stifr, my_real *vism, my_real *visr, my_real *uvar, int *nuvar)
Definition dyn_userlib.c:69
dll_init_callback
void dll_init_callback()
Definition dyn_userlib.c:286
st_lecm99
void(* st_lecm99)(int *ilaw, char *rootn, int *rootlen, int *iuser_law, my_real *uparam, int *maxuparam, int *nuparam, int *nuvar, int *ifunc, int *maxfunc, int *nfunc, my_real *parmat)
Definition dyn_userlib.c:67
st_userwis
void(* st_userwis)(char *rootn, int *rootlen, int *numnod, int *itab, my_real *x, my_real *v, my_real *vr, my_real *mass, my_real *iner, int *nuvar, int *nuvari, my_real *uvar, int *iuvar)
Definition dyn_userlib.c:70
st_get_userbuf_variable
void(* st_get_userbuf_variable)(int *id, char *title)
Definition dyn_userlib.c:95
st_siniusr
void(* st_siniusr)(int *ITYP, char *ROOTN, int *ROOTLEN, 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 *VVX8, my_real *VY1, my_real *VY2, my_real *VY3, my_real *VY4, my_real *VY5, my_real *VY6, my_real *VY7, my_real *VVY8, my_real *VZ1, my_real *VZ2, my_real *VZ3, my_real *VZ4, my_real *VZ5, my_real *VZ6, my_real *VZ7, my_real *VVZ8, my_real *VRX1, my_real *VRX2, my_real *VRX3, my_real *VRX4, my_real *VRX5, my_real *VRX6, my_real *VRX7, my_real *VVRX8, my_real *VRY1, my_real *VRY2, my_real *VRY3, my_real *VRY4, my_real *VRY5, my_real *VRY6, my_real *VRY7, my_real *VVRY8, my_real *VRZ1, my_real *VRZ2, my_real *VRZ3, my_real *VRZ4, my_real *VRZ5, my_real *VRZ6, my_real *VRZ7, my_real *VVRZ8, my_real *FX1, my_real *FX2, my_real *FX3, my_real *FX4, my_real *FX5, my_real *FX6, my_real *FX7, my_real *VFX8, my_real *FY1, my_real *FY2, my_real *FY3, my_real *FY4, my_real *FY5, my_real *FY6, my_real *FY7, my_real *VFY8, my_real *FZ1, my_real *FZ2, my_real *FZ3, my_real *FZ4, my_real *FZ5, my_real *FZ6, my_real *FZ7, my_real *VFZ8, my_real *MX1, my_real *MX2, my_real *MX3, my_real *MX4, my_real *MX5, my_real *MX6, my_real *MX7, my_real *VMX8, 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:72
st_lecguser
void(* st_lecguser)(int *igtyp, char *rootn, int *rootlen, int *nuvar, my_real *pargeo)
Definition dyn_userlib.c:64
st_lecr
void(* st_lecr)(int *irupt, char *rootn, int *rootlen, my_real *uparam, int *maxuparam, int *nuparam, int *nuvar, int *ifunc, int *maxfunc, int *mfunc, int *id)
Definition dyn_userlib.c:66
st_lecsen
void(* st_lecsen)(int *typ, char *rootn, int *rootlen)
Definition dyn_userlib.c:68
st_userwis_ini
void(* st_userwis_ini)(char *rootn, int *rootlen, int *iuparam, int *numnod, int *itab, my_real *x, my_real *v, my_real *vr, my_real *mass, my_real *iner, int *nuvar, int *nuvari, my_real *uvar, int *iuvar)
Definition dyn_userlib.c:71

◆ init_callback()

void init_callback ( void ** callback_array)

Definition at line 128 of file dyn_userlib_callback.c.

128 {
129
130/* initialize all pointers in an Array */
131 callback_array[ 0]= FINTER;
132 callback_array[ 1]= GET_U_NUMTABLE;
133 callback_array[ 2]= GET_U_TABLE;
134 callback_array[ 3]= GET_U_VTABLE;
135 callback_array[ 4]= SET_U_SHLPLAS;
136 callback_array[ 5]= SET_U_SOLPLAS;
137 callback_array[ 8]= GET_U_NUMSENS;
138 callback_array[ 9]= GET_U_SENS_ID;
139 callback_array[10]= SET_U_SENS_VALUE;
140 callback_array[11]= GET_U_SENS_VALUE;
141 callback_array[12]= SET_U_SENS_MAXVALUE;
142 callback_array[13]= GET_U_SENS_FPAR;
143 callback_array[14]= GET_U_SENS_IPAR;
144 callback_array[15]= SET_U_SENS_ACTI;
145 callback_array[16]= GET_U_SENS_ACTI;
146 callback_array[17]= GET_U_SENS;
147 callback_array[18]= GET_U_SENS_DELAY;
148 callback_array[19]= GET_U_MAT;
149 callback_array[20]= GET_U_GEO;
150 callback_array[21]= GET_U_PNU;
151 callback_array[22]= GET_U_MNU;
152 callback_array[23]= GET_U_PID;
153 callback_array[24]= GET_U_MID;
154 callback_array[25]= GET_U_M;
155 callback_array[26]= GET_U_P;
156 callback_array[27]= GET_U_PROC;
157 callback_array[28]= GET_U_TASK;
158 callback_array[29]= GET_U_FUNC_N;
159 callback_array[30]= GET_U_FUNC_X;
160 callback_array[31]= GET_U_FUNC_Y;
161 callback_array[32]= GET_U_FUNC;
162 callback_array[33]= GET_V_FUNC ;
163 callback_array[34]= GET_U_NUMFUN;
164 callback_array[35]= GET_U_FID;
165 callback_array[36]= GET_U_CYCLE;
166 callback_array[37]= GET_U_TIME;
167 callback_array[38]= GET_U_ACCEL;
168 callback_array[39]= GET_U_NUMACC;
169 callback_array[40]= GET_U_NUMNOD;
170 callback_array[41]= GET_U_NOD_X;
171 callback_array[42]= GET_U_NOD_D;
172 callback_array[43]= GET_U_NOD_V ;
173 callback_array[44]= GET_U_NOD_A ;
174 callback_array[45]= GET_U_SKEW;
175 callback_array[46]= GET_U_UVAR;
176 callback_array[47]= SET_SPRING_ELNUM;
177 callback_array[48]= GET_SPRING_ELNUM ;
178/* callback_array[49]= SET_U_GEO; STARTER ROUTINE*/
179/* callback_array[50]= SET_U_PNU; STARTER ROUTINE*/
180/* callback_array[51]= RESET_U_GEO; STARTER ROUTINE*/
181/* callback_array[52]= GET_U_FUNC_DERI; STARTER ROUTINE*/
182/* callback_array[53]= SET_U_SENS_IPAR; STARTER ROUTINE*/
183/* callback_array[54]= SET_U_SENS_FPAR; STARTER ROUTINE*/
184 callback_array[55]= WRITE_IOUT;
185/*callback_array[56]= SET_DD_MAT_WEIGHT; */
186/*callback_array[57]=UELT_SPMD_ADDITIONZL_NODE*/
187 callback_array[58] = ARRET;
188 callback_array[59] = SET_U_SENS_DEACTI;
189 callback_array[60] = GET_TABLE_VALUE;
190 callback_array[61] = GET_VTABLE_VALUE;
191 callback_array[62] = MAT_SOLID_GET_NOD_X;
192 callback_array[63] = MAT_SOLID_GET_NOD_V;
193 callback_array[64] = USERWINDOW_GET_A;
194 callback_array[65] = USERWINDOW_GET_AR;
195// callback_array[66] = RAD_UMAT_INPUT_OPEN; STARTER ROUTINE
196// callback_array[67] = RAD_UMAT_INPUT_READ; STARTER ROUTINE
197// callback_array[68] = RAD_UMAT_INPUT_REWIND; STARTER ROUTINE
198// callback_array[69] = RAD_UMAT_CLOSE_INPUT; STARTER ROUTINE
199 callback_array[71] = GET_TABLE_VALUE_DYDX;
200// callback_array[72] = SET_USER_WINDOW_NODES; STARTER ROUTINE
201 callback_array[73] = GET_USER_WINDOW_NODES;
202}
GET_VTABLE_VALUE
void GET_VTABLE_VALUE(int *ITABLE, int *NEL0, int *IPOS, my_real *XX, int *XXDIM, my_real *YY, my_real *DYDX1)
GET_TABLE_VALUE_DYDX
void GET_TABLE_VALUE_DYDX(int *ITABLE, double *XX, double *XXDIM, double *YY, double *DXDY)
USERWINDOW_GET_A
void USERWINDOW_GET_A(double *A_BUF)
MAT_SOLID_GET_NOD_V
void MAT_SOLID_GET_NOD_V(my_real *USER_V)
GET_TABLE_VALUE
void GET_TABLE_VALUE(int *itable, my_real *XX, int *xxdim, my_real *YY)
SET_U_SENS_DEACTI
int SET_U_SENS_DEACTI(int *nsens)
USERWINDOW_GET_AR
void USERWINDOW_GET_AR(double *AR_BUF)
GET_USER_WINDOW_NODES
void GET_USER_WINDOW_NODES(int *INTERNAL_ID, int *USER_ID)
MAT_SOLID_GET_NOD_X
void MAT_SOLID_GET_NOD_X(my_real *USER_X)
GET_U_SENS
my_real GET_U_SENS(int *usens)
SET_U_SENS_ACTI
int SET_U_SENS_ACTI(int *nsens)
GET_U_NUMSENS
int GET_U_NUMSENS(int *idsens)
GET_U_SENS_VALUE
int GET_U_SENS_VALUE(int *nsens, int *ivar, my_real *var)
GET_U_MNU
int GET_U_MNU(int *ivar, int *ip, int *k)
SET_U_SOLPLAS
void SET_U_SOLPLAS(int *USRNEL, my_real *SIGY, my_real *PLA)
GET_U_SENS_ID
int GET_U_SENS_ID(int *idsens)
GET_U_SENS_IPAR
int GET_U_SENS_IPAR(int *nsens, int *ivar, my_real *var)
SET_U_SHLPLAS
void SET_U_SHLPLAS(int *USRNEL, my_real *SIGY, my_real *ETSE)
SET_U_SENS_MAXVALUE
int SET_U_SENS_MAXVALUE(int *nsens, int *ivar, my_real *var)
GET_U_FUNC_X
my_real GET_U_FUNC_X(int *ifunc, int *n)
GET_U_ACCEL
my_real GET_U_ACCEL(int *nacc, my_real *ax, my_real *ay, my_real *az)
GET_U_NOD_D
int GET_U_NOD_D(int *nod, my_real *dx, my_real *dy, my_real *dz)
GET_SPRING_ELNUM
int GET_SPRING_ELNUM(int *iel)
GET_V_FUNC
void GET_V_FUNC(int *ifunc, int *llt, my_real *xx, my_real *dydx, int *jpos)
GET_U_PID
int GET_U_PID(int *ip)
GET_U_PROC
int GET_U_PROC()
GET_U_M
int GET_U_M(int *mid)
GET_U_SENS_DELAY
my_real GET_U_SENS_DELAY(int *usens)
GET_U_MAT
my_real GET_U_MAT(int *ivar, int *im)
GET_U_VTABLE
void GET_U_VTABLE(int *itable, int *nel0, int *ipos, my_real *XX, my_real *YY, my_real *DYDX1)
GET_U_SKEW
int GET_U_SKEW(int *idskw, int *n1, int *n2, int *n3, my_real *vect)
GET_U_FID
int GET_U_FID(int *ifun)
GET_U_UVAR
my_real GET_U_UVAR(int *iel, int *ilayer, int *ivar, int *nuvar)
GET_U_FUNC_N
int GET_U_FUNC_N(int *ifunc)
SET_U_SENS_VALUE
int SET_U_SENS_VALUE(int *nsens, int *ivar, my_real *var)
GET_U_FUNC_Y
my_real GET_U_FUNC_Y(int *ifunc, int *n)
GET_U_MID
int GET_U_MID(int *im)
SET_SPRING_ELNUM
void SET_SPRING_ELNUM(int *jft, int *jlt, int *ixr)
GET_U_SENS_FPAR
int GET_U_SENS_FPAR(int *nsens, int *ivar, my_real *var)
GET_U_NUMFUN
int GET_U_NUMFUN(int *idfun)
GET_U_CYCLE
int GET_U_CYCLE()
WRITE_IOUT
void WRITE_IOUT(char *line, int *len)
GET_U_NUMACC
int GET_U_NUMACC(int *idacc)
GET_U_NOD_A
int GET_U_NOD_A(int *nod, my_real *ax, my_real *ay, my_real *az)
GET_U_FUNC
my_real GET_U_FUNC(int *ifunc, my_real *XX, my_real *DERI)
GET_U_TIME
my_real GET_U_TIME()
GET_U_PNU
int GET_U_PNU(int *ivar, int *ip, int *k)
GET_U_NUMTABLE
int GET_U_NUMTABLE(int *tid)
GET_U_NUMNOD
int GET_U_NUMNOD(int *iu)
FINTER
double FINTER(int *ifunc, double *XX, int *NPF, double *TF, double *DERI)
GET_U_TASK
int GET_U_TASK()
GET_U_GEO
my_real GET_U_GEO(int *ivar, int *ip)
GET_U_TABLE
void GET_U_TABLE(int *itable, my_real *XX, my_real *YY)
GET_U_NOD_X
int GET_U_NOD_X(int *nod, my_real *x, my_real *y, my_real *z)
GET_U_SENS_ACTI
int GET_U_SENS_ACTI(int *nsens)
GET_U_P
int GET_U_P(int *pid)
GET_U_NOD_V
int GET_U_NOD_V(int *nod, my_real *vx, my_real *vy, my_real *vz)
ARRET
void ARRET(int *n)

◆ st_array_init_()

void st_array_init_ ( )

Definition at line 99 of file dyn_userlib.c.

99 {
100 int i;
101 st_lecg = NULL;
102 st_lecguser = NULL;
103 st_lecm = NULL;
104 st_lecm99 = NULL;
105 st_lecsen = NULL;
106 st_riniuser = NULL;
107 st_userwis = NULL;
108 st_userwis_ini = NULL;
109
110 userlibhandle = NULL;
111 userlib_id = NULL;
112}
userlibhandle
void * userlibhandle
Definition dyn_userlib.c:61

◆ ST_GET_USERBUF_VAR()

void _FCALL ST_GET_USERBUF_VAR ( int * id,
char * title )

Definition at line 809 of file dyn_userlib.c.

810{
811 if (st_get_userbuf_variable){
812 (*st_get_userbuf_variable)(id,title);
813 }
814}
id
initmumps id
Definition multiplerhs_example.m:4

◆ st_get_userbuf_var_()

void st_get_userbuf_var_ ( int * id,
char * title )

Definition at line 816 of file dyn_userlib.c.

817{
818 if (st_get_userbuf_variable){
819 (*st_get_userbuf_variable)(id,title);
820 }
821}

◆ ST_USERLIB_LECG()

void _FCALL ST_USERLIB_LECG ( int * igtyp,
char * rootn,
int * rootlen,
int * nuvar,
my_real * pargeo )

Definition at line 503 of file dyn_userlib.c.

504{
505 if (st_lecg) {
506 (*st_lecg)(igtyp,rootn,rootlen,nuvar,pargeo);
507 }
508}

◆ st_userlib_lecg_()

void st_userlib_lecg_ ( int * igtyp,
char * rootn,
int * rootlen,
int * nuvar,
my_real * pargeo )

Definition at line 512 of file dyn_userlib.c.

513{
514 if (st_lecg) {
515 (*st_lecg)(igtyp,rootn,rootlen,nuvar,pargeo);
516 }
517}

◆ ST_USERLIB_LECGUSER()

void _FCALL ST_USERLIB_LECGUSER ( int * igtyp,
char * rootn,
int * rootlen,
int * nuvar,
my_real * pargeo )

Definition at line 524 of file dyn_userlib.c.

525{
526 if (st_lecguser) {
527 (*st_lecguser)(igtyp,rootn,rootlen,nuvar,pargeo);
528 }
529}

◆ st_userlib_lecguser_()

void st_userlib_lecguser_ ( int * igtyp,
char * rootn,
int * rootlen,
int * nuvar,
my_real * pargeo )

Definition at line 533 of file dyn_userlib.c.

534{
535 if (st_lecguser) {
536 (*st_lecguser)(igtyp,rootn,rootlen,nuvar,pargeo);
537 }
538}

◆ ST_USERLIB_LECM99()

void _FCALL ST_USERLIB_LECM99 ( int * ilaw,
char * rootn,
int * rootlen,
int * iuser_law,
my_real * uparam,
int * maxuparam,
int * nuparam,
int * nuvar,
int * ifunc,
int * maxfunc,
int * nfunc,
my_real * parmat )

Definition at line 567 of file dyn_userlib.c.

568{
569 if (st_lecm99){
570 (*st_lecm99)(ilaw,rootn,rootlen,iuser_law,uparam,maxuparam,nuparam,nuvar,ifunc,maxfunc,nfunc,parmat);
571 }
572}

◆ st_userlib_lecm99_()

void st_userlib_lecm99_ ( int * ilaw,
char * rootn,
int * rootlen,
int * iuser_law,
my_real * uparam,
int * maxuparam,
int * nuparam,
int * nuvar,
int * ifunc,
int * maxfunc,
int * nfunc,
my_real * parmat )

Definition at line 575 of file dyn_userlib.c.

576{
577 if (st_lecm99){
578 (*st_lecm99)(ilaw,rootn,rootlen,iuser_law,uparam,maxuparam,nuparam,nuvar,ifunc,maxfunc,nfunc,parmat);
579 }
580}

◆ ST_USERLIB_LECR()

void _FCALL ST_USERLIB_LECR ( int * RUPTID,
char * ROOTN,
int * ROOTLEN,
my_real * UPARAM,
int * MAXUPARAM,
int * NUPARAM,
int * NUVAR,
int * IFUNC,
int * MAXFUNC,
int * MFUNC,
int * ID )

Definition at line 587 of file dyn_userlib.c.

588{
589 if (st_lecr) {
590 (*st_lecr)(RUPTID, ROOTN, ROOTLEN,UPARAM, MAXUPARAM, NUPARAM, NUVAR, IFUNC, MAXFUNC, MFUNC, ID);
591 }
592}
ROOTLEN
#define ROOTLEN
Definition rad2rad_c.c:92

◆ st_userlib_lecr_()

void st_userlib_lecr_ ( int * RUPTID,
char * ROOTN,
int * ROOTLEN,
my_real * UPARAM,
int * MAXUPARAM,
int * NUPARAM,
int * NUVAR,
int * IFUNC,
int * MAXFUNC,
int * MFUNC,
int * ID )

Definition at line 595 of file dyn_userlib.c.

596{
597 if (st_lecr) {
598 (*st_lecr)(RUPTID, ROOTN, ROOTLEN,UPARAM, MAXUPARAM, NUPARAM, NUVAR, IFUNC, MAXFUNC, MFUNC, ID);
599 }
600}

◆ ST_USERLIB_LECSEN()

void _FCALL ST_USERLIB_LECSEN ( int * typ,
char * rootn,
int * rootlen )

Definition at line 608 of file dyn_userlib.c.

609{
610 if (st_lecsen){
611 (*st_lecsen)(typ,rootn,rootlen);
612 }
613}

◆ st_userlib_lecsen_()

void st_userlib_lecsen_ ( int * typ,
char * rootn,
int * rootlen )

Definition at line 616 of file dyn_userlib.c.

617{
618 if (st_lecsen){
619 (*st_lecsen)(typ,rootn,rootlen);
620 }
621}

◆ ST_USERLIB_RINIUSER()

void _FCALL ST_USERLIB_RINIUSER ( int * igtyp,
char * rootn,
int * rootlen,
int * nel,
int * iprop,
int * ix,
my_real * xl,
my_real * mass,
my_real * xiner,
my_real * stifn,
my_real * stifr,
my_real * vism,
my_real * visr,
my_real * uvar,
int * nuvar )

Definition at line 628 of file dyn_userlib.c.

631{
632 if (st_riniuser){
633 (*st_riniuser)(igtyp,rootn,rootlen,nel,iprop,
634 ix,xl,mass,xiner,stifn,
635 stifr,vism ,visr,uvar,nuvar );
636 }
637}

◆ st_userlib_riniuser_()

void st_userlib_riniuser_ ( int * igtyp,
char * rootn,
int * rootlen,
int * nel,
int * iprop,
int * ix,
my_real * xl,
my_real * mass,
my_real * xiner,
my_real * stifn,
my_real * stifr,
my_real * vism,
my_real * visr,
my_real * uvar,
int * nuvar )

Definition at line 640 of file dyn_userlib.c.

643{
644 if (st_riniuser){
645 (*st_riniuser)(igtyp,rootn,rootlen,nel,iprop,
646 ix,xl,mass,xiner,stifn,
647 stifr,vism ,visr,uvar,nuvar );
648 }
649}

◆ ST_USERLIB_SINIUSR()

void _FCALL ST_USERLIB_SINIUSR ( int * ITYP,
char * ROOTN,
int * ROOTLEN,
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 * VVX8,
my_real * VY1,
my_real * VY2,
my_real * VY3,
my_real * VY4,
my_real * VY5,
my_real * VY6,
my_real * VY7,
my_real * VVY8,
my_real * VZ1,
my_real * VZ2,
my_real * VZ3,
my_real * VZ4,
my_real * VZ5,
my_real * VZ6,
my_real * VZ7,
my_real * VVZ8,
my_real * VRX1,
my_real * VRX2,
my_real * VRX3,
my_real * VRX4,
my_real * VRX5,
my_real * VRX6,
my_real * VRX7,
my_real * VVRX8,
my_real * VRY1,
my_real * VRY2,
my_real * VRY3,
my_real * VRY4,
my_real * VRY5,
my_real * VRY6,
my_real * VRY7,
my_real * VVRY8,
my_real * VRZ1,
my_real * VRZ2,
my_real * VRZ3,
my_real * VRZ4,
my_real * VRZ5,
my_real * VRZ6,
my_real * VRZ7,
my_real * VVRZ8,
my_real * FX1,
my_real * FX2,
my_real * FX3,
my_real * FX4,
my_real * FX5,
my_real * FX6,
my_real * FX7,
my_real * VFX8,
my_real * FY1,
my_real * FY2,
my_real * FY3,
my_real * FY4,
my_real * FY5,
my_real * FY6,
my_real * FY7,
my_real * VFY8,
my_real * FZ1,
my_real * FZ2,
my_real * FZ3,
my_real * FZ4,
my_real * FZ5,
my_real * FZ6,
my_real * FZ7,
my_real * VFZ8,
my_real * MX1,
my_real * MX2,
my_real * MX3,
my_real * MX4,
my_real * MX5,
my_real * MX6,
my_real * MX7,
my_real * VMX8,
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 at line 655 of file dyn_userlib.c.

677{
678 if (st_siniusr){
679 (*st_siniusr)( ITYP,ROOTN,ROOTLEN,
680 NEL ,NUVAR ,IPROP ,IMAT ,SOLID_ID,TIME ,TIMESTEP,
681 EINT ,VOL ,UVAR ,FR_WAVE,OFF ,RHO ,SIG ,
682 XX1 ,XX2 ,XX3 ,XX4 ,XX5 ,XX6 ,XX7 ,XX8 ,
683 YY1 ,YY2 ,YY3 ,YY4 ,YY5 ,YY6 ,YY7 ,YY8 ,
684 ZZ1 ,ZZ2 ,ZZ3 ,ZZ4 ,ZZ5 ,ZZ6 ,ZZ7 ,ZZ8 ,
685 UX1 ,UX2 ,UX3 ,UX4 ,UX5 ,UX6 ,UX7 ,UX8 ,
686 UY1 ,UY2 ,UY3 ,UY4 ,UY5 ,UY6 ,UY7 ,UY8 ,
687 UZ1 ,UZ2 ,UZ3 ,UZ4 ,UZ5 ,UZ6 ,UZ7 ,UZ8 ,
688 VX1 ,VX2 ,VX3 ,VX4 ,VX5 ,VX6 ,VX7 ,VVX8 ,
689 VY1 ,VY2 ,VY3 ,VY4 ,VY5 ,VY6 ,VY7 ,VVY8 ,
690 VZ1 ,VZ2 ,VZ3 ,VZ4 ,VZ5 ,VZ6 ,VZ7 ,VVZ8 ,
691 VRX1 ,VRX2 ,VRX3 ,VRX4 ,VRX5 ,VRX6 ,VRX7 ,VVRX8 ,
692 VRY1 ,VRY2 ,VRY3 ,VRY4 ,VRY5 ,VRY6 ,VRY7 ,VVRY8 ,
693 VRZ1 ,VRZ2 ,VRZ3 ,VRZ4 ,VRZ5 ,VRZ6 ,VRZ7 ,VVRZ8 ,
694 FX1 ,FX2 ,FX3 ,FX4 ,FX5 ,FX6 ,FX7 ,VFX8 ,
695 FY1 ,FY2 ,FY3 ,FY4 ,FY5 ,FY6 ,FY7 ,VFY8 ,
696 FZ1 ,FZ2 ,FZ3 ,FZ4 ,FZ5 ,FZ6 ,FZ7 ,VFZ8 ,
697 MX1 ,MX2 ,MX3 ,MX4 ,MX5 ,MX6 ,MX7 ,VMX8 ,
698 MY1 ,MY2 ,MY3 ,MY4 ,MY5 ,MY6 ,MY7 ,MY8 ,
699 MZ1 ,MZ2 ,MZ3 ,MZ4 ,MZ5 ,MZ6 ,MZ7 ,MZ8 ,
700 STIFM ,STIFR ,VISCM ,VISCR);
701 }
702}

◆ st_userlib_siniusr_()

void st_userlib_siniusr_ ( int * ITYP,
char * ROOTN,
int * ROOTLEN,
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 * VVX8,
my_real * VY1,
my_real * VY2,
my_real * VY3,
my_real * VY4,
my_real * VY5,
my_real * VY6,
my_real * VY7,
my_real * VVY8,
my_real * VZ1,
my_real * VZ2,
my_real * VZ3,
my_real * VZ4,
my_real * VZ5,
my_real * VZ6,
my_real * VZ7,
my_real * VVZ8,
my_real * VRX1,
my_real * VRX2,
my_real * VRX3,
my_real * VRX4,
my_real * VRX5,
my_real * VRX6,
my_real * VRX7,
my_real * VVRX8,
my_real * VRY1,
my_real * VRY2,
my_real * VRY3,
my_real * VRY4,
my_real * VRY5,
my_real * VRY6,
my_real * VRY7,
my_real * VVRY8,
my_real * VRZ1,
my_real * VRZ2,
my_real * VRZ3,
my_real * VRZ4,
my_real * VRZ5,
my_real * VRZ6,
my_real * VRZ7,
my_real * VVRZ8,
my_real * FX1,
my_real * FX2,
my_real * FX3,
my_real * FX4,
my_real * FX5,
my_real * FX6,
my_real * FX7,
my_real * VFX8,
my_real * FY1,
my_real * FY2,
my_real * FY3,
my_real * FY4,
my_real * FY5,
my_real * FY6,
my_real * FY7,
my_real * VFY8,
my_real * FZ1,
my_real * FZ2,
my_real * FZ3,
my_real * FZ4,
my_real * FZ5,
my_real * FZ6,
my_real * FZ7,
my_real * VFZ8,
my_real * MX1,
my_real * MX2,
my_real * MX3,
my_real * MX4,
my_real * MX5,
my_real * MX6,
my_real * MX7,
my_real * VMX8,
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 at line 705 of file dyn_userlib.c.

727{
728 if (st_siniusr){
729 (*st_siniusr)( ITYP,ROOTN,ROOTLEN,
730 NEL ,NUVAR ,IPROP ,IMAT ,SOLID_ID,TIME ,TIMESTEP,
731 EINT ,VOL ,UVAR ,FR_WAVE,OFF ,RHO ,SIG ,
732 XX1 ,XX2 ,XX3 ,XX4 ,XX5 ,XX6 ,XX7 ,XX8 ,
733 YY1 ,YY2 ,YY3 ,YY4 ,YY5 ,YY6 ,YY7 ,YY8 ,
734 ZZ1 ,ZZ2 ,ZZ3 ,ZZ4 ,ZZ5 ,ZZ6 ,ZZ7 ,ZZ8 ,
735 UX1 ,UX2 ,UX3 ,UX4 ,UX5 ,UX6 ,UX7 ,UX8 ,
736 UY1 ,UY2 ,UY3 ,UY4 ,UY5 ,UY6 ,UY7 ,UY8 ,
737 UZ1 ,UZ2 ,UZ3 ,UZ4 ,UZ5 ,UZ6 ,UZ7 ,UZ8 ,
738 VX1 ,VX2 ,VX3 ,VX4 ,VX5 ,VX6 ,VX7 ,VVX8 ,
739 VY1 ,VY2 ,VY3 ,VY4 ,VY5 ,VY6 ,VY7 ,VVY8 ,
740 VZ1 ,VZ2 ,VZ3 ,VZ4 ,VZ5 ,VZ6 ,VZ7 ,VVZ8 ,
741 VRX1 ,VRX2 ,VRX3 ,VRX4 ,VRX5 ,VRX6 ,VRX7 ,VVRX8 ,
742 VRY1 ,VRY2 ,VRY3 ,VRY4 ,VRY5 ,VRY6 ,VRY7 ,VVRY8 ,
743 VRZ1 ,VRZ2 ,VRZ3 ,VRZ4 ,VRZ5 ,VRZ6 ,VRZ7 ,VVRZ8 ,
744 FX1 ,FX2 ,FX3 ,FX4 ,FX5 ,FX6 ,FX7 ,VFX8 ,
745 FY1 ,FY2 ,FY3 ,FY4 ,FY5 ,FY6 ,FY7 ,VFY8 ,
746 FZ1 ,FZ2 ,FZ3 ,FZ4 ,FZ5 ,FZ6 ,FZ7 ,VFZ8 ,
747 MX1 ,MX2 ,MX3 ,MX4 ,MX5 ,MX6 ,MX7 ,VMX8 ,
748 MY1 ,MY2 ,MY3 ,MY4 ,MY5 ,MY6 ,MY7 ,MY8 ,
749 MZ1 ,MZ2 ,MZ3 ,MZ4 ,MZ5 ,MZ6 ,MZ7 ,MZ8 ,
750 STIFM ,STIFR ,VISCM ,VISCR);
751 }
752}

◆ ST_USERLIB_USERMAT()

void _FCALL ST_USERLIB_USERMAT ( int * MATNUM,
char * ROOTN,
int * ROOTLEN,
my_real * UPARAM,
int * MAXUPARAM,
int * NUPARAM,
int * NUVAR,
int * IFUNC,
int * MAXFUNC,
int * MFUNC,
my_real * PARMAT,
int * UNITAB )

Definition at line 546 of file dyn_userlib.c.

547{
548 if (st_lecm) {
549 (*st_lecm)(MATNUM, ROOTN, ROOTLEN,UPARAM, MAXUPARAM, NUPARAM, NUVAR, IFUNC, MAXFUNC, MFUNC, PARMAT,UNITAB);
550 }
551}

◆ st_userlib_usermat_()

void st_userlib_usermat_ ( int * MATNUM,
char * ROOTN,
int * ROOTLEN,
my_real * UPARAM,
int * MAXUPARAM,
int * NUPARAM,
int * NUVAR,
int * IFUNC,
int * MAXFUNC,
int * MFUNC,
my_real * PARMAT,
int * UNITAB )

Definition at line 555 of file dyn_userlib.c.

556{
557 if (st_lecm) {
558 (*st_lecm)(MATNUM, ROOTN, ROOTLEN,UPARAM, MAXUPARAM, NUPARAM, NUVAR, IFUNC, MAXFUNC, MFUNC, PARMAT,UNITAB);
559 }
560}

◆ ST_USERLIB_USERWIS()

void _FCALL ST_USERLIB_USERWIS ( char * rootn,
int * rootlen,
int * numnod,
int * itab,
my_real * x,
my_real * v,
my_real * vr,
my_real * mass,
my_real * iner,
int * nuvar,
int * nuvari,
my_real * uvar,
int * iuvar )

Definition at line 758 of file dyn_userlib.c.

761{
762 if (st_userwis){
763 (*st_userwis)(rootn,rootlen,numnod,itab, x ,v,
764 vr,mass,iner,nuvar ,nuvari ,
765 uvar ,iuvar);
766 }
767}
restmod::itab
integer, dimension(:), allocatable itab
Definition restart_mod.F:60
x
x
Definition schur_example.m:53

◆ st_userlib_userwis_()

void st_userlib_userwis_ ( char * rootn,
int * rootlen,
int * numnod,
int * itab,
my_real * x,
my_real * v,
my_real * vr,
my_real * mass,
my_real * iner,
int * nuvar,
int * nuvari,
my_real * uvar,
int * iuvar )

Definition at line 769 of file dyn_userlib.c.

772{
773 if (st_userwis){
774 (*st_userwis)(rootn,rootlen,numnod,itab, x ,v,
775 vr,mass,iner,nuvar ,nuvari ,
776 uvar ,iuvar);
777 }
778}

◆ ST_USERLIB_USERWIS_INI()

void _FCALL ST_USERLIB_USERWIS_INI ( char * rootn,
int * rootlen,
int * iuparam,
int * numnod,
int * itab,
my_real * x,
my_real * v,
my_real * vr,
my_real * mass,
my_real * iner,
int * nuvar,
int * nuvari,
my_real * uvar,
int * iuvar )

Definition at line 784 of file dyn_userlib.c.

787{
788 if (st_userwis_ini){
789 (*st_userwis_ini)(rootn,rootlen,iuparam,numnod,itab, x ,v,
790 vr,mass,iner,nuvar ,nuvari ,
791 uvar ,iuvar);
792 }
793}

◆ st_userlib_userwis_ini_()

void st_userlib_userwis_ini_ ( char * rootn,
int * rootlen,
int * iuparam,
int * numnod,
int * itab,
my_real * x,
my_real * v,
my_real * vr,
my_real * mass,
my_real * iner,
int * nuvar,
int * nuvari,
my_real * uvar,
int * iuvar )

Definition at line 795 of file dyn_userlib.c.

797 {
798 if (st_userwis_ini){
799 (*st_userwis_ini)(rootn,rootlen,iuparam,numnod,itab, x ,v,
800 vr,mass,iner,nuvar ,nuvari ,
801 uvar ,iuvar);
802 }
803}

Variable Documentation

◆ set_library_callback

void(* set_library_callback) (void *callback_array[200]) ( void * callback_array[200])

Definition at line 118 of file dyn_userlib.c.

◆ st_get_userbuf_variable

void(* st_get_userbuf_variable) (int *id, char *title) ( int * id,
char * title )

Definition at line 95 of file dyn_userlib.c.

◆ st_lecg

void(* st_lecg) (int *igtyp, char *rootn, int *rootlen, int *nuvar, my_real *pargeo) ( int * igtyp,
char * rootn,
int * rootlen,
int * nuvar,
my_real * pargeo )

Definition at line 63 of file dyn_userlib.c.

◆ st_lecguser

void(* st_lecguser) (int *igtyp, char *rootn, int *rootlen, int *nuvar, my_real *pargeo) ( int * igtyp,
char * rootn,
int * rootlen,
int * nuvar,
my_real * pargeo )

Definition at line 64 of file dyn_userlib.c.

◆ st_lecm

void(* st_lecm) (int *ilaw,char *rootn, int *rootlen, my_real *uparam,int *maxuparam,int *nuparam, int *nuvar, int *ifunc,int *maxfunc,int *mfunc,my_real *parmat, int *unitab) ( int * ilaw,
char * rootn,
int * rootlen,
my_real * uparam,
int * maxuparam,
int * nuparam,
int * nuvar,
int * ifunc,
int * maxfunc,
int * mfunc,
my_real * parmat,
int * unitab )

Definition at line 65 of file dyn_userlib.c.

◆ st_lecm99

void(* st_lecm99) (int *ilaw, char *rootn, int *rootlen, int *iuser_law, my_real *uparam, int *maxuparam, int *nuparam, int *nuvar, int *ifunc, int *maxfunc, int *nfunc, my_real *parmat) ( int * ilaw,
char * rootn,
int * rootlen,
int * iuser_law,
my_real * uparam,
int * maxuparam,
int * nuparam,
int * nuvar,
int * ifunc,
int * maxfunc,
int * nfunc,
my_real * parmat )

Definition at line 67 of file dyn_userlib.c.

◆ st_lecr

void(* st_lecr) (int *irupt,char *rootn, int *rootlen, my_real *uparam,int *maxuparam,int *nuparam, int *nuvar, int *ifunc,int *maxfunc,int *mfunc,int *id) ( int * irupt,
char * rootn,
int * rootlen,
my_real * uparam,
int * maxuparam,
int * nuparam,
int * nuvar,
int * ifunc,
int * maxfunc,
int * mfunc,
int * id )

Definition at line 66 of file dyn_userlib.c.

◆ st_lecsen

void(* st_lecsen) (int *typ, char *rootn, int *rootlen) ( int * typ,
char * rootn,
int * rootlen )

Definition at line 68 of file dyn_userlib.c.

◆ st_riniuser

void(* st_riniuser) (int *igtyp, char *rootn, int *rootlen, int *nel, int *iprop, int *ix, my_real *xl, my_real *mass, my_real *xiner, my_real *stifn, my_real *stifr, my_real *vism,my_real *visr, my_real *uvar, int *nuvar) ( int * igtyp,
char * rootn,
int * rootlen,
int * nel,
int * iprop,
int * ix,
my_real * xl,
my_real * mass,
my_real * xiner,
my_real * stifn,
my_real * stifr,
my_real * vism,
my_real * visr,
my_real * uvar,
int * nuvar )

Definition at line 69 of file dyn_userlib.c.

◆ st_siniusr

void(* st_siniusr) (int *ITYP, char *ROOTN, int *ROOTLEN, 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 *VVX8, my_real *VY1,my_real *VY2,my_real *VY3,my_real *VY4,my_real *VY5,my_real *VY6,my_real *VY7,my_real *VVY8, my_real *VZ1,my_real *VZ2,my_real *VZ3,my_real *VZ4,my_real *VZ5,my_real *VZ6,my_real *VZ7,my_real *VVZ8, my_real *VRX1,my_real *VRX2,my_real *VRX3,my_real *VRX4,my_real *VRX5,my_real *VRX6,my_real *VRX7,my_real *VVRX8, my_real *VRY1,my_real *VRY2,my_real *VRY3,my_real *VRY4,my_real *VRY5,my_real *VRY6,my_real *VRY7,my_real *VVRY8, my_real *VRZ1,my_real *VRZ2,my_real *VRZ3,my_real *VRZ4,my_real *VRZ5,my_real *VRZ6,my_real *VRZ7,my_real *VVRZ8, my_real *FX1,my_real *FX2,my_real *FX3,my_real *FX4,my_real *FX5,my_real *FX6,my_real *FX7,my_real *VFX8, my_real *FY1,my_real *FY2,my_real *FY3,my_real *FY4,my_real *FY5,my_real *FY6,my_real *FY7,my_real *VFY8, my_real *FZ1,my_real *FZ2,my_real *FZ3,my_real *FZ4,my_real *FZ5,my_real *FZ6,my_real *FZ7,my_real *VFZ8, my_real *MX1,my_real *MX2,my_real *MX3,my_real *MX4,my_real *MX5,my_real *MX6,my_real *MX7,my_real *VMX8, 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) ( int * ITYP,
char * ROOTN,
int * ROOTLEN,
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 * VVX8,
my_real * VY1,
my_real * VY2,
my_real * VY3,
my_real * VY4,
my_real * VY5,
my_real * VY6,
my_real * VY7,
my_real * VVY8,
my_real * VZ1,
my_real * VZ2,
my_real * VZ3,
my_real * VZ4,
my_real * VZ5,
my_real * VZ6,
my_real * VZ7,
my_real * VVZ8,
my_real * VRX1,
my_real * VRX2,
my_real * VRX3,
my_real * VRX4,
my_real * VRX5,
my_real * VRX6,
my_real * VRX7,
my_real * VVRX8,
my_real * VRY1,
my_real * VRY2,
my_real * VRY3,
my_real * VRY4,
my_real * VRY5,
my_real * VRY6,
my_real * VRY7,
my_real * VVRY8,
my_real * VRZ1,
my_real * VRZ2,
my_real * VRZ3,
my_real * VRZ4,
my_real * VRZ5,
my_real * VRZ6,
my_real * VRZ7,
my_real * VVRZ8,
my_real * FX1,
my_real * FX2,
my_real * FX3,
my_real * FX4,
my_real * FX5,
my_real * FX6,
my_real * FX7,
my_real * VFX8,
my_real * FY1,
my_real * FY2,
my_real * FY3,
my_real * FY4,
my_real * FY5,
my_real * FY6,
my_real * FY7,
my_real * VFY8,
my_real * FZ1,
my_real * FZ2,
my_real * FZ3,
my_real * FZ4,
my_real * FZ5,
my_real * FZ6,
my_real * FZ7,
my_real * VFZ8,
my_real * MX1,
my_real * MX2,
my_real * MX3,
my_real * MX4,
my_real * MX5,
my_real * MX6,
my_real * MX7,
my_real * VMX8,
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 at line 72 of file dyn_userlib.c.

◆ st_userwis

void(* st_userwis) (char *rootn, int *rootlen, int *numnod, int *itab, my_real *x,my_real *v, my_real *vr, my_real *mass, my_real *iner, int *nuvar,int *nuvari,my_real *uvar,int *iuvar) ( char * rootn,
int * rootlen,
int * numnod,
int * itab,
my_real * x,
my_real * v,
my_real * vr,
my_real * mass,
my_real * iner,
int * nuvar,
int * nuvari,
my_real * uvar,
int * iuvar )

Definition at line 70 of file dyn_userlib.c.

◆ st_userwis_ini

void(* st_userwis_ini) (char *rootn, int *rootlen, int *iuparam, int *numnod, int *itab, my_real *x,my_real *v, my_real *vr, my_real *mass, my_real *iner, int *nuvar,int *nuvari,my_real *uvar,int *iuvar) ( char * rootn,
int * rootlen,
int * iuparam,
int * numnod,
int * itab,
my_real * x,
my_real * v,
my_real * vr,
my_real * mass,
my_real * iner,
int * nuvar,
int * nuvari,
my_real * uvar,
int * iuvar )

Definition at line 71 of file dyn_userlib.c.

◆ userlib_id

void(* userlib_id) (int *info) ( int * info)

Definition at line 97 of file dyn_userlib.c.

◆ userlibhandle

void* userlibhandle

Definition at line 61 of file dyn_userlib.c.

◆ userlibhandler

HINSTANCE userlibhandler

Definition at line 117 of file dyn_userlib.c.