FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
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
17extern 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
36extern 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
43extern 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
50extern 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
60extern 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
70extern 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
75extern 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
80extern 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
88extern 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
98extern 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
104extern 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
110extern 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
118extern 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
127extern 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
132extern 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
137extern 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
145extern 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
155extern 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
160extern 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
165extern 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
173extern 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
183extern 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
189extern 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
195extern 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
203extern 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
212extern 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
217extern 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
222extern 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
230extern 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
240extern 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
245extern 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
250extern 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
258extern 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
268extern 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
273extern 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
279extern 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
287extern 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
296extern 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
301extern 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
306extern 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
313extern 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
323extern 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
328extern 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
333extern 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
341extern 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
351extern 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
356extern 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
362extern 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
370extern 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
379extern 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
384extern 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
389extern 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
396extern 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
406extern 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
411extern 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
416extern 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
424extern 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
434extern 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
439extern 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
445extern 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
453extern 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
462extern 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
467extern 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
472extern 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
480extern 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
490extern 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
495extern 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
500extern 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
508extern 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
518extern 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
524extern 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
530extern 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
538extern 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
547extern 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
552extern 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
557extern 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
564extern void hecmw_couple_comm_init_if(int *err) {
566 *err = 1;
567 } else {
568 *err = 0;
569 }
570}
571
572extern void hecmw_couple_comm_init_if_(int *err) {
574}
575
576extern void hecmw_couple_comm_init_if__(int *err) {
578}
579
580extern void HECMW_COUPLE_COMM_INIT_IF(int *err) {
582}
#define HECMW_SUCCESS
Definition: hecmw_config.h:64
#define HECMW_NAME_LEN
Definition: hecmw_config.h:70
int HECMW_couple_is_member(const char *boundary_id)
int HECMW_intracomm_get_size(const char *boundary_id, int unit_specifier)
int HECMW_couple_is_unit_member(const char *boundary_id, int unit_specifier)
HECMW_Group HECMW_intercomm_get_group(const char *boundary_id)
int HECMW_intracomm_get_size_u(const char *unit_id)
int HECMW_couple_is_unit_root_u(const char *unit_id)
int HECMW_couple_is_unit_root(const char *boundary_id, int unit_specifier)
HECMW_Group HECMW_intracomm_get_group_u(const char *unit_id)
HECMW_Comm HECMW_intercomm_get_comm(const char *boundary_id)
HECMW_Comm HECMW_intracomm_get_comm_u(const char *unit_id)
int HECMW_intracomm_get_rank_u(const char *unit_id)
int HECMW_couple_is_root(const char *boundary_id)
int HECMW_couple_comm_init(void)
int HECMW_intercomm_get_size(const char *boundary_id)
int HECMW_intracomm_get_rank(const char *boundary_id, int unit_specifier)
int HECMW_intercomm_get_rank(const char *boundary_id)
HECMW_Group HECMW_intracomm_get_group(const char *boundary_id, int unit_specifier)
int HECMW_couple_is_unit_member_u(const char *unit_id)
HECMW_Comm HECMW_intracomm_get_comm(const char *boundary_id, int unit_specifier)
char * HECMW_couple_get_unit_id(const char *boundary_id, int unit_specifier, char *buf, int bufsize)
void hecmw_couple_is_memb_if_(char *boundary_id, int *is_member, int id_len)
void HECMW_COUPLE_GET_UNIT_ID_IF(char *boundary_id, int *unit_specifier, char *buf, int *err, int id_len, int buf_len)
void hecmw_couple_get_unit_id_if__(char *boundary_id, int *unit_specifier, char *buf, int *err, int id_len, int buf_len)
void HECMW_INTERCOMM_GET_SIZE_IF(char *boundary_id, int *psize, int id_len)
void hecmw_intercomm_get_size_if_(char *boundary_id, int *psize, int id_len)
void HECMW_COUPLE_IS_MEMB_IF(char *boundary_id, int *is_member, int id_len)
void hecmw_intercomm_get_group_if(char *boundary_id, int *group, int id_len)
void hecmw_couple_is_unit_root_if(char *boundary_id, int *unit_specifier, int *is_root, int id_len)
void hecmw_intracomm_get_comm_u_if_(char *unit_id, int *comm, int id_len)
void hecmw_intracomm_get_rank_u_if(char *unit_id, int *rank, int id_len)
void HECMW_COUPLE_COMM_INIT_IF(int *err)
void hecmw_intracomm_get_group_if(char *boundary_id, int *unit_specifier, int *group, int id_len)
void hecmw_couple_is_unit_memb_u_if(char *unit_id, int *is_member, int id_len)
void hecmw_intercomm_get_group_if_(char *boundary_id, int *group, int id_len)
void hecmw_intercomm_get_rank_if(char *boundary_id, int *rank, int id_len)
void HECMW_INTRACOMM_GET_SIZE_U_IF(char *unit_id, int *psize, int id_len)
void hecmw_intercomm_get_group_if__(char *boundary_id, int *group, int id_len)
void HECMW_INTRACOMM_GET_GROUP_U_IF(char *unit_id, int *group, int id_len)
void hecmw_couple_is_unit_root_u_if__(char *unit_id, int *is_root, int id_len)
void hecmw_intracomm_get_group_if__(char *boundary_id, int *unit_specifier, int *group, int id_len)
void hecmw_intracomm_get_group_if_(char *boundary_id, int *unit_specifier, int *group, int id_len)
void hecmw_couple_is_unit_memb_if(char *boundary_id, int *unit_specifier, int *is_member, int id_len)
void hecmw_intracomm_get_comm_if_(char *boundary_id, int *unit_specifier, int *comm, int id_len)
void hecmw_intracomm_get_rank_u_if_(char *unit_id, int *rank, int id_len)
void hecmw_intercomm_get_size_if(char *boundary_id, int *psize, int id_len)
void hecmw_intercomm_get_rank_if__(char *boundary_id, int *rank, int id_len)
void hecmw_couple_is_unit_memb_u_if__(char *unit_id, int *is_member, int id_len)
void hecmw_intracomm_get_size_if__(char *boundary_id, int *unit_specifier, int *psize, int id_len)
void hecmw_intracomm_get_size_u_if__(char *unit_id, int *psize, int id_len)
void hecmw_couple_comm_init_if_(int *err)
void hecmw_intracomm_get_comm_if(char *boundary_id, int *unit_specifier, int *comm, int id_len)
void hecmw_couple_is_memb_if(char *boundary_id, int *is_member, int id_len)
void hecmw_couple_is_unit_memb_if_(char *boundary_id, int *unit_specifier, int *is_member, int id_len)
void hecmw_couple_is_root_if(char *boundary_id, int *is_root, int id_len)
void HECMW_INTRACOMM_GET_SIZE_IF(char *boundary_id, int *unit_specifier, int *psize, int id_len)
void hecmw_couple_comm_init_if__(int *err)
void hecmw_intracomm_get_comm_if__(char *boundary_id, int *unit_specifier, int *comm, int id_len)
void hecmw_couple_is_unit_root_if_(char *boundary_id, int *unit_specifier, int *is_root, int id_len)
void hecmw_intracomm_get_size_u_if_(char *unit_id, int *psize, int id_len)
void hecmw_intracomm_get_rank_if(char *boundary_id, int *unit_specifier, int *rank, int id_len)
void HECMW_INTRACOMM_GET_RANK_U_IF(char *unit_id, int *rank, int id_len)
void hecmw_intracomm_get_rank_if__(char *boundary_id, int *unit_specifier, int *rank, int id_len)
void hecmw_couple_comm_init_if(int *err)
void HECMW_INTERCOMM_GET_COMM_IF(char *boundary_id, int *comm, int id_len)
void hecmw_intracomm_get_size_if(char *boundary_id, int *unit_specifier, int *psize, int id_len)
void hecmw_intracomm_get_rank_if_(char *boundary_id, int *unit_specifier, int *rank, int id_len)
void HECMW_INTRACOMM_GET_GROUP_IF(char *boundary_id, int *unit_specifier, int *group, int id_len)
void hecmw_intracomm_get_rank_u_if__(char *unit_id, int *rank, int id_len)
void HECMW_COUPLE_IS_UNIT_MEMB_IF(char *boundary_id, int *unit_specifier, int *is_member, int id_len)
void hecmw_intracomm_get_comm_u_if(char *unit_id, int *comm, int id_len)
void hecmw_intercomm_get_comm_if(char *boundary_id, int *comm, int id_len)
void hecmw_intracomm_get_size_u_if(char *unit_id, int *psize, int id_len)
void hecmw_intercomm_get_comm_if_(char *boundary_id, int *comm, int id_len)
void HECMW_COUPLE_IS_UNIT_ROOT_U_IF(char *unit_id, int *is_root, int id_len)
void hecmw_intracomm_get_size_if_(char *boundary_id, int *unit_specifier, int *psize, int id_len)
void HECMW_INTRACOMM_GET_COMM_IF(char *boundary_id, int *unit_specifier, int *comm, int id_len)
void hecmw_couple_get_unit_id_if_(char *boundary_id, int *unit_specifier, char *buf, int *err, int id_len, int buf_len)
void hecmw_couple_is_root_if__(char *boundary_id, int *is_root, int id_len)
void hecmw_couple_is_unit_root_if__(char *boundary_id, int *unit_specifier, int *is_root, int id_len)
void HECMW_COUPLE_IS_UNIT_ROOT_IF(char *boundary_id, int *unit_specifier, int *is_root, int id_len)
void hecmw_couple_is_unit_root_u_if_(char *unit_id, int *is_root, int id_len)
void HECMW_INTRACOMM_GET_COMM_U_IF(char *unit_id, int *comm, int id_len)
void hecmw_intercomm_get_comm_if__(char *boundary_id, int *comm, int id_len)
void HECMW_COUPLE_IS_ROOT_IF(char *boundary_id, int *is_root, int id_len)
void hecmw_couple_get_unit_id_if(char *boundary_id, int *unit_specifier, char *buf, int *err, int id_len, int buf_len)
void hecmw_intercomm_get_size_if__(char *boundary_id, int *psize, int id_len)
void hecmw_couple_is_unit_memb_if__(char *boundary_id, int *unit_specifier, int *is_member, int id_len)
void hecmw_intracomm_get_group_u_if_(char *unit_id, int *group, int id_len)
void hecmw_couple_is_memb_if__(char *boundary_id, int *is_member, int id_len)
void HECMW_COUPLE_IS_UNIT_MEMB_U_IF(char *unit_id, int *is_member, int id_len)
void HECMW_INTRACOMM_GET_RANK_IF(char *boundary_id, int *unit_specifier, int *rank, int id_len)
void hecmw_couple_is_root_if_(char *boundary_id, int *is_root, int id_len)
void HECMW_INTERCOMM_GET_RANK_IF(char *boundary_id, int *rank, int id_len)
void hecmw_intracomm_get_comm_u_if__(char *unit_id, int *comm, int id_len)
void hecmw_intracomm_get_group_u_if__(char *unit_id, int *group, int id_len)
void hecmw_couple_is_unit_root_u_if(char *unit_id, int *is_root, int id_len)
void hecmw_intercomm_get_rank_if_(char *boundary_id, int *rank, int id_len)
void hecmw_intracomm_get_group_u_if(char *unit_id, int *group, int id_len)
void hecmw_couple_is_unit_memb_u_if_(char *unit_id, int *is_member, int id_len)
void HECMW_INTERCOMM_GET_GROUP_IF(char *boundary_id, int *group, int id_len)
#define NULL
int HECMW_strcpy_c2f(const char *cstr, char *fstr, int flen)
Definition: hecmw_lib_fc.c:72
char * HECMW_strcpy_f2c_r(const char *fstr, int flen, char *buf, int bufsize)
Definition: hecmw_lib_fc.c:45