FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
hecmw_couple_finalize_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 <stdlib.h>
7
8#include "hecmw_config.h"
9#include "hecmw_lib_fc.h"
10
12
13/*================================================================================================*/
14
15extern void hecmw_couple_finalize_if(char *boundary_id, int *err, int len) {
16 char cname[HECMW_NAME_LEN + 1];
17
18 *err = 1;
19
20 if (HECMW_strcpy_f2c_r(boundary_id, len, cname, sizeof(cname)) == NULL)
21 return;
22 if (HECMW_couple_finalize(cname)) return;
23
24 *err = 0;
25}
26
27extern void hecmw_couple_finalize_if_(char *boundary_id, int *err, int len) {
28 hecmw_couple_finalize_if(boundary_id, err, len);
29}
30
31extern void hecmw_couple_finalize_if__(char *boundary_id, int *err, int len) {
32 hecmw_couple_finalize_if(boundary_id, err, len);
33}
34
35extern void HECMW_COUPLE_FINALIZE_IF(char *boundary_id, int *err, int len) {
36 hecmw_couple_finalize_if(boundary_id, err, len);
37}
#define HECMW_NAME_LEN
Definition: hecmw_config.h:70
int HECMW_couple_finalize(char *boundary_id)
void hecmw_couple_finalize_if(char *boundary_id, int *err, int len)
void hecmw_couple_finalize_if_(char *boundary_id, int *err, int len)
void hecmw_couple_finalize_if__(char *boundary_id, int *err, int len)
void HECMW_COUPLE_FINALIZE_IF(char *boundary_id, int *err, int len)
#define NULL
char * HECMW_strcpy_f2c_r(const char *fstr, int flen, char *buf, int bufsize)
Definition: hecmw_lib_fc.c:45