← Back to branch summary

~ubuntu-branches/ubuntu/precise/code-saturne/precise

« back to all changes in this revision

Viewing changes to src/base/cs_ast_coupling.h

  • Committer: Package Import Robot
  • Author(s): Sylvestre Ledru
  • Date: 2011-11-24 00:00:08 UTC
  • mfrom: (6.1.9 sid)
  • Revision ID: package-import@ubuntu.com-20111124000008-2vo99e38267942q5
Tags: 2.1.0-3
Install a missing file

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/base/cs_ast_coupling.h
 
1
#ifndef __CS_AST_COUPLING_H__
 
2
#define __CS_AST_COUPLING_H__
 
3
 
 
4
/*============================================================================
 
5
 * Code_Aster coupling
 
6
 *============================================================================*/
 
7
 
 
8
/*
 
9
  This file is part of Code_Saturne, a general-purpose CFD tool.
 
10
 
 
11
  Copyright (C) 1998-2011 EDF S.A.
 
12
 
 
13
  This program is free software; you can redistribute it and/or modify it under
 
14
  the terms of the GNU General Public License as published by the Free Software
 
15
  Foundation; either version 2 of the License, or (at your option) any later
 
16
  version.
 
17
 
 
18
  This program is distributed in the hope that it will be useful, but WITHOUT
 
19
  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 
20
  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
 
21
  details.
 
22
 
 
23
  You should have received a copy of the GNU General Public License along with
 
24
  this program; if not, write to the Free Software Foundation, Inc., 51 Franklin
 
25
  Street, Fifth Floor, Boston, MA 02110-1301, USA.
 
26
*/
 
27
 
 
28
/*----------------------------------------------------------------------------*/
 
29
 
 
30
/*----------------------------------------------------------------------------
 
31
 * Standard C library headers
 
32
 *----------------------------------------------------------------------------*/
 
33
 
 
34
/*----------------------------------------------------------------------------
 
35
 * BFT library headers
 
36
 *----------------------------------------------------------------------------*/
 
37
 
 
38
/*----------------------------------------------------------------------------
 
39
 * FVM library headers
 
40
 *----------------------------------------------------------------------------*/
 
41
 
 
42
/*----------------------------------------------------------------------------
 
43
 * Local headers
 
44
 *----------------------------------------------------------------------------*/
 
45
 
 
46
#include "cs_base.h"
 
47
 
 
48
/*----------------------------------------------------------------------------*/
 
49
 
 
50
BEGIN_C_DECLS
 
51
 
 
52
/*=============================================================================
 
53
 * Local Macro Definitions
 
54
 *============================================================================*/
 
55
 
 
56
/*============================================================================
 
57
 * Structure definition
 
58
 *============================================================================*/
 
59
 
 
60
typedef struct _cs_ast_coupling_t  cs_ast_coupling_t;
 
61
 
 
62
/*============================================================================
 
63
 *  Global variables definition
 
64
 *============================================================================*/
 
65
 
 
66
/*============================================================================
 
67
 *  Public function prototypes for Fortran API
 
68
 *============================================================================*/
 
69
 
 
70
/*----------------------------------------------------------------------------
 
71
 * Send nodes coordinates and structure numbering of coupled mesh.
 
72
 *
 
73
 * Fortran Interface:
 
74
 *
 
75
 * SUBROUTINE ASTGEO
 
76
 * *****************
 
77
 *
 
78
 *----------------------------------------------------------------------------*/
 
79
 
 
80
void CS_PROCF(astgeo, ASTGEO)
 
81
(
 
82
 cs_int_t   *nbfast,
 
83
 cs_int_t   *nbnast,
 
84
 cs_int_t   *lstfac,
 
85
 cs_int_t   *idfast,
 
86
 cs_int_t   *idnast,
 
87
 cs_real_t  *almax
 
88
);
 
89
 
 
90
/*----------------------------------------------------------------------------
 
91
 * Send stresses acting on the fluid/structure interface.
 
92
 *
 
93
 * Fortran Interface:
 
94
 *
 
95
 * SUBROUTINE ASTFOR
 
96
 * *****************
 
97
 *
 
98
 *----------------------------------------------------------------------------*/
 
99
 
 
100
void CS_PROCF(astfor, ASTFOR)
 
101
(
 
102
 cs_int_t    *ntcast,
 
103
 cs_int_t    *nbfast,
 
104
 cs_real_t   *forast
 
105
);
 
106
 
 
107
/*----------------------------------------------------------------------------
 
108
 * Receive displacement values of the fluid/structure interface
 
109
 *
 
110
 * Fortran Interface:
 
111
 *
 
112
 * SUBROUTINE ASTCIN
 
113
 * *****************
 
114
 *
 
115
 *----------------------------------------------------------------------------*/
 
116
 
 
117
void CS_PROCF(astcin, ASTCIN)
 
118
(
 
119
 cs_int_t  *ntcast,
 
120
 cs_int_t  *nbfast,
 
121
 cs_int_t  *lstfac,
 
122
 cs_real_t *depale
 
123
);
 
124
 
 
125
/*----------------------------------------------------------------------------
 
126
 * Receive coupling parameters
 
127
 *
 
128
 * Fortran Interface:
 
129
 *
 
130
 * SUBROUTINE ASTPAR
 
131
 * *****************
 
132
 *
 
133
 *----------------------------------------------------------------------------*/
 
134
 
 
135
void CS_PROCF(astpar, ASTPAR)
 
136
(
 
137
 cs_int_t  *nbpdt,
 
138
 cs_int_t  *nbsspdt,
 
139
 cs_real_t *delta,
 
140
 cs_real_t *tt,
 
141
 cs_real_t *dt
 
142
);
 
143
 
 
144
/*----------------------------------------------------------------------------
 
145
 * Exchange time step
 
146
 *
 
147
 * Fortran Interface:
 
148
 *
 
149
 * SUBROUTINE ASTPDT
 
150
 * *****************
 
151
 *
 
152
 *----------------------------------------------------------------------------*/
 
153
 
 
154
void CS_PROCF(astpdt, ASTPDT)
 
155
(
 
156
 cs_real_t *dttab,
 
157
 cs_int_t  *ncelet,
 
158
 cs_int_t  *nbpdt
 
159
);
 
160
 
 
161
/*----------------------------------------------------------------------------
 
162
 * Receive convergence value of Code_Saturne/Code_Aster coupling
 
163
 *
 
164
 * Fortran Interface:
 
165
 *
 
166
 * SUBROUTINE ASTCV1
 
167
 * *****************
 
168
 *
 
169
 *----------------------------------------------------------------------------*/
 
170
 
 
171
void CS_PROCF(astcv1, ASTCV1)
 
172
(
 
173
 cs_int_t  *ntcast,
 
174
 cs_int_t  *icv
 
175
);
 
176
 
 
177
/*-----------------------------------------------------------------------------
 
178
 * Send global convergence value of IFS calculations
 
179
 * (Internal and external structures)
 
180
 *
 
181
 * Fortran Interface:
 
182
 *
 
183
 * SUBROUTINE ASTCV2
 
184
 * *****************
 
185
 *
 
186
 *----------------------------------------------------------------------------*/
 
187
 
 
188
void CS_PROCF(astcv2, ASTCV2)
 
189
(
 
190
 cs_int_t  *ntcast,
 
191
 cs_int_t  *icv
 
192
);
 
193
 
 
194
/*----------------------------------------------------------------------------*/
 
195
 
 
196
END_C_DECLS
 
197
 
 
198
#endif /* __CS_SYR_COUPLING_H__ */