From 0d4f43d355de79178b1142e9735902cf641670b6 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Mon, 11 May 2009 00:27:49 +0000 Subject: Xfoil 6.97 --- src/PXPLOT.INC | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 src/PXPLOT.INC (limited to 'src/PXPLOT.INC') diff --git a/src/PXPLOT.INC b/src/PXPLOT.INC new file mode 100644 index 0000000..82a2b05 --- /dev/null +++ b/src/PXPLOT.INC @@ -0,0 +1,33 @@ +C + PARAMETER (NAX = 80, NX=132, NXB=250, NFX=500) + IMPLICIT REAL(M) + CHARACTER*8 CODE + CHARACTER*32 NAME + LOGICAL LREF, LFORCE, LMACH, LISES, LCLFIX, LALFIX, LPLOT + INTEGER MATYP,RETYP +C + COMMON/COMI/ + & IDEV, IDEVRP, IPSLU, N, NAPLT, NA, MATYP, RETYP, + & LREF, LFORCE, LMACH, LISES, LCLFIX, LALFIX, LPLOT, + & IAPLT(NAX), NF, + & II(2,NAX), IIB, + & ILE(2,NAX),ITE(2,NAX), + & ITRAN(2,NAX), + & CODE, + & NAME + +C + COMMON/COMR/ + & SIZE, SCRNFR, + & CLMIN, CLMAX, CDMIN, CDMAX, CMMIN, CMMAX, + & MACH, REYN, ACRIT, GAM,GM1,CPSTAR(NAX), + & MA(NAX),ALFA(NAX),CL(NAX),CD(NAX),CDI(NAX),CM(NAX), + & APLT(NAX), + & XTR(2,NAX), + & XF(NFX),MF(NFX), + & XB(NXB), YB(NXB), + & X(NX,2,NAX),CP(NX,2,NAX), + & THET(NX,2,NAX),DSTR(NX,2,NAX),CF(NX,2,NAX),CTAU(NX,2,NAX), + & VERSION + +C -- cgit v1.2.3