MBDyn-1.7.3
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups
aerod2.h
Go to the documentation of this file.
1 /* $Header: /var/cvs/mbdyn/mbdyn/mbdyn-1.0/mbdyn/aero/aerod2.h,v 1.20 2017/01/12 14:45:58 masarati Exp $ */
2 /*
3  * MBDyn (C) is a multibody analysis code.
4  * http://www.mbdyn.org
5  *
6  * Copyright (C) 1996-2017
7  *
8  * Pierangelo Masarati <masarati@aero.polimi.it>
9  * Paolo Mantegazza <mantegazza@aero.polimi.it>
10  *
11  * Dipartimento di Ingegneria Aerospaziale - Politecnico di Milano
12  * via La Masa, 34 - 20156 Milano, Italy
13  * http://www.aero.polimi.it
14  *
15  * Changing this copyright notice is forbidden.
16  *
17  * This program is free software; you can redistribute it and/or modify
18  * it under the terms of the GNU General Public License as published by
19  * the Free Software Foundation (version 2 of the License).
20  *
21  *
22  * This program is distributed in the hope that it will be useful,
23  * but WITHOUT ANY WARRANTY; without even the implied warranty of
24  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
25  * GNU General Public License for more details.
26  *
27  * You should have received a copy of the GNU General Public License
28  * along with this program; if not, write to the Free Software
29  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
30  */
31 
32 /* Funzione di calcolo delle forze aerodinamiche */
33 
34 
35 #ifndef AEROD_H
36 #define AEROD_H
37 
38 
39 #ifdef __cplusplus
40 extern "C" {
41 #endif /* __cplusplus */
42 
43 #include "ac/f2c.h"
44 
45 extern int __FC_DECL__(aerod2)(doublereal* w, /* velocita' nel sistema locale, 6 */
46  doublereal* vam, /* dati, 6 */
47  doublereal* tng, /* forze, 6 (Output) */
48  doublereal* outa, /* vettore di lavoro, 20 */
49  integer* inst, /* flag di instazionarieta', 0/1/2 */
50  doublereal* rspeed, /* Omega */
51  integer* ipr); /* profilo */
52 
53 extern int __FC_DECL__(coeprd)(doublereal* da, /* passo, delta t? */
54  doublereal* outa); /* vettore di lavoro, 20 */
55 
56 /* Da Max Lanz 2002/01/18 */
57 extern int __FC_DECL__(polcoe)(doublereal *x,
58  doublereal *y,
59  integer *n,
60  doublereal *cof);
61 
62 #ifdef __cplusplus
63 }
64 #endif /* __cplusplus */
65 
66 #endif /* AEROD_H */
int polcoe(doublereal *x, doublereal *y, integer *n, doublereal *cof)
double doublereal
Definition: colamd.c:52
long int integer
Definition: colamd.c:51
int coeprd(doublereal *da, doublereal *outa)
int aerod2(doublereal *w, doublereal *vam, doublereal *tng, doublereal *outa, integer *inst, doublereal *rspeed, integer *ipr)