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 */ 67