OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
VE_Mumps_wrap_ginp94.c
Go to the documentation of this file.
1/*
2 * -----------------------------------------------------------------------
3 * NEC Vector Host MUMPS Library Interface
4 * -----------------------------------------------------------------------
5 */
6
7#include <VE_Mumps.h>
8
9/*
10 * ---------------------------------------------------------------------------
11 * VE_Mumps_wrap_ginp94
12 * ---------------------------------------------------------------------------
13 */
14
15void VE_Mumps_wrap_ginp94( int N , int64_t * IPE , int * IW , int64_t LIW8 , int * PERM ,
16 int * SizeOfBlocks , int KEEP60 , int * LISTVAR_SCHUR , int SIZE_SCHUR , int * COLCOUNT ,
17 int * PARENT , int * PORDER , int * IWTMP1 , int * IWTMP2 , int * IWTMP3 ,
18 int * IWTMP4 , int * IWTMP5 , int * INFO )
19{
20 int ret=1,iarg;
21 int64_t symid;
22 vhcall_handle handle;
23 vhcall_args *ca;
24 uint64_t retval;
25
26 char * env_metis_lib_name;
27 char metis_lib_name[ NECVH_MAX_LIBNAME ];
28
29 /*
30 * -----------------------------------------------------------------------
31 * Set the library name ( check environment )
32 * -----------------------------------------------------------------------
33 */
34
35 if ( env_metis_lib_name = getenv( "VH_MUMPS_LIBRARY" ) ) {
36 size_t lenv = strlen( env_metis_lib_name );
37 if ( strlen( env_metis_lib_name ) > (size_t)NECVH_MAX_LIBNAME ) {
38 fprintf( stdout , "%s @ %d failed : metis library name too long (%s)\n" , basename(__FILE__) , __LINE__ , env_metis_lib_name );
39 fflush( stdout );
40 (void) mumps_abort();
41 }
42 else {
43 memcpy( ( void * ) metis_lib_name , ( void * ) env_metis_lib_name , lenv * sizeof( char) );
44 metis_lib_name[ lenv ] = '\0';
45 fprintf( stdout , "%s @ %d input library %s\n" , basename(__FILE__) , __LINE__ , metis_lib_name );
46 fflush( stdout );
47 }
48 }
49 else {
50 strcpy( metis_lib_name , "libvh.so" );
51 }
52
53 /*
54 * -----------------------------------------------------------------------
55 * Load VH C library
56 * -----------------------------------------------------------------------
57 */
58
59 handle = vhcall_install( metis_lib_name );
60 if (handle == (vhcall_handle)-1) {
61 perror("vhcall_install");
62 fprintf( stdout , "%s @ %d failed : can't install library %s\n" , basename(__FILE__) , __LINE__ , metis_lib_name );
63 fprintf( stdout , "Please check your LD_LIBRARY_PATH variable\n");
64 fflush( stdout );
65 (void) mumps_abort();
66 }
67
68 /*
69 * -----------------------------------------------------------------------
70 * Find VH C library function
71 * -----------------------------------------------------------------------
72 */
73
74 symid = vhcall_find(handle, "mumps_wrap_ginp94_");
75 if ( symid == -1 ) {
76 fprintf( stdout , "%s @ %d failed : can't find symbol MUMPS_WRAP_GINP94\n" , basename(__FILE__) , __LINE__ );
77 perror("vhcall_find");
78 fflush( stdout );
79 (void) mumps_abort();
80 }
81
82 /*
83 * -----------------------------------------------------------------------
84 * Allocate arguments object for VH library function
85 * -----------------------------------------------------------------------
86 */
87
88 ca = vhcall_args_alloc();
89 if ( ! ca ) {
90 perror("vhcall_args_alloc");
91 fprintf( stdout , "%s @ %d failed : unable to allocate function's argument list\n" , basename(__FILE__) , __LINE__ );
92 fflush( stdout );
93 (void) mumps_abort();
94 }
95
96 /*
97 * -----------------------------------------------------------------------
98 * Set arguments
99 * -----------------------------------------------------------------------
100 */
101
102 iarg = 0;
103 ret = vhcall_args_set_pointer( ca , VHCALL_INTENT_IN , iarg++ , &N , sizeof( int ) );
104 if ( ret ) {
105 perror("vhcall_args_set_pointer");
106 fprintf( stdout , "%s @ %d failed : unable to set argument.\n" , basename(__FILE__) , __LINE__ );
107 fflush( stdout );
108 (void) mumps_abort();
109 }
110
111 ret = vhcall_args_set_pointer( ca , VHCALL_INTENT_IN , iarg++ , IPE , ( N + 1 ) * sizeof( int64_t ) );
112 if ( ret ) {
113 perror("vhcall_args_set_pointer");
114 fprintf( stdout , "%s @ %d failed : unable to set argument.\n" , basename(__FILE__) , __LINE__ );
115 fflush( stdout );
116 (void) mumps_abort();
117 }
118
119 ret = vhcall_args_set_pointer( ca , VHCALL_INTENT_IN , iarg++ , IW , LIW8 * sizeof( int ) );
120 if ( ret ) {
121 perror("vhcall_args_set_pointer");
122 fprintf( stdout , "%s @ %d failed : unable to set argument.\n" , basename(__FILE__) , __LINE__ );
123 fflush( stdout );
124 (void) mumps_abort();
125 }
126
127 ret = vhcall_args_set_pointer( ca , VHCALL_INTENT_IN , iarg++ , &LIW8 , sizeof( int64_t ) );
128 if ( ret ) {
129 perror("vhcall_args_set_pointer");
130 fprintf( stdout , "%s @ %d failed : unable to set argument.\n" , basename(__FILE__) , __LINE__ );
131 fflush( stdout );
132 (void) mumps_abort();
133 }
134
135 ret = vhcall_args_set_pointer( ca , VHCALL_INTENT_INOUT , iarg++ , PERM , N * sizeof( int ) );
136 if ( ret ) {
137 perror("vhcall_args_set_pointer");
138 fprintf( stdout , "%s @ %d failed : unable to set argument.\n" , basename(__FILE__) , __LINE__ );
139 fflush( stdout );
140 (void) mumps_abort();
141 }
142
143 ret = vhcall_args_set_pointer( ca , VHCALL_INTENT_IN , iarg++ , SizeOfBlocks , N * sizeof( int ) );
144 if ( ret ) {
145 perror("vhcall_args_set_pointer");
146 fprintf( stdout , "%s @ %d failed : unable to set argument.\n" , basename(__FILE__) , __LINE__ );
147 fflush( stdout );
148 (void) mumps_abort();
149 }
150
151 ret = vhcall_args_set_pointer( ca , VHCALL_INTENT_IN , iarg++ , &KEEP60 , sizeof( int ) );
152 if ( ret ) {
153 perror("vhcall_args_set_pointer");
154 fprintf( stdout , "%s @ %d failed : unable to set argument.\n" , basename(__FILE__) , __LINE__ );
155 fflush( stdout );
156 (void) mumps_abort();
157 }
158
159 ret = vhcall_args_set_pointer( ca , VHCALL_INTENT_IN , iarg++ , LISTVAR_SCHUR , SIZE_SCHUR * sizeof( int ) );
160 if ( ret ) {
161 perror("vhcall_args_set_pointer");
162 fprintf( stdout , "%s @ %d failed : unable to set argument.\n" , basename(__FILE__) , __LINE__ );
163 fflush( stdout );
164 (void) mumps_abort();
165 }
166
167 ret = vhcall_args_set_pointer( ca , VHCALL_INTENT_IN , iarg++ , &SIZE_SCHUR , sizeof( int ) );
168 if ( ret ) {
169 perror("vhcall_args_set_pointer");
170 fprintf( stdout , "%s @ %d failed : unable to set argument.\n" , basename(__FILE__) , __LINE__ );
171 fflush( stdout );
172 (void) mumps_abort();
173 }
174
175 ret = vhcall_args_set_pointer( ca , VHCALL_INTENT_OUT , iarg++ , COLCOUNT , N * sizeof( int ) );
176 if ( ret ) {
177 perror("vhcall_args_set_pointer");
178 fprintf( stdout , "%s @ %d failed : unable to set argument.\n" , basename(__FILE__) , __LINE__ );
179 fflush( stdout );
180 (void) mumps_abort();
181 }
182
183 ret = vhcall_args_set_pointer( ca , VHCALL_INTENT_OUT , iarg++ , PARENT , N * sizeof( int ) );
184 if ( ret ) {
185 perror("vhcall_args_set_pointer");
186 fprintf( stdout , "%s @ %d failed : unable to set argument.\n" , basename(__FILE__) , __LINE__ );
187 fflush( stdout );
188 (void) mumps_abort();
189 }
190
191 ret = vhcall_args_set_pointer( ca , VHCALL_INTENT_OUT , iarg++ , PORDER , N * sizeof( int ) );
192 if ( ret ) {
193 perror("vhcall_args_set_pointer");
194 fprintf( stdout , "%s @ %d failed : unable to set argument.\n" , basename(__FILE__) , __LINE__ );
195 fflush( stdout );
196 (void) mumps_abort();
197 }
198
199 ret = vhcall_args_set_pointer( ca , VHCALL_INTENT_OUT , iarg++ , IWTMP1 , N * sizeof( int ) );
200 if ( ret ) {
201 perror("vhcall_args_set_pointer");
202 fprintf( stdout , "%s @ %d failed : unable to set argument.\n" , basename(__FILE__) , __LINE__ );
203 fflush( stdout );
204 (void) mumps_abort();
205 }
206
207 ret = vhcall_args_set_pointer( ca , VHCALL_INTENT_OUT , iarg++ , IWTMP2 , N * sizeof( int ) );
208 if ( ret ) {
209 perror("vhcall_args_set_pointer");
210 fprintf( stdout , "%s @ %d failed : unable to set argument.\n" , basename(__FILE__) , __LINE__ );
211 fflush( stdout );
212 (void) mumps_abort();
213 }
214
215 ret = vhcall_args_set_pointer( ca , VHCALL_INTENT_OUT , iarg++ , IWTMP3 , N * sizeof( int ) );
216 if ( ret ) {
217 perror("vhcall_args_set_pointer");
218 fprintf( stdout , "%s @ %d failed : unable to set argument.\n" , basename(__FILE__) , __LINE__ );
219 fflush( stdout );
220 (void) mumps_abort();
221 }
222
223 ret = vhcall_args_set_pointer( ca , VHCALL_INTENT_OUT , iarg++ , IWTMP4 , N * sizeof( int ) );
224 if ( ret ) {
225 perror("vhcall_args_set_pointer");
226 fprintf( stdout , "%s @ %d failed : unable to set argument.\n" , basename(__FILE__) , __LINE__ );
227 fflush( stdout );
228 (void) mumps_abort();
229 }
230
231 ret = vhcall_args_set_pointer( ca , VHCALL_INTENT_OUT , iarg++ , IWTMP5 , N * sizeof( int ) );
232 if ( ret ) {
233 perror("vhcall_args_set_pointer");
234 fprintf( stdout , "%s @ %d failed : unable to set argument.\n" , basename(__FILE__) , __LINE__ );
235 fflush( stdout );
236 (void) mumps_abort();
237 }
238
239 ret = vhcall_args_set_pointer( ca , VHCALL_INTENT_INOUT , iarg++ , INFO , 2 * sizeof( int ) );
240 if ( ret ) {
241 perror("vhcall_args_set_pointer");
242 fprintf( stdout , "%s @ %d failed : unable to set argument.\n" , basename(__FILE__) , __LINE__ );
243 fflush( stdout );
244 (void) mumps_abort();
245 }
246
247 /*
248 * -----------------------------------------------------------------------
249 * Invoke VH C library function
250 * -----------------------------------------------------------------------
251 */
252
253 ret = vhcall_invoke_with_args( symid , ca , &retval );
254 if ( ret ) {
255 perror("vhcall_invoke_with_args");
256 fprintf( stdout , "%s @ %d failed : unable to invoke the symbol from library\n" , basename(__FILE__) , __LINE__ );
257 fflush( stdout );
258 (void) mumps_abort();
259 }
260
261 /*
262 * -----------------------------------------------------------------------
263 * Free args
264 * -----------------------------------------------------------------------
265 */
266
267 vhcall_args_free( ca );
268
269 /*
270 * -----------------------------------------------------------------------
271 * Uninstall the library
272 * -----------------------------------------------------------------------
273 */
274
275 if ( vhcall_uninstall( handle ) ) {
276 perror("vhcall_uninstall");
277 fprintf( stdout , "cvhmetis_nodend failed : unable to uninstall the library\n" , basename(__FILE__) , __LINE__ );
278 fflush( stdout );
279 (void) mumps_abort();
280 }
281}
mumps_abort
#define mumps_abort
Definition VE_Metis.h:25
NECVH_MAX_LIBNAME
#define NECVH_MAX_LIBNAME
Definition VE_Metis.h:23
VE_Mumps.h
VE_Mumps_wrap_ginp94
void VE_Mumps_wrap_ginp94(int N, int64_t *IPE, int *IW, int64_t LIW8, int *PERM, int *SizeOfBlocks, int KEEP60, int *LISTVAR_SCHUR, int SIZE_SCHUR, int *COLCOUNT, int *PARENT, int *PORDER, int *IWTMP1, int *IWTMP2, int *IWTMP3, int *IWTMP4, int *IWTMP5, int *INFO)
Definition VE_Mumps_wrap_ginp94.c:15
handle
void * handle
Definition cpp_python_funct.cpp:67
N
#define N
Definition example_user.c:10
PERM
#define PERM
Definition rad2rad_c.c:91