FrontISTR  5.7.1
Large-scale structural analysis program with finit element method
hecmw_couple_info_if.c
Go to the documentation of this file.
1 /*****************************************************************************
2  * Copyright (c) 2019 FrontISTR Commons
3  * This software is released under the MIT License, see LICENSE.txt
4  *****************************************************************************/
5 
6 #include <stdio.h>
7 #include <stdlib.h>
8 #include <string.h>
9 #include <errno.h>
10 
11 #include "hecmw_struct.h"
12 #include "hecmw_lib_fc.h"
13 #include "hecmw_couple_info.h"
14 
15 /*================================================================================================*/
16 
17 extern void hecmw_couple_get_unit_id_if(char *boundary_id, int *unit_specifier,
18  char *buf, int *err, int id_len,
19  int buf_len) {
20  char c_boundary_id[HECMW_NAME_LEN + 1];
21  char c_buf[HECMW_NAME_LEN + 1];
22 
23  *err = 1;
24 
25  if (HECMW_strcpy_f2c_r(boundary_id, id_len, c_boundary_id,
26  sizeof(c_boundary_id)) == NULL)
27  return;
28  if (HECMW_couple_get_unit_id(c_boundary_id, *unit_specifier, c_buf,
29  sizeof(c_buf)) == NULL)
30  return;
31  if (HECMW_strcpy_c2f(c_buf, buf, buf_len) == 0) return;
32 
33  *err = 0;
34 }
35 
36 extern void hecmw_couple_get_unit_id_if_(char *boundary_id, int *unit_specifier,
37  char *buf, int *err, int id_len,
38  int buf_len) {
39  hecmw_couple_get_unit_id_if(boundary_id, unit_specifier, buf, err, id_len,
40  buf_len);
41 }
42 
43 extern void hecmw_couple_get_unit_id_if__(char *boundary_id,
44  int *unit_specifier, char *buf,
45  int *err, int id_len, int buf_len) {
46  hecmw_couple_get_unit_id_if(boundary_id, unit_specifier, buf, err, id_len,
47  buf_len);
48 }
49 
50 extern void HECMW_COUPLE_GET_UNIT_ID_IF(char *boundary_id, int *unit_specifier,
51  char *buf, int *err, int id_len,
52  int buf_len) {
53  hecmw_couple_get_unit_id_if(boundary_id, unit_specifier, buf, err, id_len,
54  buf_len);
55 }
56 
57 /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
58  * - - - - - - - - - */
59 
60 extern void hecmw_couple_is_memb_if(char *boundary_id, int *is_member,
61  int id_len) {
62  char c_id[HECMW_NAME_LEN + 1];
63 
64  *is_member = -1;
65  if (HECMW_strcpy_f2c_r(boundary_id, id_len, c_id, sizeof(c_id)) == NULL)
66  return;
67  *is_member = HECMW_couple_is_member(c_id);
68 }
69 
70 extern void hecmw_couple_is_memb_if_(char *boundary_id, int *is_member,
71  int id_len) {
72  hecmw_couple_is_memb_if(boundary_id, is_member, id_len);
73 }
74 
75 extern void hecmw_couple_is_memb_if__(char *boundary_id, int *is_member,
76  int id_len) {
77  hecmw_couple_is_memb_if(boundary_id, is_member, id_len);
78 }
79 
80 extern void HECMW_COUPLE_IS_MEMB_IF(char *boundary_id, int *is_member,
81  int id_len) {
82  hecmw_couple_is_memb_if(boundary_id, is_member, id_len);
83 }
84 
85 /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
86  * - - - - - - - - - */
87 
88 extern void hecmw_couple_is_unit_memb_if(char *boundary_id, int *unit_specifier,
89  int *is_member, int id_len) {
90  char c_id[HECMW_NAME_LEN + 1];
91 
92  *is_member = -1;
93  if (HECMW_strcpy_f2c_r(boundary_id, id_len, c_id, sizeof(c_id)) == NULL)
94  return;
95  *is_member = HECMW_couple_is_unit_member(c_id, *unit_specifier);
96 }
97 
98 extern void hecmw_couple_is_unit_memb_if_(char *boundary_id,
99  int *unit_specifier, int *is_member,
100  int id_len) {
101  hecmw_couple_is_unit_memb_if(boundary_id, unit_specifier, is_member, id_len);
102 }
103 
104 extern void hecmw_couple_is_unit_memb_if__(char *boundary_id,
105  int *unit_specifier, int *is_member,
106  int id_len) {
107  hecmw_couple_is_unit_memb_if(boundary_id, unit_specifier, is_member, id_len);
108 }
109 
110 extern void HECMW_COUPLE_IS_UNIT_MEMB_IF(char *boundary_id, int *unit_specifier,
111  int *is_member, int id_len) {
112  hecmw_couple_is_unit_memb_if(boundary_id, unit_specifier, is_member, id_len);
113 }
114 
115 /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
116  * - - - - - - - - - */
117 
118 extern void hecmw_couple_is_unit_memb_u_if(char *unit_id, int *is_member,
119  int id_len) {
120  char c_id[HECMW_NAME_LEN + 1];
121 
122  *is_member = -1;
123  if (HECMW_strcpy_f2c_r(unit_id, id_len, c_id, sizeof(c_id)) == NULL) return;
124  *is_member = HECMW_couple_is_unit_member_u(c_id);
125 }
126 
127 extern void hecmw_couple_is_unit_memb_u_if_(char *unit_id, int *is_member,
128  int id_len) {
129  hecmw_couple_is_unit_memb_u_if(unit_id, is_member, id_len);
130 }
131 
132 extern void hecmw_couple_is_unit_memb_u_if__(char *unit_id, int *is_member,
133  int id_len) {
134  hecmw_couple_is_unit_memb_u_if(unit_id, is_member, id_len);
135 }
136 
137 extern void HECMW_COUPLE_IS_UNIT_MEMB_U_IF(char *unit_id, int *is_member,
138  int id_len) {
139  hecmw_couple_is_unit_memb_u_if(unit_id, is_member, id_len);
140 }
141 
142 /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
143  * - - - - - - - - - */
144 
145 extern void hecmw_couple_is_root_if(char *boundary_id, int *is_root,
146  int id_len) {
147  char c_id[HECMW_NAME_LEN + 1];
148 
149  *is_root = -1;
150  if (HECMW_strcpy_f2c_r(boundary_id, id_len, c_id, sizeof(c_id)) == NULL)
151  return;
152  *is_root = HECMW_couple_is_root(c_id);
153 }
154 
155 extern void hecmw_couple_is_root_if_(char *boundary_id, int *is_root,
156  int id_len) {
157  hecmw_couple_is_root_if(boundary_id, is_root, id_len);
158 }
159 
160 extern void hecmw_couple_is_root_if__(char *boundary_id, int *is_root,
161  int id_len) {
162  hecmw_couple_is_root_if(boundary_id, is_root, id_len);
163 }
164 
165 extern void HECMW_COUPLE_IS_ROOT_IF(char *boundary_id, int *is_root,
166  int id_len) {
167  hecmw_couple_is_root_if(boundary_id, is_root, id_len);
168 }
169 
170 /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
171  * - - - - - - - - - */
172 
173 extern void hecmw_couple_is_unit_root_if(char *boundary_id, int *unit_specifier,
174  int *is_root, int id_len) {
175  char c_id[HECMW_NAME_LEN + 1];
176 
177  *is_root = -1;
178  if (HECMW_strcpy_f2c_r(boundary_id, id_len, c_id, sizeof(c_id)) == NULL)
179  return;
180  *is_root = HECMW_couple_is_unit_root(c_id, *unit_specifier);
181 }
182 
183 extern void hecmw_couple_is_unit_root_if_(char *boundary_id,
184  int *unit_specifier, int *is_root,
185  int id_len) {
186  hecmw_couple_is_unit_root_if(boundary_id, unit_specifier, is_root, id_len);
187 }
188 
189 extern void hecmw_couple_is_unit_root_if__(char *boundary_id,
190  int *unit_specifier, int *is_root,
191  int id_len) {
192  hecmw_couple_is_unit_root_if(boundary_id, unit_specifier, is_root, id_len);
193 }
194 
195 extern void HECMW_COUPLE_IS_UNIT_ROOT_IF(char *boundary_id, int *unit_specifier,
196  int *is_root, int id_len) {
197  hecmw_couple_is_unit_root_if(boundary_id, unit_specifier, is_root, id_len);
198 }
199 
200 /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
201  * - - - - - - - - - */
202 
203 extern void hecmw_couple_is_unit_root_u_if(char *unit_id, int *is_root,
204  int id_len) {
205  char c_id[HECMW_NAME_LEN + 1];
206 
207  *is_root = -1;
208  if (HECMW_strcpy_f2c_r(unit_id, id_len, c_id, sizeof(c_id)) == NULL) return;
209  *is_root = HECMW_couple_is_unit_root_u(c_id);
210 }
211 
212 extern void hecmw_couple_is_unit_root_u_if_(char *unit_id, int *is_root,
213  int id_len) {
214  hecmw_couple_is_unit_root_u_if(unit_id, is_root, id_len);
215 }
216 
217 extern void hecmw_couple_is_unit_root_u_if__(char *unit_id, int *is_root,
218  int id_len) {
219  hecmw_couple_is_unit_root_u_if(unit_id, is_root, id_len);
220 }
221 
222 extern void HECMW_COUPLE_IS_UNIT_ROOT_U_IF(char *unit_id, int *is_root,
223  int id_len) {
224  hecmw_couple_is_unit_root_u_if(unit_id, is_root, id_len);
225 }
226 
227 /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
228  * - - - - - - - - - */
229 
230 extern void hecmw_intercomm_get_size_if(char *boundary_id, int *psize,
231  int id_len) {
232  char c_id[HECMW_NAME_LEN + 1];
233 
234  *psize = -1;
235  if (HECMW_strcpy_f2c_r(boundary_id, id_len, c_id, sizeof(c_id)) == NULL)
236  return;
237  *psize = HECMW_intercomm_get_size(c_id);
238 }
239 
240 extern void hecmw_intercomm_get_size_if_(char *boundary_id, int *psize,
241  int id_len) {
242  hecmw_intercomm_get_size_if(boundary_id, psize, id_len);
243 }
244 
245 extern void hecmw_intercomm_get_size_if__(char *boundary_id, int *psize,
246  int id_len) {
247  hecmw_intercomm_get_size_if(boundary_id, psize, id_len);
248 }
249 
250 extern void HECMW_INTERCOMM_GET_SIZE_IF(char *boundary_id, int *psize,
251  int id_len) {
252  hecmw_intercomm_get_size_if(boundary_id, psize, id_len);
253 }
254 
255 /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
256  * - - - - - - - - - */
257 
258 extern void hecmw_intracomm_get_size_if(char *boundary_id, int *unit_specifier,
259  int *psize, int id_len) {
260  char c_id[HECMW_NAME_LEN + 1];
261 
262  *psize = -1;
263  if (HECMW_strcpy_f2c_r(boundary_id, id_len, c_id, sizeof(c_id)) == NULL)
264  return;
265  *psize = HECMW_intracomm_get_size(c_id, *unit_specifier);
266 }
267 
268 extern void hecmw_intracomm_get_size_if_(char *boundary_id, int *unit_specifier,
269  int *psize, int id_len) {
270  hecmw_intracomm_get_size_if(boundary_id, unit_specifier, psize, id_len);
271 }
272 
273 extern void hecmw_intracomm_get_size_if__(char *boundary_id,
274  int *unit_specifier, int *psize,
275  int id_len) {
276  hecmw_intracomm_get_size_if(boundary_id, unit_specifier, psize, id_len);
277 }
278 
279 extern void HECMW_INTRACOMM_GET_SIZE_IF(char *boundary_id, int *unit_specifier,
280  int *psize, int id_len) {
281  hecmw_intracomm_get_size_if(boundary_id, unit_specifier, psize, id_len);
282 }
283 
284 /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
285  * - - - - - - - - - */
286 
287 extern void hecmw_intracomm_get_size_u_if(char *unit_id, int *psize,
288  int id_len) {
289  char c_id[HECMW_NAME_LEN + 1];
290 
291  *psize = -1;
292  if (HECMW_strcpy_f2c_r(unit_id, id_len, c_id, sizeof(c_id)) == NULL) return;
293  *psize = HECMW_intracomm_get_size_u(c_id);
294 }
295 
296 extern void hecmw_intracomm_get_size_u_if_(char *unit_id, int *psize,
297  int id_len) {
298  hecmw_intracomm_get_size_u_if(unit_id, psize, id_len);
299 }
300 
301 extern void hecmw_intracomm_get_size_u_if__(char *unit_id, int *psize,
302  int id_len) {
303  hecmw_intracomm_get_size_u_if(unit_id, psize, id_len);
304 }
305 
306 extern void HECMW_INTRACOMM_GET_SIZE_U_IF(char *unit_id, int *psize,
307  int id_len) {
308  hecmw_intracomm_get_size_u_if(unit_id, psize, id_len);
309 }
310 
311 /*------------------------------------------------------------------------------------------------*/
312 
313 extern void hecmw_intercomm_get_rank_if(char *boundary_id, int *rank,
314  int id_len) {
315  char c_id[HECMW_NAME_LEN + 1];
316 
317  *rank = -1;
318  if (HECMW_strcpy_f2c_r(boundary_id, id_len, c_id, sizeof(c_id)) == NULL)
319  return;
320  *rank = HECMW_intercomm_get_rank(c_id);
321 }
322 
323 extern void hecmw_intercomm_get_rank_if_(char *boundary_id, int *rank,
324  int id_len) {
325  hecmw_intercomm_get_rank_if(boundary_id, rank, id_len);
326 }
327 
328 extern void hecmw_intercomm_get_rank_if__(char *boundary_id, int *rank,
329  int id_len) {
330  hecmw_intercomm_get_rank_if(boundary_id, rank, id_len);
331 }
332 
333 extern void HECMW_INTERCOMM_GET_RANK_IF(char *boundary_id, int *rank,
334  int id_len) {
335  hecmw_intercomm_get_rank_if(boundary_id, rank, id_len);
336 }
337 
338 /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
339  * - - - - - - - - - */
340 
341 extern void hecmw_intracomm_get_rank_if(char *boundary_id, int *unit_specifier,
342  int *rank, int id_len) {
343  char c_id[HECMW_NAME_LEN + 1];
344 
345  *rank = -1;
346  if (HECMW_strcpy_f2c_r(boundary_id, id_len, c_id, sizeof(c_id)) == NULL)
347  return;
348  *rank = HECMW_intracomm_get_rank(c_id, *unit_specifier);
349 }
350 
351 extern void hecmw_intracomm_get_rank_if_(char *boundary_id, int *unit_specifier,
352  int *rank, int id_len) {
353  hecmw_intracomm_get_rank_if(boundary_id, unit_specifier, rank, id_len);
354 }
355 
356 extern void hecmw_intracomm_get_rank_if__(char *boundary_id,
357  int *unit_specifier, int *rank,
358  int id_len) {
359  hecmw_intracomm_get_rank_if(boundary_id, unit_specifier, rank, id_len);
360 }
361 
362 extern void HECMW_INTRACOMM_GET_RANK_IF(char *boundary_id, int *unit_specifier,
363  int *rank, int id_len) {
364  hecmw_intracomm_get_rank_if(boundary_id, unit_specifier, rank, id_len);
365 }
366 
367 /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
368  * - - - - - - - - - */
369 
370 extern void hecmw_intracomm_get_rank_u_if(char *unit_id, int *rank,
371  int id_len) {
372  char c_id[HECMW_NAME_LEN + 1];
373 
374  *rank = -1;
375  if (HECMW_strcpy_f2c_r(unit_id, id_len, c_id, sizeof(c_id)) == NULL) return;
376  *rank = HECMW_intracomm_get_rank_u(c_id);
377 }
378 
379 extern void hecmw_intracomm_get_rank_u_if_(char *unit_id, int *rank,
380  int id_len) {
381  hecmw_intracomm_get_rank_u_if(unit_id, rank, id_len);
382 }
383 
384 extern void hecmw_intracomm_get_rank_u_if__(char *unit_id, int *rank,
385  int id_len) {
386  hecmw_intracomm_get_rank_u_if(unit_id, rank, id_len);
387 }
388 
389 extern void HECMW_INTRACOMM_GET_RANK_U_IF(char *unit_id, int *rank,
390  int id_len) {
391  hecmw_intracomm_get_rank_u_if(unit_id, rank, id_len);
392 }
393 
394 /*------------------------------------------------------------------------------------------------*/
395 
396 extern void hecmw_intercomm_get_comm_if(char *boundary_id, int *comm,
397  int id_len) {
398  char c_id[HECMW_NAME_LEN + 1];
399 
400  *comm = -1;
401  if (HECMW_strcpy_f2c_r(boundary_id, id_len, c_id, sizeof(c_id)) == NULL)
402  return;
403  *comm = (int)HECMW_intercomm_get_comm(c_id);
404 }
405 
406 extern void hecmw_intercomm_get_comm_if_(char *boundary_id, int *comm,
407  int id_len) {
408  hecmw_intercomm_get_comm_if(boundary_id, comm, id_len);
409 }
410 
411 extern void hecmw_intercomm_get_comm_if__(char *boundary_id, int *comm,
412  int id_len) {
413  hecmw_intercomm_get_comm_if(boundary_id, comm, id_len);
414 }
415 
416 extern void HECMW_INTERCOMM_GET_COMM_IF(char *boundary_id, int *comm,
417  int id_len) {
418  hecmw_intercomm_get_comm_if(boundary_id, comm, id_len);
419 }
420 
421 /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
422  * - - - - - - - - - */
423 
424 extern void hecmw_intracomm_get_comm_if(char *boundary_id, int *unit_specifier,
425  int *comm, int id_len) {
426  char c_id[HECMW_NAME_LEN + 1];
427 
428  *comm = -1;
429  if (HECMW_strcpy_f2c_r(boundary_id, id_len, c_id, sizeof(c_id)) == NULL)
430  return;
431  *comm = (int)HECMW_intracomm_get_comm(c_id, *unit_specifier);
432 }
433 
434 extern void hecmw_intracomm_get_comm_if_(char *boundary_id, int *unit_specifier,
435  int *comm, int id_len) {
436  hecmw_intracomm_get_comm_if(boundary_id, unit_specifier, comm, id_len);
437 }
438 
439 extern void hecmw_intracomm_get_comm_if__(char *boundary_id,
440  int *unit_specifier, int *comm,
441  int id_len) {
442  hecmw_intracomm_get_comm_if(boundary_id, unit_specifier, comm, id_len);
443 }
444 
445 extern void HECMW_INTRACOMM_GET_COMM_IF(char *boundary_id, int *unit_specifier,
446  int *comm, int id_len) {
447  hecmw_intracomm_get_comm_if(boundary_id, unit_specifier, comm, id_len);
448 }
449 
450 /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
451  * - - - - - - - - - */
452 
453 extern void hecmw_intracomm_get_comm_u_if(char *unit_id, int *comm,
454  int id_len) {
455  char c_id[HECMW_NAME_LEN + 1];
456 
457  *comm = -1;
458  if (HECMW_strcpy_f2c_r(unit_id, id_len, c_id, sizeof(c_id)) == NULL) return;
459  *comm = (int)HECMW_intracomm_get_comm_u(c_id);
460 }
461 
462 extern void hecmw_intracomm_get_comm_u_if_(char *unit_id, int *comm,
463  int id_len) {
464  hecmw_intracomm_get_comm_u_if(unit_id, comm, id_len);
465 }
466 
467 extern void hecmw_intracomm_get_comm_u_if__(char *unit_id, int *comm,
468  int id_len) {
469  hecmw_intracomm_get_comm_u_if(unit_id, comm, id_len);
470 }
471 
472 extern void HECMW_INTRACOMM_GET_COMM_U_IF(char *unit_id, int *comm,
473  int id_len) {
474  hecmw_intracomm_get_comm_u_if(unit_id, comm, id_len);
475 }
476 
477 /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
478  * - - - - - - - - - */
479 
480 extern void hecmw_intercomm_get_group_if(char *boundary_id, int *group,
481  int id_len) {
482  char c_id[HECMW_NAME_LEN + 1];
483 
484  *group = -1;
485  if (HECMW_strcpy_f2c_r(boundary_id, id_len, c_id, sizeof(c_id)) == NULL)
486  return;
487  *group = (int)HECMW_intercomm_get_group(c_id);
488 }
489 
490 extern void hecmw_intercomm_get_group_if_(char *boundary_id, int *group,
491  int id_len) {
492  hecmw_intercomm_get_group_if(boundary_id, group, id_len);
493 }
494 
495 extern void hecmw_intercomm_get_group_if__(char *boundary_id, int *group,
496  int id_len) {
497  hecmw_intercomm_get_group_if(boundary_id, group, id_len);
498 }
499 
500 extern void HECMW_INTERCOMM_GET_GROUP_IF(char *boundary_id, int *group,
501  int id_len) {
502  hecmw_intercomm_get_group_if(boundary_id, group, id_len);
503 }
504 
505 /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
506  * - - - - - - - - - */
507 
508 extern void hecmw_intracomm_get_group_if(char *boundary_id, int *unit_specifier,
509  int *group, int id_len) {
510  char c_id[HECMW_NAME_LEN + 1];
511 
512  *group = -1;
513  if (HECMW_strcpy_f2c_r(boundary_id, id_len, c_id, sizeof(c_id)) == NULL)
514  return;
515  *group = (int)HECMW_intracomm_get_group(c_id, *unit_specifier);
516 }
517 
518 extern void hecmw_intracomm_get_group_if_(char *boundary_id,
519  int *unit_specifier, int *group,
520  int id_len) {
521  hecmw_intracomm_get_group_if(boundary_id, unit_specifier, group, id_len);
522 }
523 
524 extern void hecmw_intracomm_get_group_if__(char *boundary_id,
525  int *unit_specifier, int *group,
526  int id_len) {
527  hecmw_intracomm_get_group_if(boundary_id, unit_specifier, group, id_len);
528 }
529 
530 extern void HECMW_INTRACOMM_GET_GROUP_IF(char *boundary_id, int *unit_specifier,
531  int *group, int id_len) {
532  hecmw_intracomm_get_group_if(boundary_id, unit_specifier, group, id_len);
533 }
534 
535 /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
536  * - - - - - - - - - */
537 
538 extern void hecmw_intracomm_get_group_u_if(char *unit_id, int *group,
539  int id_len) {
540  char c_id[HECMW_NAME_LEN + 1];
541 
542  *group = -1;
543  if (HECMW_strcpy_f2c_r(unit_id, id_len, c_id, sizeof(c_id)) == NULL) return;
544  *group = (int)HECMW_intracomm_get_group_u(c_id);
545 }
546 
547 extern void hecmw_intracomm_get_group_u_if_(char *unit_id, int *group,
548  int id_len) {
549  hecmw_intracomm_get_group_u_if(unit_id, group, id_len);
550 }
551 
552 extern void hecmw_intracomm_get_group_u_if__(char *unit_id, int *group,
553  int id_len) {
554  hecmw_intracomm_get_group_u_if(unit_id, group, id_len);
555 }
556 
557 extern void HECMW_INTRACOMM_GET_GROUP_U_IF(char *unit_id, int *group,
558  int id_len) {
559  hecmw_intracomm_get_group_u_if(unit_id, group, id_len);
560 }
561 
562 /*------------------------------------------------------------------------------------------------*/
563 
564 extern void hecmw_couple_comm_init_if(int *err) {
565  if (HECMW_couple_comm_init() != HECMW_SUCCESS) {
566  *err = 1;
567  } else {
568  *err = 0;
569  }
570 }
571 
572 extern void hecmw_couple_comm_init_if_(int *err) {
573  hecmw_couple_comm_init_if(err);
574 }
575 
576 extern void hecmw_couple_comm_init_if__(int *err) {
577  hecmw_couple_comm_init_if(err);
578 }
579 
580 extern void HECMW_COUPLE_COMM_INIT_IF(int *err) {
581  hecmw_couple_comm_init_if(err);
582 }
HECMW_SUCCESS
#define HECMW_SUCCESS
Definition: hecmw_config.h:64
HECMW_NAME_LEN
#define HECMW_NAME_LEN
Definition: hecmw_config.h:70
HECMW_couple_is_member
int HECMW_couple_is_member(const char *boundary_id)
Definition: hecmw_couple_info.c:1064
HECMW_intracomm_get_size
int HECMW_intracomm_get_size(const char *boundary_id, int unit_specifier)
Definition: hecmw_couple_info.c:1196
HECMW_couple_is_unit_member
int HECMW_couple_is_unit_member(const char *boundary_id, int unit_specifier)
Definition: hecmw_couple_info.c:1081
HECMW_intercomm_get_group
HECMW_Group HECMW_intercomm_get_group(const char *boundary_id)
Definition: hecmw_couple_info.c:1345
HECMW_intracomm_get_size_u
int HECMW_intracomm_get_size_u(const char *unit_id)
Definition: hecmw_couple_info.c:1221
HECMW_couple_is_unit_root_u
int HECMW_couple_is_unit_root_u(const char *unit_id)
Definition: hecmw_couple_info.c:1165
HECMW_couple_is_unit_root
int HECMW_couple_is_unit_root(const char *boundary_id, int unit_specifier)
Definition: hecmw_couple_info.c:1139
HECMW_intracomm_get_group_u
HECMW_Group HECMW_intracomm_get_group_u(const char *unit_id)
Definition: hecmw_couple_info.c:1386
HECMW_intercomm_get_comm
HECMW_Comm HECMW_intercomm_get_comm(const char *boundary_id)
Definition: hecmw_couple_info.c:1290
HECMW_intracomm_get_comm_u
HECMW_Comm HECMW_intracomm_get_comm_u(const char *unit_id)
Definition: hecmw_couple_info.c:1331
HECMW_couple_get_unit_id
char * HECMW_couple_get_unit_id(const char *boundary_id, int unit_specifier, char *buf, int bufsize)
Definition: hecmw_couple_info.c:1020
HECMW_intracomm_get_rank_u
int HECMW_intracomm_get_rank_u(const char *unit_id)
Definition: hecmw_couple_info.c:1276
HECMW_couple_is_root
int HECMW_couple_is_root(const char *boundary_id)
Definition: hecmw_couple_info.c:1122
HECMW_couple_comm_init
int HECMW_couple_comm_init(void)
Definition: hecmw_couple_info.c:981
HECMW_intercomm_get_size
int HECMW_intercomm_get_size(const char *boundary_id)
Definition: hecmw_couple_info.c:1180
HECMW_intracomm_get_rank
int HECMW_intracomm_get_rank(const char *boundary_id, int unit_specifier)
Definition: hecmw_couple_info.c:1251
HECMW_intercomm_get_rank
int HECMW_intercomm_get_rank(const char *boundary_id)
Definition: hecmw_couple_info.c:1235
HECMW_intracomm_get_group
HECMW_Group HECMW_intracomm_get_group(const char *boundary_id, int unit_specifier)
Definition: hecmw_couple_info.c:1361
HECMW_couple_is_unit_member_u
int HECMW_couple_is_unit_member_u(const char *unit_id)
Definition: hecmw_couple_info.c:1107
HECMW_intracomm_get_comm
HECMW_Comm HECMW_intracomm_get_comm(const char *boundary_id, int unit_specifier)
Definition: hecmw_couple_info.c:1306
hecmw_couple_info.h
hecmw_couple_is_memb_if_
void hecmw_couple_is_memb_if_(char *boundary_id, int *is_member, int id_len)
Definition: hecmw_couple_info_if.c:70
HECMW_COUPLE_GET_UNIT_ID_IF
void HECMW_COUPLE_GET_UNIT_ID_IF(char *boundary_id, int *unit_specifier, char *buf, int *err, int id_len, int buf_len)
Definition: hecmw_couple_info_if.c:50
hecmw_couple_get_unit_id_if__
void hecmw_couple_get_unit_id_if__(char *boundary_id, int *unit_specifier, char *buf, int *err, int id_len, int buf_len)
Definition: hecmw_couple_info_if.c:43
HECMW_INTERCOMM_GET_SIZE_IF
void HECMW_INTERCOMM_GET_SIZE_IF(char *boundary_id, int *psize, int id_len)
Definition: hecmw_couple_info_if.c:250
hecmw_intercomm_get_size_if_
void hecmw_intercomm_get_size_if_(char *boundary_id, int *psize, int id_len)
Definition: hecmw_couple_info_if.c:240
HECMW_COUPLE_IS_MEMB_IF
void HECMW_COUPLE_IS_MEMB_IF(char *boundary_id, int *is_member, int id_len)
Definition: hecmw_couple_info_if.c:80
hecmw_intercomm_get_group_if
void hecmw_intercomm_get_group_if(char *boundary_id, int *group, int id_len)
Definition: hecmw_couple_info_if.c:480
hecmw_couple_is_unit_root_if
void hecmw_couple_is_unit_root_if(char *boundary_id, int *unit_specifier, int *is_root, int id_len)
Definition: hecmw_couple_info_if.c:173
hecmw_intracomm_get_comm_u_if_
void hecmw_intracomm_get_comm_u_if_(char *unit_id, int *comm, int id_len)
Definition: hecmw_couple_info_if.c:462
hecmw_intracomm_get_rank_u_if
void hecmw_intracomm_get_rank_u_if(char *unit_id, int *rank, int id_len)
Definition: hecmw_couple_info_if.c:370
HECMW_COUPLE_COMM_INIT_IF
void HECMW_COUPLE_COMM_INIT_IF(int *err)
Definition: hecmw_couple_info_if.c:580
hecmw_intracomm_get_group_if
void hecmw_intracomm_get_group_if(char *boundary_id, int *unit_specifier, int *group, int id_len)
Definition: hecmw_couple_info_if.c:508
hecmw_couple_is_unit_memb_u_if
void hecmw_couple_is_unit_memb_u_if(char *unit_id, int *is_member, int id_len)
Definition: hecmw_couple_info_if.c:118
hecmw_intercomm_get_group_if_
void hecmw_intercomm_get_group_if_(char *boundary_id, int *group, int id_len)
Definition: hecmw_couple_info_if.c:490
hecmw_intercomm_get_rank_if
void hecmw_intercomm_get_rank_if(char *boundary_id, int *rank, int id_len)
Definition: hecmw_couple_info_if.c:313
HECMW_INTRACOMM_GET_SIZE_U_IF
void HECMW_INTRACOMM_GET_SIZE_U_IF(char *unit_id, int *psize, int id_len)
Definition: hecmw_couple_info_if.c:306
hecmw_intercomm_get_group_if__
void hecmw_intercomm_get_group_if__(char *boundary_id, int *group, int id_len)
Definition: hecmw_couple_info_if.c:495
HECMW_INTRACOMM_GET_GROUP_U_IF
void HECMW_INTRACOMM_GET_GROUP_U_IF(char *unit_id, int *group, int id_len)
Definition: hecmw_couple_info_if.c:557
hecmw_couple_is_unit_root_u_if__
void hecmw_couple_is_unit_root_u_if__(char *unit_id, int *is_root, int id_len)
Definition: hecmw_couple_info_if.c:217
hecmw_intracomm_get_group_if__
void hecmw_intracomm_get_group_if__(char *boundary_id, int *unit_specifier, int *group, int id_len)
Definition: hecmw_couple_info_if.c:524
hecmw_intracomm_get_group_if_
void hecmw_intracomm_get_group_if_(char *boundary_id, int *unit_specifier, int *group, int id_len)
Definition: hecmw_couple_info_if.c:518
hecmw_couple_is_unit_memb_if
void hecmw_couple_is_unit_memb_if(char *boundary_id, int *unit_specifier, int *is_member, int id_len)
Definition: hecmw_couple_info_if.c:88
hecmw_intracomm_get_comm_if_
void hecmw_intracomm_get_comm_if_(char *boundary_id, int *unit_specifier, int *comm, int id_len)
Definition: hecmw_couple_info_if.c:434
hecmw_intracomm_get_rank_u_if_
void hecmw_intracomm_get_rank_u_if_(char *unit_id, int *rank, int id_len)
Definition: hecmw_couple_info_if.c:379
hecmw_intercomm_get_size_if
void hecmw_intercomm_get_size_if(char *boundary_id, int *psize, int id_len)
Definition: hecmw_couple_info_if.c:230
hecmw_intercomm_get_rank_if__
void hecmw_intercomm_get_rank_if__(char *boundary_id, int *rank, int id_len)
Definition: hecmw_couple_info_if.c:328
hecmw_couple_is_unit_memb_u_if__
void hecmw_couple_is_unit_memb_u_if__(char *unit_id, int *is_member, int id_len)
Definition: hecmw_couple_info_if.c:132
hecmw_intracomm_get_size_if__
void hecmw_intracomm_get_size_if__(char *boundary_id, int *unit_specifier, int *psize, int id_len)
Definition: hecmw_couple_info_if.c:273
hecmw_intracomm_get_size_u_if__
void hecmw_intracomm_get_size_u_if__(char *unit_id, int *psize, int id_len)
Definition: hecmw_couple_info_if.c:301
hecmw_couple_comm_init_if_
void hecmw_couple_comm_init_if_(int *err)
Definition: hecmw_couple_info_if.c:572
hecmw_intracomm_get_comm_if
void hecmw_intracomm_get_comm_if(char *boundary_id, int *unit_specifier, int *comm, int id_len)
Definition: hecmw_couple_info_if.c:424
hecmw_couple_is_memb_if
void hecmw_couple_is_memb_if(char *boundary_id, int *is_member, int id_len)
Definition: hecmw_couple_info_if.c:60
hecmw_couple_is_unit_memb_if_
void hecmw_couple_is_unit_memb_if_(char *boundary_id, int *unit_specifier, int *is_member, int id_len)
Definition: hecmw_couple_info_if.c:98
hecmw_couple_is_root_if
void hecmw_couple_is_root_if(char *boundary_id, int *is_root, int id_len)
Definition: hecmw_couple_info_if.c:145
HECMW_INTRACOMM_GET_SIZE_IF
void HECMW_INTRACOMM_GET_SIZE_IF(char *boundary_id, int *unit_specifier, int *psize, int id_len)
Definition: hecmw_couple_info_if.c:279
hecmw_couple_comm_init_if__
void hecmw_couple_comm_init_if__(int *err)
Definition: hecmw_couple_info_if.c:576
hecmw_intracomm_get_comm_if__
void hecmw_intracomm_get_comm_if__(char *boundary_id, int *unit_specifier, int *comm, int id_len)
Definition: hecmw_couple_info_if.c:439
hecmw_couple_is_unit_root_if_
void hecmw_couple_is_unit_root_if_(char *boundary_id, int *unit_specifier, int *is_root, int id_len)
Definition: hecmw_couple_info_if.c:183
hecmw_intracomm_get_size_u_if_
void hecmw_intracomm_get_size_u_if_(char *unit_id, int *psize, int id_len)
Definition: hecmw_couple_info_if.c:296
hecmw_intracomm_get_rank_if
void hecmw_intracomm_get_rank_if(char *boundary_id, int *unit_specifier, int *rank, int id_len)
Definition: hecmw_couple_info_if.c:341
HECMW_INTRACOMM_GET_RANK_U_IF
void HECMW_INTRACOMM_GET_RANK_U_IF(char *unit_id, int *rank, int id_len)
Definition: hecmw_couple_info_if.c:389
hecmw_intracomm_get_rank_if__
void hecmw_intracomm_get_rank_if__(char *boundary_id, int *unit_specifier, int *rank, int id_len)
Definition: hecmw_couple_info_if.c:356
hecmw_couple_comm_init_if
void hecmw_couple_comm_init_if(int *err)
Definition: hecmw_couple_info_if.c:564
HECMW_INTERCOMM_GET_COMM_IF
void HECMW_INTERCOMM_GET_COMM_IF(char *boundary_id, int *comm, int id_len)
Definition: hecmw_couple_info_if.c:416
hecmw_intracomm_get_size_if
void hecmw_intracomm_get_size_if(char *boundary_id, int *unit_specifier, int *psize, int id_len)
Definition: hecmw_couple_info_if.c:258
hecmw_intracomm_get_rank_if_
void hecmw_intracomm_get_rank_if_(char *boundary_id, int *unit_specifier, int *rank, int id_len)
Definition: hecmw_couple_info_if.c:351
HECMW_INTRACOMM_GET_GROUP_IF
void HECMW_INTRACOMM_GET_GROUP_IF(char *boundary_id, int *unit_specifier, int *group, int id_len)
Definition: hecmw_couple_info_if.c:530
hecmw_intracomm_get_rank_u_if__
void hecmw_intracomm_get_rank_u_if__(char *unit_id, int *rank, int id_len)
Definition: hecmw_couple_info_if.c:384
HECMW_COUPLE_IS_UNIT_MEMB_IF
void HECMW_COUPLE_IS_UNIT_MEMB_IF(char *boundary_id, int *unit_specifier, int *is_member, int id_len)
Definition: hecmw_couple_info_if.c:110
hecmw_intracomm_get_comm_u_if
void hecmw_intracomm_get_comm_u_if(char *unit_id, int *comm, int id_len)
Definition: hecmw_couple_info_if.c:453
hecmw_intercomm_get_comm_if
void hecmw_intercomm_get_comm_if(char *boundary_id, int *comm, int id_len)
Definition: hecmw_couple_info_if.c:396
hecmw_intracomm_get_size_u_if
void hecmw_intracomm_get_size_u_if(char *unit_id, int *psize, int id_len)
Definition: hecmw_couple_info_if.c:287
hecmw_intercomm_get_comm_if_
void hecmw_intercomm_get_comm_if_(char *boundary_id, int *comm, int id_len)
Definition: hecmw_couple_info_if.c:406
HECMW_COUPLE_IS_UNIT_ROOT_U_IF
void HECMW_COUPLE_IS_UNIT_ROOT_U_IF(char *unit_id, int *is_root, int id_len)
Definition: hecmw_couple_info_if.c:222
hecmw_intracomm_get_size_if_
void hecmw_intracomm_get_size_if_(char *boundary_id, int *unit_specifier, int *psize, int id_len)
Definition: hecmw_couple_info_if.c:268
HECMW_INTRACOMM_GET_COMM_IF
void HECMW_INTRACOMM_GET_COMM_IF(char *boundary_id, int *unit_specifier, int *comm, int id_len)
Definition: hecmw_couple_info_if.c:445
hecmw_couple_get_unit_id_if_
void hecmw_couple_get_unit_id_if_(char *boundary_id, int *unit_specifier, char *buf, int *err, int id_len, int buf_len)
Definition: hecmw_couple_info_if.c:36
hecmw_couple_is_root_if__
void hecmw_couple_is_root_if__(char *boundary_id, int *is_root, int id_len)
Definition: hecmw_couple_info_if.c:160
hecmw_couple_is_unit_root_if__
void hecmw_couple_is_unit_root_if__(char *boundary_id, int *unit_specifier, int *is_root, int id_len)
Definition: hecmw_couple_info_if.c:189
HECMW_COUPLE_IS_UNIT_ROOT_IF
void HECMW_COUPLE_IS_UNIT_ROOT_IF(char *boundary_id, int *unit_specifier, int *is_root, int id_len)
Definition: hecmw_couple_info_if.c:195
hecmw_couple_is_unit_root_u_if_
void hecmw_couple_is_unit_root_u_if_(char *unit_id, int *is_root, int id_len)
Definition: hecmw_couple_info_if.c:212
HECMW_INTRACOMM_GET_COMM_U_IF
void HECMW_INTRACOMM_GET_COMM_U_IF(char *unit_id, int *comm, int id_len)
Definition: hecmw_couple_info_if.c:472
hecmw_intercomm_get_comm_if__
void hecmw_intercomm_get_comm_if__(char *boundary_id, int *comm, int id_len)
Definition: hecmw_couple_info_if.c:411
HECMW_COUPLE_IS_ROOT_IF
void HECMW_COUPLE_IS_ROOT_IF(char *boundary_id, int *is_root, int id_len)
Definition: hecmw_couple_info_if.c:165
hecmw_couple_get_unit_id_if
void hecmw_couple_get_unit_id_if(char *boundary_id, int *unit_specifier, char *buf, int *err, int id_len, int buf_len)
Definition: hecmw_couple_info_if.c:17
hecmw_intercomm_get_size_if__
void hecmw_intercomm_get_size_if__(char *boundary_id, int *psize, int id_len)
Definition: hecmw_couple_info_if.c:245
hecmw_couple_is_unit_memb_if__
void hecmw_couple_is_unit_memb_if__(char *boundary_id, int *unit_specifier, int *is_member, int id_len)
Definition: hecmw_couple_info_if.c:104
hecmw_intracomm_get_group_u_if_
void hecmw_intracomm_get_group_u_if_(char *unit_id, int *group, int id_len)
Definition: hecmw_couple_info_if.c:547
hecmw_couple_is_memb_if__
void hecmw_couple_is_memb_if__(char *boundary_id, int *is_member, int id_len)
Definition: hecmw_couple_info_if.c:75
HECMW_COUPLE_IS_UNIT_MEMB_U_IF
void HECMW_COUPLE_IS_UNIT_MEMB_U_IF(char *unit_id, int *is_member, int id_len)
Definition: hecmw_couple_info_if.c:137
HECMW_INTRACOMM_GET_RANK_IF
void HECMW_INTRACOMM_GET_RANK_IF(char *boundary_id, int *unit_specifier, int *rank, int id_len)
Definition: hecmw_couple_info_if.c:362
hecmw_couple_is_root_if_
void hecmw_couple_is_root_if_(char *boundary_id, int *is_root, int id_len)
Definition: hecmw_couple_info_if.c:155
HECMW_INTERCOMM_GET_RANK_IF
void HECMW_INTERCOMM_GET_RANK_IF(char *boundary_id, int *rank, int id_len)
Definition: hecmw_couple_info_if.c:333
hecmw_intracomm_get_comm_u_if__
void hecmw_intracomm_get_comm_u_if__(char *unit_id, int *comm, int id_len)
Definition: hecmw_couple_info_if.c:467
hecmw_intracomm_get_group_u_if__
void hecmw_intracomm_get_group_u_if__(char *unit_id, int *group, int id_len)
Definition: hecmw_couple_info_if.c:552
hecmw_couple_is_unit_root_u_if
void hecmw_couple_is_unit_root_u_if(char *unit_id, int *is_root, int id_len)
Definition: hecmw_couple_info_if.c:203
hecmw_intercomm_get_rank_if_
void hecmw_intercomm_get_rank_if_(char *boundary_id, int *rank, int id_len)
Definition: hecmw_couple_info_if.c:323
hecmw_intracomm_get_group_u_if
void hecmw_intracomm_get_group_u_if(char *unit_id, int *group, int id_len)
Definition: hecmw_couple_info_if.c:538
hecmw_couple_is_unit_memb_u_if_
void hecmw_couple_is_unit_memb_u_if_(char *unit_id, int *is_member, int id_len)
Definition: hecmw_couple_info_if.c:127
HECMW_INTERCOMM_GET_GROUP_IF
void HECMW_INTERCOMM_GET_GROUP_IF(char *boundary_id, int *group, int id_len)
Definition: hecmw_couple_info_if.c:500
NULL
#define NULL
Definition: hecmw_io_nastran.c:30
HECMW_strcpy_c2f
int HECMW_strcpy_c2f(const char *cstr, char *fstr, int flen)
Definition: hecmw_lib_fc.c:72
HECMW_strcpy_f2c_r
char * HECMW_strcpy_f2c_r(const char *fstr, int flen, char *buf, int bufsize)
Definition: hecmw_lib_fc.c:45
hecmw_lib_fc.h
hecmw_struct.h